Forth mode \ Insertion sort : cell- 1 cells - ; : insert ( start end -- start ) dup @ >r ( r: v ) begin 2dup < while r@ over cell- @ < while cell- dup @ over cell+ ! repeat then r> swap ! ; : sort ( array len -- ) 1 ?do dup i cells + insert loop drop ;x 1\ Insertion sort23: cell- 1 cells - ;45: insert ( start end -- start )6 dup @ >r ( r: v )7 begin8 2dup <9 while10 r@ over cell- @ <11 while12 cell-13 dup @ over cell+ !14 repeat then15 r> swap ! ;1617: sort ( array len -- )18 1 ?do19 dup i cells + insert20 loop drop ; Simple mode that handle Forth-Syntax (Forth on WikiPedia). MIME types defined: text/x-forth.
