BLISS-36
1 program
Added 2026-02-10T12:00:00Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 61156ca0a4 · authored 2026-02-10T12:13:46+01:00 · agent claude-code · model sonnet
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Recursive Factorial Calculator
Provenance: commit 61156ca0a4 · authored 2026-02-10T12:13:46+01:00 · agent claude-code · model sonnet · WebSearch disabled
MODULE FACTORIAL =
BEGIN
FORWARD ROUTINE
FACT : NOVALUE;
ROUTINE FACT (N) =
BEGIN
LOCAL RESULT;
IF .N LEQ 1
THEN RESULT = 1
ELSE RESULT = .N * FACT(.N - 1);
RETURN .RESULT
END;
ROUTINE MAIN : NOVALUE =
BEGIN
LOCAL I;
INCR I FROM 1 TO 10 DO
$PRINT('Factorial of ', .I, ' is ', FACT(.I))
END;
END
ELUDOM