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