BUBBLESORT.TXT

\  BUBBLESORT.TXT
: BUBBLE ( a1 ... an n-1 -- one pass )
	DUP
	IF 	>R
 		OVER OVER <
		IF 	SWAP
		THEN
 		R> SWAP >R 1-
		RECURSE ( or BUBBLE in other systems )
		R>
 	ELSE 	DROP
 	THEN
;
: SORT ( a1 .. an n -- sorted )
 	1- DUP 0
	DO   >R R@
	      BUBBLE
	     R>
	LOOP
	DROP
;
 -3 2 4 2 100 -12 9 0   8 SORT \ Example call
( Result: 100 9 4 2 2 0 -3 -12 -->  )