Pascal's triangle: Difference between revisions
order nial
(order nial) |
|||
Line 324:
pascal = iterate nextRow [1]
</pre>
=={{header|Nial}}==▼
Like J▼
(pascal.nial)▼
factorial is recur [ 0 =, 1 first, pass, product, -1 +]▼
combination is fork [ > [first, second], 0 first, ▼
/ [factorial second, * [factorial - [second, first], factorial first] ]▼
]▼
pascal is transpose each combination cart [pass, pass] tell▼
Using it▼
|loaddefs 'pascal.nial'▼
|pascal 5▼
=={{header|J}}==
Line 428 ⟶ 416:
}
}</java>
▲=={{header|Nial}}==
▲Like J
▲(pascal.nial)
▲ factorial is recur [ 0 =, 1 first, pass, product, -1 +]
▲ combination is fork [ > [first, second], 0 first,
▲ / [factorial second, * [factorial - [second, first], factorial first] ]
▲ ]
▲ pascal is transpose each combination cart [pass, pass] tell
▲Using it
▲ |loaddefs 'pascal.nial'
▲ |pascal 5
=={{header|OCaml}}==
|