5 lines
243 B
Text
5 lines
243 B
Text
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
|