Nim game: Difference between revisions
→{{header|Perl 6}}: demonstrate "error" trapping
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: typo, more informative "error reporting") |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: demonstrate "error" trapping) |
||
Line 346:
next unless $player eq any <1 2 3>;
$tokens -= 4;
say "Computer takes {4 - $player}.\n$tokens tokens remaining.\n";
say "Computer wins." and last if $tokens <= 0;
}</lang>
Line 354:
How many tokens do you want to remove; 1, 2 or 3? : 3
Computer takes 1.
8 tokens remaining.
How many tokens do you want to remove; 1, 2 or 3? : 6
Nice try. 8 tokens remaining.
How many tokens do you want to remove; 1, 2 or 3? : G
Nice try. 8 tokens remaining.
How many tokens do you want to remove; 1, 2 or 3? : 2
Computer takes 2.
4 tokens remaining.
How many tokens do you want to remove; 1, 2 or 3? : 1
Computer takes 3.
0 tokens remaining.
Computer wins.</pre>
| |||