19 lines
382 B
Text
19 lines
382 B
Text
class MutualRecursion {
|
|
function : Main(args : String[]) ~ Nil {
|
|
for(i := 0; i < 20; i+=1;) {
|
|
f(i)->PrintLine();
|
|
};
|
|
"---"->PrintLine();
|
|
for (i := 0; i < 20; i+=1;) {
|
|
m(i)->PrintLine();
|
|
};
|
|
}
|
|
|
|
function : f(n : Int) ~ Int {
|
|
return n = 0 ? 1 : n - m(f(n - 1));
|
|
}
|
|
|
|
function : m(n : Int) ~ Int {
|
|
return n = 0 ? 0 : n - f(m(n - 1));
|
|
}
|
|
}
|