Anonymous user
Pascal's triangle: Difference between revisions
no edit summary
m (→JS ES6: Updated primitives) |
No edit summary |
||
Line 1,241:
Expansion* = POINTER TO ARRAY OF LONGINT;
PROCEDURE Show*(e: Expansion);
VAR
i: INTEGER;
Line 1,253:
END Show;
PROCEDURE
VAR
expA,expB: Expansion;
Line 1,266:
BEGIN
ASSERT(p >= 0);
NEW(expA,p + 2);NEW(expB,p + 2);
FOR i := 0 TO p DO
Line 1,284 ⟶ 1,283:
expB := NIL; (* for the GC *)
RETURN expA
END GenFor;
Line 1,299 ⟶ 1,298:
RETURN
ELSIF (s.type = TextMappers.int) THEN
exp :=
Show(exp)
END;
Line 1,308 ⟶ 1,307:
END PascalTriangle.
</lang>
<pre>Execute: ^Q PascalTriangle.Do 0 1 2 3 4 5 6 7 8 9 10 11 12~</pre>
{{out}}
<pre>
1
1 1
1 2 1
Line 1,323 ⟶ 1,322:
1 10 45 120 210 252 210 120 45 10 1
1 11 55 165 330 462 462 330 165 55 11 1
1 12 66 220 495 792 924 792 495 220 66 12 1
</pre>
=={{header|D}}==
|