RosettaCodeData/Task/Mutual-recursion/ABC/mutual-recursion.abc
2024-04-20 12:30:13 -07:00

15 lines
227 B
Text

HOW TO RETURN f n:
IF n=0: RETURN 1
RETURN n - m f (n-1)
HOW TO RETURN m n:
IF n=0: RETURN 0
RETURN n - f m (n-1)
WRITE "F:"
FOR n IN {0..15}: WRITE f n
WRITE /
WRITE "M:"
FOR n IN {0..15}: WRITE m n
WRITE /