choose

one of the documented procedures in this installation of the ACS
Usage:
choose   n   k
What it does:
Here's how to compute 'n choose k' like a real nerd.
Defined in: /web/philip/tcl/ad-functional.tcl

Source code:


    fold mul 1 [transpose [list [iterate $k "flip - 1" $n] [enum_from_to 1 $k]]]


philg@mit.edu