Anonymous user
Pascal's triangle: Difference between revisions
no edit summary
No edit summary |
|||
Line 785:
For n = 0, prints nothing. For negative n, throws an exception.
=={{header|Pari}}==
<lang Pari>pascals_triangle(N)= {
my(row=[],prevrow=[]);
for(x=1,N,
if(x>5,break(1));
row=eval(Vec(Str(11^(x-1))));
print(row));
prevrow=row;
for(y=6,N,
for(p=2,#prevrow,
row[p]=prevrow[p-1]+prevrow[p]);
row=concat(row,1);
prevrow=row;
print(row);
);
}</lang>
=={{header|Perl}}==
<lang perl>sub pascal
| |||