Author: Gerry
Date: Jul 24, 2008 03:57
... if 1 rshift then ; : up-tree ( n -- n' ) begin dup 1 ...-right nip tuck = if up-tree exit then down-and-left ... tuck 2/ - 1+ min ; : fill-tree ( src dest idx n -- ) ?dup... dest idx cells + ! \ Copy to tree array src dest idx 2...drop 2drop then ; : x ( n -- ) tree 32 cells 0 fill dup...if they are available, why not use them (and recursion come...
|