Best shuffle: Difference between revisions

No edit summary
Line 418:
bestShuffle s = minimumBy (compare `on` score s) $ permutations s</lang>
 
=={{header|Icon}} and {{header|Unicon}}==
<lang icon>procedure main(args)
while write(scramble(read()))
Line 443:
</lang>
 
The code also works in both Icon and Unicon.
 
Sample output: