RosettaCodeData/Task/Ackermann-function/MLite/ackermann-function-1.mlite

4 lines
120 B
Plaintext

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