Anonymous user
Talk:Best shuffle: Difference between revisions
→Common Lisp: this should be it
(→Common Lisp: now just need to get the order in the output right :-)) |
(→Common Lisp: this should be it) |
||
Line 185:
(defun format-best-shuffle (seq)
(format t "~{~
(let ((input '("abracadabra" "seesaw" "elk" "grrrrrr" "up" "a")))
(map 'nil 'format-best-shuffle input))
abracadabra arbrabacada (2)
seesaw esaews (0)
grrrrrr rrrgrrr (5)
NIL
</lang>
| |||