Playing cards: Difference between revisions

Line 2,091:
(zerop (random 2)))))</syntaxhighlight>
====Alternative version====
 
''DRAFT''
 
 
1. Program
Line 2,101 ⟶ 2,098:
(defconstant +pips+ '(ace 2 3 4 5 6 7 8 9 10 jack queen king))
(defconstant +suits+ '(club diamond heart spade))
 
 
(defvar *deck* nil)
422

edits