Nim game: Difference between revisions
→{{header|Perl 6}}: Add a Perl 6 example
m (added the text "human".) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 336:
Computer wins!
</pre>
=={{header|Perl 6}}==
{{works with|Rakudo|2019.03}}
<lang perl6>say my $tokens = 12, " tokens remaing.\n";
while my $player = prompt "How many tokens do you want to remove; 1, 2 or 3? : " {
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>
{{out|Sample output}}
<pre>12 tokens remaing.
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? : 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>
=={{header|Python}}==
| |||