home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_4dc.seq < prev    next >
Text File  |  1990-04-10  |  1KB  |  36 lines
  1. \ Problem 4.4    04/10/90 18:56:59.54
  2.  
  3.  
  4. VARIABLE SEED  1234 SEED !
  5. VARIABLE UNDER_SEVEN
  6. VARIABLE SEVEN
  7. VARIABLE OVER_SEVEN
  8.  
  9. : (RND)         ( -- r )
  10.         SEED @ 259 * 3 + 32767 AND DUP SEED ! ;
  11.  
  12. : RND           ( n -- r )
  13.         (RND) 32767 */ ;
  14.  
  15. : DICE          ( -- die1 die2 )
  16.         6 RND 1+ 6 RND 1+ ;
  17.  
  18. : TRIALS        ( n -- )
  19.         0 UNDER_SEVEN !
  20.         0 SEVEN !
  21.         0 OVER_SEVEN !
  22.         ABS DUP 0 ?DO
  23.                 DICE + DUP 7 < IF OVER_SEVEN  @ 1+ OVER_SEVEN  ! ELSE
  24.                        DUP 7 > IF UNDER_SEVEN @ 1+ UNDER_SEVEN ! ELSE
  25.                                   SEVEN       @ 1+ SEVEN       !
  26.                 THEN THEN DROP
  27.         LOOP
  28.         CR 5 SPACES ." Number of Trials" 5 SPACES ." Under Seven"
  29.            5 SPACES ." Seven"            5 SPACES ." Over Seven"
  30.         CR 5 SPACES ." ----------------" 5 SPACES ." -----------"
  31.            5 SPACES ." -----"            5 SPACES ." ----------"
  32.         CR 5 SPACES 9 .R                12 SPACES UNDER_SEVEN @ 7 .R
  33.           10 SPACES SEVEN @ 3 .R         7 SPACES OVER_SEVEN @ 6 .R ;
  34.  
  35.  
  36.