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