Sorting algorithms/Bubble sort: Difference between revisions

Sorts the 'cnt' cells stored at 'addr' using the test stored in the deferred word 'bubble-test'. Uses forth local variables for clarity.

cnt 1 DOdo

addr cnt i - cells bounds DOdo

i 2@ >bubble-test if i 2@ swap i 2! then

cell +LOOP loop

LOOPloop ;

dup 1 DOdo

2dup i - cells bounds DOdo

i 2@ >bubble-test if i 2@ swap i 2! then

cell +LOOP loop

LOOPloop ;