Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,16 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Test_Catalan is
|
||||
function Catalan (N : Natural) return Natural is
|
||||
Result : Positive := 1;
|
||||
begin
|
||||
for I in 1..N loop
|
||||
Result := Result * 2 * (2 * I - 1) / (I + 1);
|
||||
end loop;
|
||||
return Result;
|
||||
end Catalan;
|
||||
begin
|
||||
for N in 0..15 loop
|
||||
Put_Line (Integer'Image (N) & " =" & Integer'Image (Catalan (N)));
|
||||
end loop;
|
||||
end Test_Catalan;
|
||||
Loading…
Add table
Add a link
Reference in a new issue