Amb: Difference between revisions

m
Line 1,057:
===== 2. Program =====
 
<syntaxhighlight lang="lisp">;; 22.11.0711 Mise en forme source
 
(defvar *heap* nil)
Line 1,063:
 
(defun new ()
(setf *heap* nil *ruleassertion* t))
 
(defun ambsel (symbol domain)
422

edits