RosettaCodeData/Task/Ackermann-function/Egel/ackermann-function.egel

5 lines
123 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
def ackermann =
[ 0 N -> N + 1
| M 0 -> ackermann (M - 1) 1
| M N -> ackermann (M - 1) (ackermann M (N - 1)) ]