0.8.4-SNAPSHOT Arrow_down_16x16



  • (run-constraints* xs cs ws)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source clojure/core/logic.clj:2223 top

(defn run-constraints* [xs cs ws]
  (if (or (zero? (count cs))
          (nil? (seq xs)))
    (fn [a]
      (let [xcs (constraints-for cs a (first xs) ws)]
        (if (seq xcs)
            (run-constraints xcs)
            (run-constraints* (next xs) cs ws)) a)
          ((run-constraints* (next xs) cs ws) a))))))
Vars in clojure.core.logic/run-constraints*:
Used in 0 other vars

Comments top

No comments for run-constraints*. Log in to add a comment.