RosettaCodeData/Task/Mutual-recursion/Ursala/mutual-recursion-1.ursala

9 lines
156 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
#import std
#import nat
#import sol
#fix general_function_fixer 0
F = ~&?\1! difference^/~& M+ F+ predecessor
M = ~&?\0! difference^/~& F+ M+ predecessor