Почему эта реализация Сорто не заканчивается?

Question

Я новичок в логическом программировании.

Я пытаюсь реализовать сортировку отношения как это:

(sorto [3 2 1][1 2 3]) -> #s

Я использую clojure и core.logic:

Я не понимаю, почему это не может прекратить в большинстве случаев.

Любая идея будет полезна, спасибо.

(require '[clojure.core.logic :refer :all]
         '[clojure.core.logic.fd :as fd])

Сначала я определю несколько маленьких помощников:

Простое отношение счета: (counto [a b] 2) -> #s

(defne counto [list n]
       ([() 0])
       ([[fl . rl] _]
         (fresh [nnxt]
                (fd/- n 1 nnxt)
                (counto rl nnxt))))

уменьшить и каждый? реляционные эквиваленты:

(defne reduceo [rel acc x y]
       ([_ _ () _] (== acc y))
       ([_ _ [fx . rx] _]
         (fresh [nacc]
                (rel acc fx nacc)
                (reduceo rel nacc rx y))))

(defne everyo [g list]
       ([_ ()])
       ([_ [fl . rl]]
         (g fl)
         (everyo g rl)))

мин отношение: (mino 1 2 1) -> #s

(defn mino [x y z]
  (conde
    [(fd/<= x y) (== x z)]
    [(fd/> x y) (== y z)]))

связь между списком и его минимальным элементом: (mino* [1 2 3 0] 0) -> #s

(defne mino* [xs y]
       ([[fxs . rxs] _]
         (reduceo mino fxs rxs y)))

Основное отношение: (sorto [2 3 1 4] [1 2 3 4]) -> #s

(defne sorto [x y]
       ([() ()])
       ([[fx . rx] [fy . ry]]
         (fresh [x* c]
                (counto rx c)
                (counto ry c)
                (mino* x fy)
                (rembero fy x x*)
                (sorto x* ry))))

Следующие прогоны не заканчиваются, я хотел бы понять, почему.

(run* [q]
      (sorto q [1 2]))
; does not terminate

(run* [q]
      (sorto [2 1] q))
; does not terminate

(run* [a b]
      (everyo #(fd/in % (fd/interval 10)) a)
      (everyo #(fd/in % (fd/interval 10)) b)
      (sorto a b))
;neither

Answer 1

Ответ высокого уровня заключается в том, что соединение пробуется по порядку. Изменение их порядка иногда может привести к завершению программы - однако в общем случае может не существовать "хорошего" порядка.

Взгляните на главу 5 в https://scholarworks.iu.edu/dspace/bitstream/handle/2022/8777/Byrd_indiana_0093A_10344.pdf