RosettaCodeData/Task/Mutual-recursion/TI-89-BASIC/mutual-recursion.basic

3 lines
88 B
Plaintext

Define F(n) = when(n=0, 1, n - M(F(n - 1)))
Define M(n) = when(n=0, 0, n - F(M(n - 1)))