Anonymous user
Pascal's triangle: Difference between revisions
{{header|Euphoria}}
No edit summary |
({{header|Euphoria}}) |
||
Line 396:
[lists:zipwith(fun(X,Y)->X+Y end,[0]++H,H++[0])|L].
</lang>
=={{header|Euphoria}}==
===Summing from Previous Rows===
<lang Euphoria>sequence row
row = {}
for m = 1 to 10 do
row = row & 1
for n = length(row)-1 to 2 by -1 do
row[n] += row[n-1]
end for
print(1,row)
puts(1,'\n')
end for</lang>
Output:
{1}
{1,1}
{1,2,1}
{1,3,3,1}
{1,4,6,4,1}
{1,5,10,10,5,1}
{1,6,15,20,15,6,1}
{1,7,21,35,35,21,7,1}
{1,8,28,56,70,56,28,8,1}
{1,9,36,84,126,126,84,36,9,1}
=={{header|Factor}}==
| |||