Amb: Difference between revisions

m
Line 1,057:
===== 2. Program =====
 
<syntaxhighlight lang="lisp">;; 22.11.08 Mise en forme source
;; 22.11.11 Clarification code
Mise en forme source
 
(defvar *heap* nil)
Line 1,080 ⟶ 1,082:
(dolist (value domain)
(set symbol value)
(cond ((eval *assertion*) (return t))
((probe (rest heap)) (return t)))))))
(probe))))</syntaxhighlight>
 
422

edits