Dataphor
1 program
Added 2026-02-26T00:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: D4
Provenance: commit bbe1361dfd · authored 2026-02-26T12:58:10+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
2 sources · pl_id:
pl/d4Related languages
LLM-contributed programs
Fibonacci Sequence
Provenance: commit bbe1361dfd · authored 2026-02-26T12:58:10+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
// Fibonacci sequence in D4 (Dataphor)
create operator Fibonacci(const n : Integer) : Integer
begin
if n <= 1 then
result := n
else
result := Fibonacci(n - 1) + Fibonacci(n - 2);
end;
begin
var i : Integer;
var line : String;
for i := 0 to 9 do
begin
line := 'Fibonacci(' + i.ToString() + ') = ' + Fibonacci(i).ToString();
SystemMessage(line);
end;
end;
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.)