RosettaCodeData/Task/Mutual-recursion/E/mutual-recursion-2.e

4 lines
136 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
def M
def F(n) { return if (n <=> 0) { 1 } else { n - M(F(n - 1)) } }
bind M(n) { return if (n <=> 0) { 0 } else { n - F(M(n - 1)) } }