4 lines
118 B
Forth
4 lines
118 B
Forth
: choose ( n k -- nCk ) 1 swap 0 ?do over i - i 1+ */ loop nip ;
|
|
|
|
5 3 choose . \ 10
|
|
33 17 choose . \ 1166803110
|