Group: comp.lang.forth · Group Profile · Search for Memberp in comp.lang.forth
Author: Geoffrey Summerhayes
Date: Sep 13, 2006 12:59
...combination ;; output map [item ? :position] :combination ;; end (defun substitute.triple (combination) (mapcar (lambda (?) (aref position ?)) combination)) ;; to already.wonp :player ;; output memberp (word :player :player :player) (make.triples) ;; end (defun already.wonp (player) ;; member's default test in Lisp is more restrictive (member (list player player player) (make...
| 
