Programmer 7500/MAX_PROGRAMMERS.iso/INFO/MISC/IFP05.ZIP/FPDEMO.EXE/FIB

Text File | 1987-02-09 | 211 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;