fix example/ackermann.pn

arithmetic is whitespace sensitive: m-1. fixme
perl11 · Nov 17, 2014 · 705e97e · 705e97e
1 parent 305f5d5
commit 705e97e
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/example/ackermann.pn b/example/ackermann.pn
@@ -1,14 +1,13 @@
 ack = (m, n):
   if (m == 0): n + 1.
-  elsif (n == 0): ack(m-1, 1).
-  else: ack(m-1, ack(m, n-1)).
+  elsif (n == 0): ack(m - 1, 1).
+  else: ack(m - 1, ack(m, n - 1)).
   .
 
-# crashes
-ack(3,4) say
+#ack(3,4) say
 
-3 times(m):
-  6 times(n):
+4 times(m):
+  7 times(n):
     ack(m, n) print
     " " print
     .