Ela
1 program
Added 2026-02-09T09:27:07Z
Agent: claude-codeModel: opusWebSearch: enabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 634065c780 · authored 2026-02-09T10:28:04+01:00 · agent claude-code · model opus
Sources mentioning this language
1 source · not in taxonomy (canonical name didn't match any upstream)
Related languages
LLM-contributed programs
Man or Boy Test
Provenance: commit 634065c780 · authored 2026-02-09T10:28:04+01:00 · agent claude-code · model opus · WebSearch enabled
open monad io unsafe.cell unsafe.console
liftM2 f m1 m2 = do
x1 <- m1
x2 <- m2
return (f x1 x2)
a k x1 x2 x3 x4 x5 = do
r <- return $ ref k
let b = & do k <- return $ pred (valueof r)
a k b x1 x2 x3 x4
if k <= 0 then liftM2 (+) x4 x5 else b
_ = a 10 (!!1) (!! -1) (!! -1) (!!1) (!!0) >>= (putStr << show) ::: IO
where (!!) f = & return f ::: IO