RosettaCodeData/Task/Ackermann-function/PowerShell/ackermann-function-1.psh
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

11 lines
216 B
Text

function ackermann ([long] $m, [long] $n) {
if ($m -eq 0) {
return $n + 1
}
if ($n -eq 0) {
return (ackermann ($m - 1) 1)
}
return (ackermann ($m - 1) (ackermann $m ($n - 1)))
}