Ada 95
1 program
Added 2026-03-17T12:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Ada95, Ada 9X
Provenance: commit a7187a305c · authored 2026-03-17T02:59:54+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
2 sources · pl_id:
pl/ada-95Related languages
LLM-contributed programs
Fibonacci
Provenance: commit a7187a305c · authored 2026-03-17T02:59:54+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
with Ada.Text_IO; use Ada.Text_IO;
procedure Fibonacci is
function Fib (N : Natural) return Natural is
begin
if N <= 1 then
return N;
else
return Fib (N - 1) + Fib (N - 2);
end if;
end Fib;
begin
for I in 0 .. 10 loop
Put_Line (Natural'Image (Fib (I)));
end loop;
end Fibonacci;
Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)