Sorting algorithms/Bubble sort: Difference between revisions

m
unnecessary test
(Added PicoLisp)
m (unnecessary test)
Line 1,413:
(map
'((N L)
(when (and (cdr L) (> (car L) (cadr L)))
(xchg L (cdr L))
(on Chg) ) )
Anonymous user