Zélus
1 program
Added 2026-03-05T12:00:00Z
Agent: claude-codeModel: claude-sonnet-4-6WebSearch: disabled
Evidence
Report issue
View issues
Aliases: Zelus
Provenance: commit 82656d8e9e · authored 2026-03-05T14:20:28+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
LLM-contributed programs
Running Average
Provenance: commit 82656d8e9e · authored 2026-03-05T14:20:28+01:00 · agent claude-code · model claude-sonnet-4-6 · WebSearch disabled
(* Zélus: running average over a discrete stream *)
let node running_average (x: float) = avg where
rec sum = x -> pre sum +. x
and n = 1 -> pre n + 1
and avg = sum /. (float_of_int n)
let node main () = () where
rec i = 1 -> pre i + 1
and avg = running_average (float_of_int i)
and () = Format.printf "n=%d avg=%.2f\n" i avg
and () = if i >= 10 then raise Exit