Sorting algorithms/Comb sort: Difference between revisions

Content added Content deleted
Line 1,461: Line 1,461:
: 1.35/ ( n -- n' ) 100 135 */ ;
: 1.35/ ( n -- n' ) 100 135 */ ;


: XCHG ( adr1 adr2 n1 n2-- ) OVER @ OVER @ SWAP ROT ! SWAP ! ;
: XCHG ( adr1 adr2 -- ) OVER @ OVER @ SWAP ROT ! SWAP ! ;


: COMBSORT ( n -- )
: COMBSORT ( n -- )