Pascal's triangle: Difference between revisions

=={{header|Arturo}}==

<lang rebol>pascalTriangle: function [n][

triangle: new [[1]]

loop 1..dec n 'x [

'triangle ++ @[map combine (last triangle)++[0] [0]++(last triangle) 'x -> x\[0] + x\[1]]

]

return triangle

]

loop pascalTriangle 10 'row [

print pad.center join.with: " " map to [:string] row 'x -> pad.center x 5 60

]</lang>

{{out}}

<pre> 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</pre>