home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DRACO / DRACO-1.ARK / FIB.DRC < prev    next >
Text File  |  1986-11-12  |  512b  |  24 lines
  1. int NTIMES = 10,    /* number of times to compute Fibonacci value */
  2.     NUMBER = 24;    /* biggest one we can compute with 16 bits */
  3.     
  4. proc fib(word x)word:
  5.  
  6.     if x > 2 then
  7.     fib(x - 1) + fib(x - 2)
  8.     else
  9.     1
  10.     fi
  11. corp;
  12.  
  13. proc main()void:
  14.     word i, value;
  15.  
  16.     writeln(NTIMES, " iterations.");
  17.  
  18.     for i from 1 upto NTIMES do
  19.     value := fib(NUMBER);
  20.     od;
  21.  
  22.     writeln("Fibonacci(", NUMBER, ") = ", value, ".");
  23. corp;
  24.