home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / a / armbob / bench / BobFile3 < prev   
Encoding:
Text File  |  1994-07-14  |  175 b   |  15 lines
  1. /* Test 3 - fibonacci */
  2. main()
  3. {
  4.  n = 10;
  5.  t = time();
  6.  for (i=1;i<n;i++)
  7.    print(f(i),"\n");
  8.  print(time()-t," 1/100-secs\n");
  9. }
  10.  
  11. f(x)
  12. {
  13.  return (x<2)?x:(f(x-1)+f(x-2));
  14. }
  15.