25'ten fazla konu seçemezsiniz
Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
|
- : MOVE ( a1 a2 u -- )
- ?DUP IF ( u ) 0 DO ( a1 a2 )
- SWAP C@+ ( a2 a1+1 x )
- ROT C!+ ( a1+1 a2+1 )
- LOOP THEN 2DROP ;
- : MOVE- ( a1 a2 u -- )
- ?DUP IF TUCK + 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 THEN 2DROP ;
- : MOVE, ( a u -- ) H@ OVER ALLOT SWAP MOVE ;
- : PREV 3 - DUP @ - ;
|