Rosetta Code

Talk:Best shuffle: Difference between revisions

Page Discussion

Talk:Best shuffle (view source)

Revision as of 08:55, 14 October 2011

20 bytes added ,  12 years ago
→‎Common Lisp: almost there
(→‎Common Lisp: almost there)
Line 174:
(coerce (mapcar 'cdr (sort tagged #'> :key 'car)) 'string)))
 
(defun compare-stringshuffle (seq sqe)
(format t "~S ~S (~S)~%" seq sqe (count T (mapcar (lambda (x y) (equalp x y))
(loop for char across seq collect char)
(loop for char across sqe collect char)))))
 
(defun format-compare-shuffle (seq sqe)
(format t "~S ~S (~S)~%" seq sqe (compare-shuffle seq sqe)))
 
 
(let ((input '("abracadabra" "seesaw" "elk" "grrrrrr" "up" "a")))
(map 'nil 'format-compare-stringshuffle input (map 'list 'better-shuffle input)))
"abracadabra" "rabrbadcaaa" (3)
"seesaw" "aeswse" (1)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/167813"