Best shuffle: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: whitespace) |
(→{{header|J}}: different approach - see Talk) |
||
Line 66:
Brute force approach:
<lang j>bestShuf =:
r
yy =. (}.&.>{.yy),}.yy
q =. {.&> {. }.yy
end.▼
yy =. ({.yy),(}.&.>{.}.yy),}.}.yy
z =. z,<r,q
yy =. yy-.a:
z=. z , > {. 'b f'=.((2#a:)&, </.~ 1 0 , 1<#&>) yy
w=. y C.~ z
w C.~ :: [ f ,&.> w (~:/ i. 1:)"1 0 y {~ f =. ;f
)
|