Revision as of 17:56, 15 December 2010 (view source) rosettacode>DanBron (→‎{{header\|J}}: different approach - see Talk) ← Older edit		Revision as of 19:00, 15 December 2010 (view source) Rdm (talk \| contribs) (J: simplify) Newer edit →
Line 64: =={{header\|J}}== ~~Brute~~Based ~~force~~on Dan Bron's approach: <lang j>bestShuf =: verb define yy=. (\:#&>)@:(<@I.@=) y y {~ C. (;yy) </.~ (i.#y) \|~ #>{. yy ~~z=.0 $ a:~~ ~~while. 1 < #yy do.~~ ~~r =. {.&>{.yy~~ ~~yy =. (}.&.>{.yy),}.yy~~ ~~q =. {.&> {. }.yy~~ ~~yy =. ({.yy),(}.&.>{.}.yy),}.}.yy~~ ~~z =. z,<r,q~~ ~~yy =. yy-.a:~~ ~~end.~~ ~~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~~ ) Line 93 ⟶ 80: <lang j> fmtBest&>;:'abracadabra seesaw elk grrrrrr up a' abracadabra, ~~baaracadrab~~bdabararaac (0) seesaw, ~~essewa~~eawess (0) elk, lke (0) grrrrrr, rgrrrrr (5)

Best shuffle: Difference between revisions

Best shuffle (view source)