Select Code to Download

sub n_choose_k {
  my ($n, $k) = @_;
  # f($n) = $n!
  return f($n)/f($k)/f($n-$k);
}

sub n_choose_k {
  my ($n, $k) = @_;
...
  }
  return $t;
}