Best shuffle: Difference between revisions
Content added Content deleted
(J: simplify) |
m (J: simplify) |
||
Line 68: | Line 68: | ||
<lang j>bestShuf =: verb define |
<lang j>bestShuf =: verb define |
||
yy=. (\:#&>)@:(<@I.@=) y |
yy=. (\:#&>)@:(<@I.@=) y |
||
y |
y C.~ (;yy) </.~ (i.#y) |~ #>{. yy |
||
) |
) |
||