Pascal's triangle: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,038: / Line 2,038: @@
 <syntaxhighlight>
 numfmt 0 4
+proc pascal n . .
-n = 13
-r[] = [ 1 ]
+   r[] = [ 1 ]
-for i to n
+   for i to n
-   rn[] = [ ]
+      rn[] = [ ]
-   l = 0
+      l = 0
-   for j to n - len r[]
+      for j to n - len r[]
-      write "  "
+         write "  "
+      .
+      for r in r[]
+         write r
+         rn[] &= l + r
+         l = r
+      .
+      print ""
+      rn[] &= l
+      swap r[] rn[]
    .
-   for r in r[]
-      write r
-      rn[] &= l + r
-      l = r
-   .
-   print ""
-   rn[] &= l
-   swap r[] rn[]
 .
+pascal 13
 </syntaxhighlight>