Evaluate binomial coefficients: Difference between revisions
m
→{{header|Oberon}}: Fixed language name
m (→{{header|Oberon}}: Fixed language name) |
|||
| (3 intermediate revisions by 3 users not shown) | |||
Line 858:
ReadLn;
end.</syntaxhighlight>
=={{header|EasyLang}}==
<syntaxhighlight>
func binomial n k .
if k > n / 2
k = n - k
.
numer = 1
for i = n downto n - k + 1
numer = numer * i
.
denom = 1
for i = 1 to k
denom = denom * i
.
return numer / denom
.
print binomial 5 3
</syntaxhighlight>
=={{header|Elixir}}==
Line 1,892 ⟶ 1,911:
<pre>10</pre>
=={{header|Oberon-2}}==
{{works with|oo2c}}
<syntaxhighlight lang="oberon2">
Line 2,750 ⟶ 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 2,990 ⟶ 3,018:
{{libheader|Wren-fmt}}
{{libheader|Wren-math}}
<syntaxhighlight lang="
import "./math" for Int
var binomial = Fn.new { |n, k|
| |||