Name: Anonymous 2009-04-20 16:19
Does anyone have a program that sorts alphabetically. What type of sort does it do? I'm trying to collect different alphabetical sorts to benchmark them.
HoboNigger Inc. Visual Enterprise[tm] Dickcheese sort
(defun sort-strings (&rest strings) (sort strings #'string<))
(sort-strings "vip" "quality" "c" "cdr" "car" "cudder")
("c" "car" "cdr" "cudder" "quality" "vip")
(define (sort-strings . strings) (sort strings string<?))
(sort-strings "vip" "quality" "c" "cdr" "car" "cudder")
'("c" "car" "cdr" "cudder" "quality" "vip")