Sorting algorithms/Bubble sort: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,645: / Line 1,645: @@
 =={{header|PicoLisp}}==
-<lang PicoLisp>(de bubblesort (Lst)
+<lang PicoLisp>(de bubbleSort (Lst)
-   (let (Len (length Lst)  Chg)
+   (use Chg
       (loop
          (off Chg)
-         (map
+         (for (L Lst (cdr L) (cdr L))
-            '((N L)
+            (when (> (car L) (cadr L))
-               (when (> (car L) (cadr L))
+               (xchg L (cdr L))
-                  (xchg L (cdr L))
+               (on Chg) ) )
-                  (on Chg) ) )
-            (range 1 (dec 'Len))
-            Lst )
          (NIL Chg Lst) ) ) )</lang>