RosettaCodeData/Task/Mutual-recursion/Ursala/mutual-recursion-1.ursala
2023-07-01 13:44:08 -04:00

8 lines
156 B
Text

#import std
#import nat
#import sol
#fix general_function_fixer 0
F = ~&?\1! difference^/~& M+ F+ predecessor
M = ~&?\0! difference^/~& F+ M+ predecessor