Anonymous user
Deal cards for FreeCell: Difference between revisions
m
→{{header|Perl 6}}: glrize
(Added Befunge example.) |
m (→{{header|Perl 6}}: glrize) |
||
Line 1,843:
=={{header|Perl 6}}==
{{works with|rakudo|
<lang perl6>sub dealgame ($game-number = 1) {
sub ms-lcg-method($seed = $game-number) { ( 214013 * $seed + 2531011 ) % 2**31 }
Line 1,851:
constant CardBlock = '🂠'.ord;
my @deck = gather for flat(1..11,13,14) X+ (48,32...0) -> $off {
take chr CardBlock + $off;
}
|