RosettaCodeData/Task/Ackermann-function/Purity/ackermann-function.purity

3 lines
88 B
Plaintext

data Iter = f => FoldNat <const $f One, $f>
data Ackermann = FoldNat <const Succ, Iter>