Best shuffle: Difference between revisions

<lang Elena>#import system'routines.

#import extensions.

0 to:(anOriginal length - 1) &doEach: (:i)

0 to:(anOriginal length - 1) &doEach: (:j)

if ((i != j) && [$(anOriginal@i != (aShuffled@j)]) && [$(anOriginal@j != (aShuffled@i)]))

aShuffled exchange:i:j.

^ aShuffled summarize:(String new); literal.

0 to:(anOriginal length - 1) &doEach: (:i)

[ if ((anOriginal @ i) == (aShuffled @ i)) [ aScore +=append int:1. ]. ].

("abracadabra", "seesaw", "grrrrrr", "pop", "up", "a") run &each: (:aWord)

console writeLineprintLine:"The best shuffle of ":aWord:" is ":aShuffled:"(":(aShuffled score:aWord):")".