RosettaCodeData/Task/Ackermann-function/Ela/ackermann-function.ela

4 lines
78 B
Text
Raw Permalink Normal View History

2013-04-10 16:57:12 -07:00
ack 0 n = n+1
ack m 0 = ack (m - 1) 1
ack m n = ack (m - 1) <| ack m <| n - 1