Rosetta Code

Deal cards for FreeCell: Difference between revisions

Page Discussion

Deal cards for FreeCell (view source)

Revision as of 01:29, 7 November 2023

133 bytes removed ,  6 months ago
m
→‎{{header|Quackery}}: simplified code
(Added Quackery.)
m (→‎{{header|Quackery}}: simplified code)
Line 2,997:
drop ] is mixem ( [ --> [ )
 
[ 4 /mod
[$ table"A23456789TJQK"
rot peek emit
char C char D char H
$ char S ]"CDHS"
swap peek char Kemit ] emit emit ] is echocard ( n --> )▼
swap
[ table
char A char 2 char 3
char 4 char 5 char 6
char 7 char 8 char 9
char T char J char Q
▲ char K ] emit emit ] is echocard ( n --> )
 
[ witheach
[ echocard
i^ 8 mod 7 !=
iff spcr else crsp ] ] is echopack ( [ --> )
 
[ MCR-seed replace
GordonCharlton
1,462

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/351152"