home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
p4_19dc.seq
< prev
next >
Wrap
Text File
|
1990-04-15
|
1KB
|
58 lines
\ Problem 4.19 04/15/90 19:52:01.23
: PDUP ( n -- nn P )
P@ >P ;
: PDROP ( n -- P )
P> DROP ;
: PSWAP ( n m -- m n P )
P> P> SWAP >P >P ;
: POVER ( n1 n2 -- n1 n2 n1 P )
P> P> DUP >P SWAP >P >P ;
: PROT ( n1 n2 n3 -- n2 n3 n1 P )
P> P> P> SWAP >P SWAP >P >P ;
: -PROT ( n1 n2 n3 -- n3 n2 n1 P )
P> P> P> -ROT >P >P >P ;
: PTUCK ( n1 n2 -- n2 n1 n2 P )
P> P> OVER >P >P >P ;
: PNIP ( n1 n2 -- n2 P )
P> P> DROP >P ;
: 2PDUP ( n1 n2 -- n1 n2 n1 n2 P )
P> P@ OVER >P >P >P ;
: 3PDUP ( n1 n2 n3 -- n1 n2 n3 n1 n2 n3 P )
P> P> P@ 2 PICK 2 PICK >P >P >P >P >P ;
: 2PSWAP ( n1 n2 n3 n4 -- n3 n4 n1 n2 P )
P> P> P> P> 2SWAP >P >P >P >P ;
: 2PDROP ( n1 n2 -- P )
P> P> 2DROP ;
: 2POVER ( n1 n2 n3 n4 -- n1 n2 n3 n4 n1 n2 P )
P> P> P> P> 2DUP >P >P 2SWAP >P >P >P >P ;
: P+ ( n1 n2 -- sum P )
P> P> + >P ;
: P- ( n1 n2 -- n1-n2 P )
P> P> SWAP - >P ;
: P* ( n1 n2 -- n3 P )
P> P> * >P ;
: P/ ( n1 n2 -- n1/n2 P )
P> P> SWAP / >P ;