Nim game: Difference between revisions
m
→{{header|Perl 6}}: typo, more informative "error reporting"
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: typo, more informative "error reporting") |
||
Line 340:
{{works with|Rakudo|2019.03}}
<lang perl6>say my $tokens = 12, " tokens
while my $player = prompt "How many tokens do you want to remove; 1, 2 or 3? : " {
say "Nice try. $tokens tokens remaining.\n" and
next unless $player eq any <1 2 3>;
$tokens -= 4;
say "Computer takes {4 - $player}.
say "Computer wins." and last if $tokens <= 0;
}</lang>
{{out|Sample output}}
<pre>12 tokens
How many tokens do you want to remove; 1, 2 or 3? : 3
|