RosettaCodeData/Task/Evaluate-binomial-coefficients/OCaml/evaluate-binomial-coefficients-3.ocaml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
102 B
Text

open Num;;
let rec binomial n k = if n = k then Int 1 else ((binomial (n-1) k) */ Int n) // Int (n-k)