all tasks

Task/Sorting-algorithms-Strand-sort/Common-Lisp/sorting-algorithms-strand-sort-1.lisp

@@ -0,0 +1,11 @@
+(defun strand-sort (l cmp)
+  (if l
+    (let* ((l (reverse l))
+	   (o (list (car l))) n)
+      (loop for i in (cdr l) do
+	    (push i (if (funcall cmp (car o) i) n o)))
+      (merge 'list o (strand-sort n cmp) #'<))))
+
+(let ((r (loop repeat 15 collect (random 10))))
+  (print r)
+  (print (strand-sort r #'<)))

Task/Sorting-algorithms-Strand-sort/Common-Lisp/sorting-algorithms-strand-sort-2.lisp

@@ -0,0 +1,2 @@
+(5 8 6 0 6 8 4 7 0 7 1 5 3 3 6)
+(0 0 1 3 3 4 5 5 6 6 6 7 7 8 8)