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 {~ C. (;yy) </.~ (i.#y) |~ #>{. yy
y C.~ (;yy) </.~ (i.#y) |~ #>{. yy
)
)