Nim game: Difference between revisions
Content added Content deleted
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: | Line 340: | ||
{{works with|Rakudo|2019.03}} |
{{works with|Rakudo|2019.03}} |
||
<lang perl6>say my $tokens = 12, " tokens |
<lang perl6>say my $tokens = 12, " tokens remaining.\n"; |
||
while my $player = prompt "How many tokens do you want to remove; 1, 2 or 3? : " { |
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>; |
next unless $player eq any <1 2 3>; |
||
$tokens -= 4; |
$tokens -= 4; |
||
say "Computer takes {4 - $player}. |
say "Computer takes {4 - $player}.\n"; |
||
say "Computer wins." and last if $tokens <= 0; |
say "Computer wins." and last if $tokens <= 0; |
||
}</lang> |
}</lang> |
||
{{out|Sample output}} |
{{out|Sample output}} |
||
<pre>12 tokens |
<pre>12 tokens remaining. |
||
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 |
||