Evaluate binomial coefficients: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
|||
Line 28: | Line 28: | ||
return nValue; |
return nValue; |
||
}</lang> |
}</lang> |
||
=={{header|Tcl}}== |
|||
This uses exact arbitrary precision integer arithmetic. |
|||
<lang tcl>package require Tcl 8.5 |
|||
proc binom {n k} { |
|||
set pTop 1 |
|||
for {set i $n} {$i > $n - $k} {incr i -1} { |
|||
set pTop [expr {$pTop * $i}] |
|||
} |
|||
set pBottom 1 |
|||
for {set i $k} {$i > 1} {incr i -1} { |
|||
set pBottom [expr {$pBottom * $i}] |
|||
} |
|||
return [expr {$pTop / $pBottom}] |
|||
}</lang> |
|||
Demonstrating: |
|||
<lang tcl>puts "60_C_30 = [binom 60 30]"</lang> |
|||
Output: |
|||
<pre>60_C_30 = 118264581564861424</pre> |