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