No puede seleccionar más de 25 temas
Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
|
- : ABORT (resSP) QUIT ;
- : ERR LIT< (print) FIND IF EXECUTE THEN ABORT ;
- : = CMP NOT ; : < CMP -1 = ; : > CMP 1 = ;
- : 0< 32767 > ; : >= < NOT ; : <= > NOT ; : 0>= 0< NOT ;
- : >< ( n l h -- f ) 2 PICK > ( n l f ) ROT ROT > AND ;
- : =><= 2 PICK >= ( n l f ) ROT ROT >= AND ;
- : MIN ( n n - n ) 2DUP > IF SWAP THEN DROP ;
- : MAX ( n n - n ) 2DUP < IF SWAP THEN DROP ;
- : NIP SWAP DROP ; : TUCK SWAP OVER ;
- : -^ SWAP - ;
- : C@+ ( a -- a+1 c ) DUP C@ SWAP 1+ SWAP ;
- : C!+ ( c a -- a+1 ) TUCK C! 1+ ;
- : C@- ( a -- a-1 c ) DUP C@ SWAP 1- SWAP ;
- : C!- ( c a -- a-1 ) TUCK C! 1- ;
- : LEAVE R> R> DROP I 1- >R >R ; : UNLOOP R> 2R> 2DROP >R ;
|