RosettaCodeData/Task/Mutual-recursion/E/mutual-recursion-1.e
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

4 lines
130 B
Text

def [F, M] := [
fn n { if (n <=> 0) { 1 } else { n - M(F(n - 1)) } },
fn n { if (n <=> 0) { 0 } else { n - F(M(n - 1)) } },
]