Sorting algorithms/Bubble sort: Difference between revisions
Content deleted Content added
Added PicoLisp |
m unnecessary test |
||
Line 1,413: | Line 1,413: | ||
(map |
(map |
||
'((N L) |
'((N L) |
||
(when |
(when (> (car L) (cadr L)) |
||
(xchg L (cdr L)) |
(xchg L (cdr L)) |
||
(on Chg) ) ) |
(on Chg) ) ) |