B6700 Algol
1 program
Added 2026-02-11T16:37:58Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Burroughs B6700 Algol
Provenance: commit 4391b38d51 · authored 2026-02-11T17:38:56+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 Calculator
Provenance: commit 4391b38d51 · authored 2026-02-11T17:38:56+01:00 · agent claude-code · model sonnet · WebSearch disabled
BEGIN
COMMENT Sample B6700 Algol Program - Factorial Calculation;
INTEGER I, N, RESULT;
PROCEDURE FACTORIAL(N);
VALUE N;
INTEGER N;
BEGIN
INTEGER I, FACT;
FACT := 1;
FOR I := 1 STEP 1 UNTIL N DO
FACT := FACT * I;
FACTORIAL := FACT
END FACTORIAL;
N := 5;
RESULT := FACTORIAL(N);
WRITE(TEXT("FACTORIAL OF "), N, TEXT(" IS "), RESULT)
END