Keelung
1 program
Added 2026-03-05T10:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 7ec9c4d6fa · authored 2026-03-05T11:10:46+01:00 · agent claude-code · model claude-sonnet-4-6
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
Programs collected by LLM agents experimental · unverified
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.
Adder and Multiplier ZK Circuits
Provenance: commit 7ec9c4d6fa · authored 2026-03-05T11:10:46+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
import Keelung
-- | A simple adder circuit: asserts that a + b = c
adderCircuit :: Comp ()
adderCircuit = do
a <- input Public :: Comp Field
b <- input Public :: Comp Field
c <- input Public :: Comp Field
assert (a + b `eq` c)
-- | A multiplier circuit: asserts that a * b = c
multiplierCircuit :: Comp ()
multiplierCircuit = do
a <- input Public :: Comp Field
b <- input Public :: Comp Field
c <- input Public :: Comp Field
assert (a * b `eq` c)
main :: IO ()
main = do
putStrLn "Compiling adder circuit..."
result <- compile GF181 adderCircuit
case result of
Left err -> print err
Right r -> print r