home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / pr5_1dd.seq < prev    next >
Text File  |  1990-04-17  |  223b  |  10 lines
  1. \ Problem 5.1    Dan Dubrick    Set 14D4
  2.  
  3. : %R1 ( percent number -- )
  4.      10 */ 10 /MOD SWAP 4 > IF 1+ THEN . ;
  5.  
  6. : %R2 ( percent number -- )
  7.      10 /MOD -ROT 1 PICK 10 */ -ROT 10 */
  8.      SWAP 4 > IF 1+ THEN . ;
  9.  
  10.