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