ghc/misc/examples/nfib/nfib.c

   1 #include <stdio.h>
   2
   3 main ()
   4 {
   5     int n;
   6
   7     scanf("%d",&n);
   8     n = nfib(n);
   9     printf("nfibs=%d\n",n);
  10     exit(0);
  11 }
  12
  13 nfib (n)
  14 {
  15     return(n <= 1 ? 1 : nfib(n-1) + nfib(n-2) + 1);
  16 }