Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/demo/Fib

Text File | 1987-07-05 | 195 b | 16 lines

(*
 * Compute nth fibonacci number
 *
 * Examples:
 *
 *    6 : Fib -> 8
 *    7 : Fib -> 13
 *    8 : Fib -> 21
 *)

DEF Fib AS
   IF [id,#2] | < THEN id
   ELSE
      sub1 | [Fib,sub1|Fib] | +
   END;