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;
}