Pascal's triangle: Difference between revisions
Content deleted Content added
No edit summary |
|||
Line 785: | Line 785: | ||
For n = 0, prints nothing. For negative n, throws an exception. |
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}}== |
=={{header|Perl}}== |
||
<lang perl>sub pascal |
<lang perl>sub pascal |