Re: Re: Binomial Golf

[Arguile]

Check the thread Binomial Expansion there's a really interesting n choose r sub there by ariels and a proof underneath by japhy. (Among other things)

# copy of said subroutine

sub nCr {
  my ($n, $r) = @_;
  my $res = 1;
  for my $i (1..$r) {
    $res *= $n--;
    $res /= $i;
  }
  $res;
}

[gumpu]

Thanks! That's a very elegant solution. I spend a day or so comming up with a program to do the same. And that was about a page long. Very nifty.

Have Fun