RosettaCodeData/Task/Playing-cards/K/playing-cards-4.k
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

12 lines
151 B
Text

deal1:{|((#deck)-x)_|deck}
deal:{c:deal1[x];deck::(deck _dvl c);c}
deal[5]
("S8"
"CA"
"D5"
"D2"
"SJ")
#deck / 5 cards are removed
47