Anonymous user
Evaluate binomial coefficients: Difference between revisions
Ocaml code
(Added PicoLisp) |
(Ocaml code) |
||
Line 338:
10</lang>
=={{header|OCaml}}==
<lang OCaml>
let binomialCoeff n p =
let rec cm res num denum =
(* this method partially prevents overflow
* it also ensures an integral result *)
if denum <= p then cm ((res *. num) /. denum) (num -. 1.) (denum +. 1.)
else res in
cm 1. n 1.
</lang>
=={{header|Oz}}==
|