Anonymous user
Pascal's triangle: Difference between revisions
Added Qi, translation of the last Haskell version
(→{{header|Scheme}}: Cleaner syntax) |
(Added Qi, translation of the last Haskell version) |
||
Line 1,567:
for row in pascal(4):
print(row)</lang>
=={{header|Qi}}==
{{trans|Haskell}}
<lang Qi>
(define iterate
_ _ 0 -> []
F V N -> [V|(iterate F (F V) (1- N))])
(define next-row
R -> (MAPCAR + [0|R] (append R [0])))
(define pascal
N -> (iterate next-row [1] N))
</lang>
=={{header|R}}==
| |||