9 lines
205 B
Tcl
9 lines
205 B
Tcl
proc ack {m n} {
|
|
if {$m == 0} {
|
|
expr {$n + 1}
|
|
} elseif {$n == 0} {
|
|
tailcall ack [expr {$m - 1}] 1
|
|
} else {
|
|
tailcall ack [expr {$m - 1}] [ack $m [expr {$n - 1}]]
|
|
}
|
|
}
|