Anonymous user
Rock-paper-scissors: Difference between revisions
Added PicoLisp
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fixed logic error in R-P-S-L-SP table) |
(Added PicoLisp) |
||
Line 806:
Lizard eats Paper: You win! - (W:3 L:2 T:0)
...</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}}==
| |||