quakeforge/ruamoko/qwaq/gcd.r

22 lines
266 B
R
Raw Normal View History

void printf (string fmt, ...) = #0;
void traceon (void) = #0;
int x, y;
int
gcd (int a, int b)
{
if (b == 0) return a;
else return gcd (b, a % b);
}
int
main (int argc, string *argv)
{
traceon ();
x = 130;
y = 120;
printf ("%d\n", gcd (x, y));
return 0;
}