Mercurial > hg > Papers > 2011 > nobu-prosym

comparison Paper/source/#factorial.cbc# @ 47:e07c7952f237

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add sources
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Wed, 23 Nov 2011 02:27:44 +0900
parents
children
comparison
equal deleted inserted replaced
46:db63cc25d890 47:e07c7952f237
1 __code print_factorial(int prod)
2 {
3 printf("factorial = %d\n",prod);
4 exit(0);
5 }
6 __code factorial0(int prod, int x)
7 {
8 if ( x >= 1) {
9 goto factorial0(prod*x, x-1);
10 }else{
11 goto print_factorial(prod);
12 }
13 }
14 __code factorial(int x)
15 {
16 goto factorial0(1, x);
17 }
18 int main(int argc, char **argv)
19 {
20 int i;
21 i = atoi(argv[1]);
22
23 goto factorial(i);
24 }