2024年Clojure现状调查中分享您的想法!

欢迎!请查看关于页面,了解此工作的更多信息。

0
core.logic
给定以下代码


(run* [x11 x12 x13
       x21 x22     x24
       x31     x33 x34
           x42 x43 x44]
      (fd/in x11 x12 x13 x21 x22 x24 x31 x33 x34 x42 x43 x44 (fd/interval 1 9))
      (fd/eq (= (+ x11 (/ x12 x13))   5)
             (= (+ x21 (/ x22   2)) x24)
             (= (+ x31 (/   6 x33)) x34)
             (= (+   4 (/ x42 x43)) x44)
             (= (+ x11 (/ x21 x31))   4)
             (= (* x12 (/ x22   6)) x42)
             (= (+ x13 (-   2 x33)) x43)
             (= (+ (-  5 x24) x34)  x44)))


我的结果是{{([1 4 1 3 6 6 1 1 7 4 2 6] [2 6 2 4 6 7 2 1 8 6 3 6])}}。

然而,一旦我将{{(fd/interval 1 9)}}更改为{{(fd/interval 0 9)}},结果就变成了一个空序列。然而,我期望它至少应包括上述两个解。

5 答案

0

评论由:dnolen 发布

如果您能确认不使用{{fd/eq}} - 这是一个简单的宏糖,将有助于解决问题。虽然写长形式很繁琐,但它将有助于隔离问题。谢谢。

0

评论由:dnnx 提出

我实际怀疑这个错误在 fd/eq 中。这里有一个更小的测试案例

`
(run* [q]

  (fd/in q (fd/interval 1 2))
  (fd/eq (= (/ q q) 1)))

`

它如预期返回 (1 2),但当我将 fd/interval 改为 0 2 时,它却返回一个空序列。

0

评论由:dnolen 发布

多谢提供最小案例,是的,看起来是 {{fd/eq}} 的问题,手动写出时它还能正常工作。

0

评论由:dnolen 发布

参阅 LOGIC-156

0
参考: https://clojure.atlassian.net/browse/LOGIC-162(由 alex+import 报告)
...