函数返回“无解”而不是“无”

时间:2011-09-30 13:55:44

标签: functional-programming logic-programming maybe curry

我有一个表示谓词逻辑公式的标准数据类型。表示析出的自然演绎消除规则的函数可能如下所示:

d_el p q =
  if p =: (Dis r s) && q =: (Neg r) then Just s else
  if q =: (Dis r s) && p =: (Neg r) then Just s else
     Nothing where r,s free

x =: y = (x =:= y) == success

在统一失败时,该函数不返回Nothing,而是在PACKS中没有返回任何解决方案:

logic> d_el (Dis Bot Top) (Not Bot)
Result: Just Top
More Solutions? [Y(es)/n(o)/a(ll)] n
logic> d_el (Dis Bot Top) (Not Top)
No more solutions.

我缺少什么,以及为什么{1}}在统一失败时不会el评估为Nothing

1 个答案:

答案 0 :(得分:1)

这似乎不是使用等式约束的最佳方式。当a =:= b失败时,完成功能子句也会失败 E.g:

xx x = if (x =:= 5) == success then 1 else x
xx x = 3

评估xx 7结果为3(不是7),因为7 =:= 5完全终止了xx函数的第一个子句。

我认为代码应如下所示:

d_el p q = case (p,q) of
   (Dis a s, Neg b) -> if a == b then Just s else Nothing
   (Neg a, Dis b s) -> if a == b then Just s else Nothing
   _ -> Nothing