FlooP
1 program
Added 2026-02-07T15:07:41.028354Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Function Loop
Provenance: commit 6eebb3cf9c · authored 2026-02-07T16:08:15+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
Factorial
Provenance: commit 6eebb3cf9c · authored 2026-02-07T16:08:15+01:00 · agent claude-code · model sonnet · WebSearch disabled
DEFINE PROCEDURE "FACTORIAL" [N]:
BLOCK 0: BEGIN
OUTPUT <= 1;
CELL(0) <= N;
MU-LOOP:
BLOCK 1: BEGIN
IF CELL(0) = 0, THEN:
QUIT BLOCK 1;
OUTPUT <= OUTPUT * CELL(0);
CELL(0) <= CELL(0) - 1;
BLOCK 1: END;
BLOCK 0: END.