Evaluate binomial coefficients: Difference between revisions
m
→{{header|Oberon}}: Fixed language name
(Added Easylang) |
m (→{{header|Oberon}}: Fixed language name) |
||
| (2 intermediate revisions by 2 users not shown) | |||
Line 1,911:
<pre>10</pre>
=={{header|Oberon-2}}==
{{works with|oo2c}}
<syntaxhighlight lang="oberon2">
Line 2,769:
<syntaxhighlight lang="smalltalk">binco:arg
^ (self factorial) / (arg factorial * (self-arg) factorial)</syntaxhighlight>
=={{header|Standard ML}}==
<syntaxhighlight lang="standardml">
fun binomial n k =
if k > n then 0 else
let fun f (_, 0) = 1
| f (i, d) = f (i + 1, d - 1) * i div d
in f (n - k + 1, k) end
</syntaxhighlight>
=={{header|Stata}}==
Line 3,009 ⟶ 3,018:
{{libheader|Wren-fmt}}
{{libheader|Wren-math}}
<syntaxhighlight lang="
import "./math" for Int
var binomial = Fn.new { |n, k|
| |||