home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_17dc.seq < prev    next >
Text File  |  1990-04-15  |  458b  |  27 lines
  1. \ Problem 4.17   04/15/90 19:16:23.64
  2.  
  3.  
  4. CREATE DATA 20 ALLOT
  5.  
  6. : DATA@         ( i -- n )
  7.         10 MOD 2* DATA + @ ;
  8.  
  9. : DATA!         ( n i -- )
  10.         10 MOD 2* DATA + ! ;
  11.  
  12. : CLEAR-DATA    ( -- )
  13.         DATA 20 ERASE ;
  14.  
  15. : COUNT-DATA    ( -- k )
  16.         0
  17.         10 0 DO I DATA@ IF 1+ THEN LOOP ;
  18.  
  19. : SUM-DATA      ( -- sum )
  20.         0
  21.         10 0 DO I DATA@ + LOOP ;
  22.  
  23. : AVERAGE-DATA  ( -- )
  24.         SUM-DATA COUNT-DATA / . ;
  25.  
  26.  
  27.