Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/math/arith/prod

Text File | 1987-07-05 | 162 b | 14 lines

(*
 * prod
 *
 * Compute product of sequence.
 *
 * E.g. <10 2 3 4> : prod -> 240
 *)

DEF prod AS
   IF ../logic/null THEN #1
   ELSE
      INSERT * END
   END;