RosettaCodeData/Task/Ackermann-function/Hoon/ackermann-function.hoon
2023-07-01 13:44:08 -04:00

6 lines
96 B
Text

|= [m=@ud n=@ud]
?: =(m 0)
+(n)
?: =(n 0)
$(n 1, m (dec m))
$(m (dec m), n $(n (dec n)))