fml/power.fml

   1 # FML power and multiplication.
   2 #
   3 # $Id: power.fml,v 1.1 1995/02/06 13:48:09 adam Exp $
   4
   5 \bin Mult a b {
   6         \set val 0
   7         \set l 0
   8         \while {\l \lt \b}
   9         {
  10                 \set val {\val \plus \a}
  11                 \set l {\l \plus 1}
  12         }
  13         \return \val
  14 }
  15
  16 \func Power a b {
  17         \set l 0
  18         \set val 1
  19         \while {\l \lt \b}
  20         {
  21                 \set val {\val \Mult \a}
  22                 \set l {\l \plus 1}
  23         }
  24         \return \val
  25 }
  26 \Power 3 5