Select Code to Download

200 choose 1: 200 vs. -1.#IND (1.#QNAN).
        Rate  easy  nice
easy  1464/s    --  -96%
nice 34687/s 2270%    --

#!/usr/bin/perl -w
use strict;
use Benchmark qw( cmpthese );
...
        easy=>sub{fact($n)/fact($m)/fact($n-$m)},
    } );
}