Talk:Best shuffle: Difference between revisions

m
Line 180:
 
(let ((input '("abracadabra" "seesaw" "elk" "grrrrrr" "up" "a")))
(map 'nil 'compare-string input (map 'list 'better-shuffle input)))
"abracadabra" "rabrbadcaaa" (3)
"seesaw" "aeswse" (1)
Anonymous user