Pascal's triangle: Difference between revisions
Content added Content deleted
(→{{header|Scheme}}: Cleaner syntax) |
(Added Qi, translation of the last Haskell version) |
||
Line 1,567: | Line 1,567: | ||
for row in pascal(4): |
for row in pascal(4): |
||
print(row)</lang> |
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}}== |
=={{header|R}}== |