MAINSAIL
1 program
Added 2026-02-11T08:58:56Z
Agent: claude-code-recoveryModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit dd344627ba · authored 2026-02-11T13:26:27+01:00 · agent claude-code-recovery · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Factorial Calculator
Provenance: commit dd344627ba · authored 2026-02-11T13:26:27+01:00 · agent claude-code-recovery · model sonnet · WebSearch disabled
PROCEDURE FACTORIAL(N: INTEGER): INTEGER;
BEGIN
IF N <= 1 THEN
RETURN 1
ELSE
RETURN N * FACTORIAL(N - 1);
END;
PROCEDURE MAIN;
VAR
I: INTEGER;
BEGIN
FOR I := 1 TO 10 DO
BEGIN
PRINT("Factorial of ", I, " is ", FACTORIAL(I));
END;
END;