7 lines
143 B
Text
7 lines
143 B
Text
[ tuck - over
|
|
1 swap times
|
|
[ over i + 1+ * ]
|
|
nip swap times
|
|
[ i 1+ / ] ] is binomial ( n n --> n )
|
|
|
|
5 3 binomial echo
|