All pastes #274113 Raw Edit

zpg / seesaw

public text v1 · immutable
·published 2006-12-10 13:04 UTC
rendered paste body
\
\ This seems more sensible than a tonne of extra postpones...
\

: seesaw ( addr -- )
    dup 2@ 1- swap 1+ swap rot 2! ;

: seesaw. ( addr -- )
    dup seesaw 2@ swap . . ;

: generator ( n1 n2 -- xt )  here >r 2, :noname r> postpone literal postpone seesaw. postpone ; ;

\ Giving:

5 10 generator  ok
.s <1> 2244304  ok
dup  ok
execute 6 9  ok
execute 7 8  ok