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

4 lines
120 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fun ackermann( 0, n ) = n + 1
| ( m, 0 ) = ackermann( m - 1, 1 )
| ( m, n ) = ackermann( m - 1, ackermann(m, n - 1) )