March 2014 update

Task/Ackermann-function/Perl-6/ackermann-function-1.pl6

@@ -1,7 +1,5 @@
 sub A(Int $m, Int $n) {
-
-	$m == 0  ??    $n + 1                   !!
-	$n == 0  ??  A($m - 1, 1            )   !!
-	             A($m - 1, A($m, $n - 1));
-
+    if    $m == 0 { $n + 1 }
+    elsif $n == 0 { A($m - 1, 1) }
+    else          { A($m - 1, A($m, $n - 1)) }
 }