home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L4.ZIP / P4-17DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-15  |  458 b   |  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.