langs a-z

Task/Ackermann-function/PowerShell/ackermann-function-1.psh

@@ -0,0 +1,11 @@
+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)))
+}

Task/Ackermann-function/PowerShell/ackermann-function-2.psh

@@ -0,0 +1,6 @@
+foreach ($m in 0..3) {
+    foreach ($n in 0..6) {
+        Write-Host -NoNewline ("{0,5}" -f (ackermann $m $n))
+    }
+    Write-Host
+}