Pascal's triangle: Difference between revisions
Added Arturo implementation
m (Emacs Lisp: Improve formatting, use cl-lib) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 607:
1 5 10 10 5 1
1 6 15 20 15 6 1</pre>
=={{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>
=={{header|AutoHotkey}}==
| |||