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]]]