collapseos/blk/434

14 lines
361 B
Plaintext
Raw Normal View History

2020-04-27 21:22:06 -04:00
: MOVE ( a1 a2 u -- )
2020-05-06 20:37:08 -04:00
( u ) 0 DO ( a1 a2 )
SWAP C@+ ( a2 a1+1 x )
ROT C!+ ( a1+1 a2+1 )
LOOP 2DROP ;
: MOVE- ( a1 a2 u -- )
SWAP OVER + 1- ( a1 u a2+u-1 )
ROT 2 PICK + 1- ( u a2+u-1 a1+u-1 )
ROT ( u ) 0 DO ( a2 a1 )
C@- ( a2 a1-1 x )
ROT C!- ( a1-1 a2-1 ) SWAP ( a2 a1 )
LOOP 2DROP ;
2020-04-27 21:22:06 -04:00
: PREV 3 - DUP @ - ;