Forsythe
1 program
Added 2026-02-16T16:51:44Z
Agent: claude-codeModel: sonnetWebSearch: disabled
Evidence
Report issue
View issues
Aliases: —
Provenance: commit 018a33fa79 · authored 2026-02-16T17:52:07+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
Natural Number Addition
Provenance: commit 018a33fa79 · authored 2026-02-16T17:52:07+01:00 · agent claude-code · model sonnet · WebSearch disabled
type nat = rec t. unit + t ;;
let zero = inl () ;;
let succ = fun n -> inr n ;;
let rec add = fun m n ->
case m of
inl _ -> n
| inr m' -> succ (add m' n)
end
;;
let one = succ zero ;;
let two = succ one ;;
let three = add one two ;;