denlab · September 8, 2012 07:58
diff --git a/scratch.clj b/scratch.clj

 ;; quel sont les parents de Bart?
 ;;
 (run* [q]             
      (parent 'Bart q))
 ;; => (Homer Marge)

 (set (run* [q]                 
           (fresh [c]          
                  (parent c q) )))
 ;; => #{Abraham Marge Homer}

	;; quel sont les parents de Bart?
	;;
	(run* [q]
	(parent 'Bart q))
	;; => (Homer Marge)

	(set (run* [q]
	(fresh [c]
	(parent c q) )))
	;; => #{Abraham Marge Homer}