RosettaCodeData/Task/Ackermann-function/MLite/ackermann-function-1.mlite
2023-07-01 13:44:08 -04:00

3 lines
120 B
Text

fun ackermann( 0, n ) = n + 1
| ( m, 0 ) = ackermann( m - 1, 1 )
| ( m, n ) = ackermann( m - 1, ackermann(m, n - 1) )