1

我(第一次)使用 Drools 来表达一些规则,到目前为止它运行得非常好。然而,我被赋予了一个新的条件,我无法用规则语言非常清楚地表达出来。

基本上我需要对玩家账户执行一项操作,如果他们的账户上有一定数额的未结余额,他们在上周没有付款,而他们在过去 4 年没有付款大于或等于每周扣除的周数。还有一些其他规则,但我已删除它们以简化此问题的规则。这是给我带来问题的最后一条规则。

rule "The broken rule"
   salience 10
   no-loop
   when
      Player( $playerNumber : playerNumber )
      $a : Account( // balance between £5 and £100 and no arrangement
       playerNumber == $playerNumber &&
         accountBalanceInPence >= 500 &&
         accountBalanceInPence <= 10000
      )
      not ( // no payment in last week
         exists AccountTransaction(
            playerNumber == $playerNumber &&
            transactionDate >= oneWeekAgo &&
            transactionCode == "P" // payment
         )
      )
      /* It's this next bit that is broken */
      not ( // no payment > (weekly cost * 4) paid within last 4 weeks
         $deduction : AccountTransaction( // a recent transaction
            playerNumber == $playerNumber &&
            transactionDate >= fourWeeksAgo &&
            transactionCode == "D" // deduction
         )
         exists AccountTransaction( // the payment
            playerNumber == $playerNumber &&
            transactionDate >= fourWeeksAgo &&
            transactionCode == "P" // payment
            amountInPence >= ($deduction->amountInPence * 4)
         )
   )
   then
      // do some action to the account
end

问题是它不起作用,我不断收到 org.drools.rule.InvalidRulePackage 异常。我只是在猜测语法,但似乎找不到显示我正在尝试做什么的示例。甚至可能吗?


完整的原始错误消息是:

"unknown:50:3 mismatched token: [@255,1690:1695='exists',<39>,50:3]; expecting type RIGHT_PAREN[54,4]: unknown:54:4 mismatched token: [@284,1840:1852='amountInPence',<7>,54:4]; expecting type RIGHT_PAREN[54,22]: unknown:54:22 Unexpected token '$payment'"

在尝试了第一条评论中的建议后,错误是:

"[50,3]: unknown:50:3 mismatched token: [@255,1690:1695='exists',<39>,50:3]; expecting type RIGHT_PAREN[54,4]: unknown:54:4 mismatched token: [@284,1840:1852='amountInPence',<7>,54:4]; expecting type RIGHT_PAREN[54,45]: unknown:54:45 mismatched token: [@293,1881:1881='*',<71>,54:45]; expecting type LEFT_PAREN[55,3]: unknown:55:3 mismatched token: [@298,1890:1890=')',<12>,55:3]; expecting type THEN"
4

3 回答 3

1

在对以下内容进行更多修改后,不会导致任何运行时错误(尽管我不确定它是否“正确”)。我重写了该子句以将存在放在两个事实周围,并使用中缀并将它们分组。

  not ( // no payment > (weekly cost * 4) paid within last 4 weeks
     exists (
        AccountTransaction( // a recent transaction
           playerNumber == $playerNumber &&
           transactionDate >= fourWeeksAgo &&
           transactionCode == "D" // deduction
           $recentDeducation : amountInPence
        ) and
        AccountTransaction( // the payment
           playerNumber == $playerNumber &&
           transactionDate >= fourWeeksAgo &&
           transactionCode == "P" // payment
           amountInPence >= ($recentDeducation * 4)
        )
     )
  )

感谢到目前为止的所有帮助。

于 2009-01-06T12:00:44.540 回答
1

是的,正如您所猜测的那样,您需要在“非”模式中放置一个明确的“和”以将它们连接在一起。

唯一不需要“和”的时候是在顶层:

例如

when Foo() Bar()

不需要“和”

但这隐含地与

when Foo() and Bar()

所以你的解决方案似乎是正确的。在大多数规则语言中,缺少顶级“和”似乎是惯例(回到 CLIPS !)

于 2009-01-07T02:50:02.407 回答
0

怎么样($deduction->amountInPence * 4)?我认为,->应该是一个.

于 2009-01-06T10:43:47.100 回答