Sorting algorithms/Bubble sort: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,413: / Line 1,413: @@
          (map
             '((N L)
-               (when (and (cdr L) (> (car L) (cadr L)))
+               (when (> (car L) (cadr L))
                   (xchg L (cdr L))
                   (on Chg) ) )