RosettaCodeData/Task/Ackermann-function/Oforth/ackermann-function.oforth

5 lines
99 B
Plaintext

: A(m, n)
m ifZero: [ n 1+ return ]
n ifZero: [ A(m 1-, 1) return ]
A(m 1-, A(m, n 1-)) ;