home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / 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.