aboutsummaryrefslogtreecommitdiff
path: root/comparison/SML/ack3-11.sml
blob: 4668ddbe7bda59e4bea4053c75af07765c98e63c (plain) (blame)
1
2
3
4
5
fun ack 0 n = n+1
| ack m 0 = ack (m-1) 1
| ack m n = ack (m-1) (ack m (n-1));

ack 3 11;