Mercurial > hg > Papers > 2011 > nobu-prosym

annotate Paper/source/factorial.cbc~ @ 86:a6135031ce35 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
modify
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Sat, 07 Jan 2012 17:43:09 +0900
parents e07c7952f237
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 __code print_factorial(int prod)
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 {
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 printf("factorial = %d\n",prod);
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 exit(0);
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 }
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 __code factorial0(int prod, int x)
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 {
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 if ( x >= 1) {
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 goto factorial0(prod*x, x-1);
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 }else{
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 goto print_factorial(prod);
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 }
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 }
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 __code factorial(int x)
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 {
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 goto factorial0(1, x);
e07c7952f237 add sources
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 }