Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,27 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
procedure Test_Binomial is
|
||||
function Binomial (N, K : Natural) return Natural is
|
||||
Result : Natural := 1;
|
||||
M : Natural;
|
||||
begin
|
||||
if N < K then
|
||||
raise Constraint_Error;
|
||||
end if;
|
||||
if K > N/2 then -- Use symmetry
|
||||
M := N - K;
|
||||
else
|
||||
M := K;
|
||||
end if;
|
||||
for I in 1..M loop
|
||||
Result := Result * (N - M + I) / I;
|
||||
end loop;
|
||||
return Result;
|
||||
end Binomial;
|
||||
begin
|
||||
for N in 0..17 loop
|
||||
for K in 0..N loop
|
||||
Put (Integer'Image (Binomial (N, K)));
|
||||
end loop;
|
||||
New_Line;
|
||||
end loop;
|
||||
end Test_Binomial;
|
||||
|
|
@ -1,15 +1,10 @@
|
|||
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
|
||||
if k > n / 2 : k = n - k
|
||||
num = 1
|
||||
for i = n - k + 1 to n : num *= i
|
||||
den = 1
|
||||
for i = 1 to k : den *= i
|
||||
return num / den
|
||||
.
|
||||
print binomial 5 3
|
||||
print binomial 49 6
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@ function binomial(n, k: integer): biginteger;
|
|||
begin
|
||||
result := 1bi;
|
||||
for var i := 1 to k do
|
||||
result = result * (n - i + 1) div i;
|
||||
result := result * (n - i + 1) div i;
|
||||
end;
|
||||
|
||||
Println(binomial(5, 3))
|
||||
|
|
|
|||
|
|
@ -1,9 +1,7 @@
|
|||
-->
|
||||
<span style="color: #008080;">global</span> <span style="color: #008080;">function</span> <span style="color: #000000;">choose</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">k</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #004080;">atom</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">k</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">(</span><span style="color: #000000;">res</span><span style="color: #0000FF;">*(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">-</span><span style="color: #000000;">i</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">))/</span><span style="color: #000000;">i</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
|
||||
<!--
|
||||
global function choose(integer n, k)
|
||||
atom res = 1
|
||||
for i=1 to k do
|
||||
res = (res*(n-i+1))/i
|
||||
end for
|
||||
return res
|
||||
end function
|
||||
|
|
|
|||
|
|
@ -1,3 +1 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">choose</span><span style="color: #0000FF;">(</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>
|
||||
<!--
|
||||
?choose(5,3)
|
||||
|
|
|
|||
|
|
@ -1,11 +1,9 @@
|
|||
(phixonline)-->
|
||||
<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
|
||||
<span style="color: #008080;">include</span> <span style="color: #000000;">builtins</span><span style="color: #0000FF;">\</span><span style="color: #004080;">mpfr</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
|
||||
<span style="color: #004080;">sequence</span> <span style="color: #000000;">tests</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{{</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">3</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">100</span><span style="color: #0000FF;">,</span><span style="color: #000000;">50</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">60</span><span style="color: #0000FF;">,</span><span style="color: #000000;">30</span><span style="color: #0000FF;">},{</span><span style="color: #000000;">1200</span><span style="color: #0000FF;">,</span><span style="color: #000000;">120</span><span style="color: #0000FF;">}}</span>
|
||||
<span style="color: #004080;">mpz</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">mpz_init</span><span style="color: #0000FF;">()</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">tests</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #004080;">integer</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">n</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">tests</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span>
|
||||
<span style="color: #7060A8;">mpz_bin_uiui</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">,</span><span style="color: #000000;">n</span><span style="color: #0000FF;">,</span><span style="color: #000000;">k</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">mpz_get_str</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<!--
|
||||
with javascript_semantics
|
||||
include builtins\mpfr.e
|
||||
sequence tests = {{5,3},{100,50},{60,30},{1200,120}}
|
||||
mpz r = mpz_init()
|
||||
for i=1 to length(tests) do
|
||||
integer {n,k} = tests[i]
|
||||
mpz_bin_uiui(r,n,k)
|
||||
?mpz_get_str(r)
|
||||
end for
|
||||
|
|
|
|||
|
|
@ -1,17 +0,0 @@
|
|||
function choose($n,$k) {
|
||||
if($k -le $n -and 0 -le $k) {
|
||||
$numerator = $denominator = 1
|
||||
0..($k-1) | foreach{
|
||||
$numerator *= ($n-$_)
|
||||
$denominator *= ($_ + 1)
|
||||
}
|
||||
$numerator/$denominator
|
||||
} else {
|
||||
"$k is greater than $n or lower than 0"
|
||||
}
|
||||
}
|
||||
choose 5 3
|
||||
choose 2 1
|
||||
choose 10 10
|
||||
choose 10 2
|
||||
choose 10 8
|
||||
|
|
@ -1,21 +0,0 @@
|
|||
Function binomial(n,k)
|
||||
binomial = factorial(n)/(factorial(n-k)*factorial(k))
|
||||
End Function
|
||||
|
||||
Function factorial(n)
|
||||
If n = 0 Then
|
||||
factorial = 1
|
||||
Else
|
||||
For i = n To 1 Step -1
|
||||
If i = n Then
|
||||
factorial = n
|
||||
Else
|
||||
factorial = factorial * i
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Function
|
||||
|
||||
'calling the function
|
||||
WScript.StdOut.Write "the binomial coefficient of 5 and 3 = " & binomial(5,3)
|
||||
WScript.StdOut.WriteLine
|
||||
Loading…
Add table
Add a link
Reference in a new issue