Mercurial > hg > Members > nobuyasu > CbC
view fibonacci/fibonacci.cbc @ 13:f29ec9081099 draft
modify fibonacci2.cbc
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 15 Jun 2012 04:18:53 +0900 |
parents | 18d2a590bc10 |
children |
line wrap: on
line source
#include <stdio.h> #include <stdlib.h> __code print(__rectype *p, long int num, long int count, long int result, long int prev) { printf("fibonacci(%lld) = %lld\n",num,result); exit(0); } __code fibonacci(__rectype *p, long int num, long int count, long int result, long int prev) { if (count == 0) { result += 0; count++; } else if (count == 1) { result += 1; count++; } else if (count > 1){ long int tmp = prev; prev = result; result = result + tmp; count++; } else { printf("please enter nutural number\n"); exit(0); } if (num < count) goto p(fibonacci, num, count, result, prev); goto fibonacci(p, num, count, result, prev); } int main(int argc, char* argv[]) { if (argc < 2) { printf("usage: ./fibonacci number \n"); exit(0); } long int num = (long int)atoi(argv[1]); goto fibonacci(print, num, 0, 0, 0); return 0; }