Mind boggling card trick: Difference between revisions
m
→{{header|Perl 6}}: A little less Italian
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: A little less Italian) |
|||
Line 863:
put '"Black" pile: ', @black;
# swap
# cards between the red and black piles
my $amount = ^(+@red min +@black) .roll;
| |||