Deal cards for FreeCell: Difference between revisions
m
→{{header|Quackery}}: tidied
m (→{{header|Quackery}}: simplified code) |
m (→{{header|Quackery}}: tidied) |
||
Line 2,981:
<syntaxhighlight lang="Quackery"> [ [ [] 52 times
[ i^ join ] ]
constant ]
[ 2dup peek
dip [ over -1 peek ]
swap 2swap poke
-1 poke ]
[ [] swap
Line 2,995:
-1 split
swap dip join ]
drop ]
$ "A23456789TJQK"
rot peek emit
$ "CDHS"
swap peek emit ]
[ witheach
[ echocard
i^ 8 mod 7 =
iff cr else sp ] ]
[ MCR-seed replace
newpack
mixem
echopack ]
' [ 1 617 11982 ]
| |||