\ 4tH library - Binomial Coefficient - Copyright 2010 J.L. Bezemer
\ You can redistribute this file and/or modify it under
\ the terms of the GNU General Public License

[UNDEFINED] binomial [IF]              ( n k -- r)
: binomial 1 swap 0 ?do over * i 1+ / swap 1- swap loop nip ;
[THEN]

\ 7 3 binomial . ( 35)
\ 4 2 binomial . (  6)