9 lines
154 B
Text
9 lines
154 B
Text
bestShuf =: verb define
|
|
yy=. <@({~ ?~@#)@I.@= y
|
|
y C.~ (;yy) </.~ (i.#y) |~ >./#@> yy
|
|
)
|
|
|
|
fmtBest=:3 :0
|
|
b=. bestShuf y
|
|
y,', ',b,' (',')',~":+/b=y
|
|
)
|