/trunk/Examples/ocaml/simple/example.c

 1/* File : example.c */
 2
 3/* A global variable */
 4double Foo = 3.0;
 5
 6/* Compute the greatest common divisor of positive integers */
 7int gcd(int x, int y) {
 8  int g;
 9  g = y;
10  while (x > 0) {
11    g = x;
12    x = y % x;
13    y = g;
14  }
15  return g;
16}
17
18