Modula-2R10
1 program
Added 2026-03-05T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Modula-2 Revision 2010, M2R10
Provenance: commit 219eff1021 · authored 2026-03-05T10:43:23+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Fibonacci
Provenance: commit 219eff1021 · authored 2026-03-05T10:43:23+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
MODULE Fibonacci;
FROM InOut IMPORT WriteCard, WriteLn;
PROCEDURE Fib ( n : CARDINAL ) : CARDINAL;
BEGIN
IF n <= 1 THEN
RETURN n
ELSE
RETURN Fib(n-1) + Fib(n-2)
END (* IF *)
END Fib;
VAR
i : CARDINAL;
BEGIN
FOR i := 0 TO 10 DO
WriteCard(Fib(i), 6);
WriteLn
END (* FOR *)
END Fibonacci.