COMPASS
1 program
Added 2026-02-06T16:36:51Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: CDC COMPASS
Provenance: commit add50e13ab · authored 2026-02-06T17:37:35+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 add50e13ab · authored 2026-02-06T17:37:35+01:00 · agent claude-code · model sonnet · WebSearch disabled
IDENT FACT
* FACTORIAL PROGRAM IN COMPASS
START BEGIN
BEGIN SA1 A1 LOAD N INTO A1
SA2 =1 INITIALIZE RESULT TO 1
LOOP SA2 A1*A2 MULTIPLY
SA1 A1-B1 DECREMENT COUNTER
NZ A1,LOOP LOOP IF NOT ZERO
SA7 A2 STORE RESULT
RETURN A7
END