summaryrefslogtreecommitdiff
path: root/trunk/Examples/octave/contract/example.c
blob: 1a644543fadcdbc5a2636196add599b9228fbd95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
/* File : example.c */

/* A global variable */
double Foo = 3.0;

/* Compute the greatest common divisor of positive integers */
int gcd(int x, int y) {
  int g;
  g = y;
  while (x > 0) {
    g = x;
    x = y % x;
    y = g;
  }
  return g;
}

int fact(int n) {
  if (n <= 0) return 1;
  return n*fact(n-1);
}