请在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。这里有一个更小的测试用例

`
(运行 * [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 报告)
...