Evaluate binomial coefficients: Difference between revisions
Content added Content deleted
(→{{header|Erlang}}: infinite loop unless you add this clause) |
|||
Line 635: | Line 635: | ||
=={{header|Erlang}}== |
=={{header|Erlang}}== |
||
<lang erlang> |
<lang erlang> |
||
choose(N, 0) -> 1; |
|||
choose(N, K) when is_integer(N), is_integer(K), (N >= 0), (K >= 0), (N >= K) -> |
choose(N, K) when is_integer(N), is_integer(K), (N >= 0), (K >= 0), (N >= K) -> |
||
choose(N, K, 1, 1). |
choose(N, K, 1, 1). |
||
Line 643: | Line 644: | ||
choose(N, K, I+1, (Acc * (N-I+1)) div I). |
choose(N, K, I+1, (Acc * (N-I+1)) div I). |
||
</lang> |
</lang> |
||
=={{header|ERRE}}== |
=={{header|ERRE}}== |