Rock-paper-scissors: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fixed logic error in R-P-S-L-SP table) |
(Added PicoLisp) |
||
Line 806: | Line 806: | ||
Lizard eats Paper: You win! - (W:3 L:2 T:0) |
Lizard eats Paper: You win! - (W:3 L:2 T:0) |
||
...</pre> |
...</pre> |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(use (C Mine Your) |
|||
(let (Rock 0 Paper 0 Scissors 0) |
|||
(loop |
|||
(setq Mine |
|||
(let N (if (gt0 (+ Rock Paper Scissors)) (rand 1 @) 0) |
|||
(seek |
|||
'((L) (le0 (dec 'N (caar L)))) |
|||
'(Rock Paper Scissors .) ) ) ) |
|||
(prin "Enter R, P or S to play, or Q to quit: ") |
|||
(loop |
|||
(and (= "Q" (prinl (setq C (uppc (key))))) (bye)) |
|||
(T (setq Your (find '((S) (pre? C S)) '(Rock Paper Scissors)))) |
|||
(prinl "Bad input - try again") ) |
|||
(prinl |
|||
"I say " (cadr Mine) ", You say " Your ": " |
|||
(cond |
|||
((== Your (cadr Mine)) "Draw") |
|||
((== Your (car Mine)) "I win") |
|||
(T "You win") ) ) |
|||
(inc Your) ) ) )</lang> |
|||
=={{header|Python}}== |
=={{header|Python}}== |