RosettaCodeData/Task/Mutual-recursion/Ursala/mutual-recursion-1.ursala
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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