Go Fish/PicoLisp: Difference between revisions
Content added Content deleted
(Bugfix) |
(Bugfix) |
||
| Line 1: | Line 1: | ||
{{collection|Go Fish}} |
<math>Insert formula here</math>{{collection|Go Fish}} |
||
<lang PicoLisp>(de *Ranks |
<lang PicoLisp>(de *Ranks |
||
| Line 55: | Line 55: | ||
(prin " The rank must be one of ") |
(prin " The rank must be one of ") |
||
(println *Ranks) ) |
(println *Ranks) ) |
||
((and (cdddr Reply) (member (car Reply) *Ranks) (not (cdr (uniq Reply)))) |
((and (cdddr Reply) (member (car Reply) *Ranks) (not (cdr (uniq Reply))) (= (length Your) (length (append (diff Your Reply) Reply)))) |
||
(prin " You lay down the book ") |
(prin " You lay down the book ") |
||
(println (push 'YourBooks Reply)) |
(println (push 'YourBooks Reply)) |
||