Rock-paper-scissors: Difference between revisions
m
→{{header|Perl 6}}: flatten weighted list
m (→{{header|Sidef}}: minor code simplifications) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: flatten weighted list) |
||
Line 3,191:
say 'Invalid choice, try again.' and $round-- and next
unless $player.chars == 2 and $player ~~ /<$keys>/;
my $computer = (flat %weight.keys.map( { $_ xx %weight{$_} } )).pick;
%weight{$_.key}++ for %vs{$player}.grep( { $_.value[0] == 1 } );
my $result = %vs{$player}{$computer}[0];
|