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@,. <: - ] (| rnd)@- i.)@#) @ deck@srnd
show=: (,"2)@:(_8 ]\ ' '&,.)</lang>
 
6,962

edits