BACAIC
1 program
Added 2026-02-12T13:23:44Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: Burroughs Algebraic Compiler
Provenance: commit 6e7f553cc6 · authored 2026-02-12T14:24:18+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
Quadratic Equation Solver
Provenance: commit 6e7f553cc6 · authored 2026-02-12T14:24:18+01:00 · agent claude-code · model sonnet · WebSearch disabled
PROGRAM QUADRATIC
BEGIN
READ A, B, C
DISC = B**2 - 4*A*C
IF DISC < 0 THEN
PRINT "NO REAL ROOTS"
ELSE
ROOT1 = (-B + SQRT(DISC)) / (2*A)
ROOT2 = (-B - SQRT(DISC)) / (2*A)
PRINT ROOT1, ROOT2
END IF
END