15 lines
308 B
Text
15 lines
308 B
Text
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);
|
|
);
|
|
}
|