d0cad3f608
Files correlati : Ricompilazione Demo : [ ] Commento : Stato dell'arte in conversione reports git-svn-id: svn://10.65.10.50/trunk@12060 c028cbd2-c16b-5b4b-a496-9718f37d4682
33 lines
363 B
Plaintext
Executable File
33 lines
363 B
Plaintext
Executable File
: 2DROP ( n1 n2 -- )
|
|
DROP DROP
|
|
;
|
|
|
|
: 2DUP ( n1 n2 -- n1 n2 n1 n2 )
|
|
OVER OVER
|
|
;
|
|
|
|
: NIP ( n1 n2 -- n2 )
|
|
SWAP DROP
|
|
;
|
|
|
|
: -ROT ( n1 n2 n3 -- n3 n1 n2 )
|
|
ROT ROT
|
|
;
|
|
|
|
: TUCK ( n1 n2 -- n2 n1 n2 )
|
|
SWAP OVER
|
|
;
|
|
|
|
: +! ( a1 n1 -- ) \ Incrementa la variabile a1 di n1
|
|
DUP
|
|
IF
|
|
OVER @ + SWAP !
|
|
ELSE
|
|
2DROP
|
|
THEN
|
|
;
|
|
|
|
: INCR ( a1 -- )
|
|
1 +!
|
|
;
|