home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L3.ZIP / P3-28DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-06  |  201 b   |  10 lines
  1. \ Problem 3.28 by Dickson Cheng  04/06/90 14:06:25.09
  2.  
  3.  
  4. : AVERAGE       ( x1 f1 x2 f2 ... xk fk -- avg )
  5.         DEPTH 2 / >R  0 -ROT R@ 1- 0
  6.            ?DO * + -ROT LOOP
  7.         * + R> / ;
  8.  
  9.  
  10.