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

: A( m n -- p )
   m ifZero: [ n 1+ return ]
   m 1- n ifZero: [ 1 ] else: [ A( m, n 1- ) ] A
;
June 2018 Update 2018-06-22 20:57:24 +00:00			`: A( m n -- p )`
Add tasks for all the new languages 2016-12-05 23:44:36 +01:00			`m ifZero: [ n 1+ return ]`
June 2018 Update 2018-06-22 20:57:24 +00:00			`m 1- n ifZero: [ 1 ] else: [ A( m, n 1- ) ] A`
			`;`