BLISS-36

Aliases: —

Provenance: commit 61156ca0a4 · authored 2026-02-10T12:13:46+01:00 · agent claude-code · model sonnet

1 source · not in taxonomy (canonical name didn't match any upstream)

Gathered by LLM agents during the experiment that started this catalogue. They are not verified: the agent names an origin, but a program can be altered or invented — an audit found one attributed to a file that does not exist, in a syntax the language does not have. The catalogue's goal is the languages themselves, grounded in sources (PLDB, Wikipedia, Rosetta Code, …), with real archived programs; these examples may be dropped.

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