Deal cards for FreeCell: Difference between revisions
Content added Content deleted
(J: slightly more modular) |
m (J: deck can be a noun, now) |
||
| Line 81: | Line 81: | ||
Paraphrase of C: |
Paraphrase of C: |
||
<lang j>deck=: |
<lang j>deck=: ,/ 'KQJT98765432A' ,"0/ 7 u: '♠♥♦♣' |
||
pairs=: i. <@<@~."1@,. <: - ] (| rnd)@- i. |
pairs=: i. <@<@~."1@,. <: - ] (| rnd)@- i. |
||
swaps=: [: > C.&.>/@|.@; |
swaps=: [: > C.&.>/@|.@; |
||