Deal cards for FreeCell: Difference between revisions
m
J: minor cosmetic fix
(J draft) |
m (J: minor cosmetic fix) |
||
Line 82:
<lang j>deck=: (,/ 'KQJT98765432A' ,"0/ 7 u: '♠♥♦♣')"_
deal=: >@(] C.&.>/@|.@; (i. <@<@~."1@,. <: -
show=: (,"2)@:(_8 ]\ ' '&,.)</lang>
|