5 lines
132 B
Text
5 lines
132 B
Text
|
((dup 0 ==) 'succ (dup pred) '* linrec) :fact
|
||
|
|
('dup dip dup ((fact) () (- fact) (fact * div)) spread) :binomial
|
||
|
|
|
||
|
|
5 3 binomial puts!
|