home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / mltiscop / fibon.c < prev    next >
Encoding:
Text File  |  1989-07-28  |  244 b   |  16 lines
  1. /* Fibonacci numbers */
  2.  
  3. unsigned int dofibon(i,j,limit)
  4. unsigned int i,j,limit;
  5. {
  6.     if (j>limit) return i;
  7.     else return dofibon(j, i+j,limit);
  8. }
  9.  
  10. unsigned int Fibonacci(limit)
  11. unsigned int limit;
  12. {
  13.     return dofibon(1,2,limit);
  14. }
  15.  
  16.