Evaluate binomial coefficients: Difference between revisions

Content added Content deleted
m (→‎{{header|Sidef}}: including "bigint" is no longer required)
Line 1,304: Line 1,304:
=={{header|Oforth}}==
=={{header|Oforth}}==


<lang Oforth>: binomial(n, k) { | i | 1 k loop: i [ n i - 1 + * i / ] }</lang>
<lang Oforth>: binomial(n, k) | i | 1 k loop: i [ n i - 1+ * i / ] ;</lang>


{{out}}
{{out}}
<pre>
<pre>
>5 3 binomial .
>binomial(5, 3) println
10
10
</pre>
</pre>