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