Help for this page

Select Code to Download

Select or download this

sub nCr {
  my ($n, $r) = @_;
...
  }
  $res;
}