mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Ackermann-function/Haskell/ackermann-function-1.hs

4 lines
72 B
Haskell
Raw Blame History

ack 0 n = n + 1
ack m 0 = ack (m-1) 1
ack m n = ack (m-1) (ack m (n-1))
Reference in New Issue View Git Blame Copy Permalink