5 lines
118 B
Forth
5 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
|