Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Experiment with letting Claude write a Nujel reader in Nujel dfea60a 10 days ago 1257 Commits
nujel / benchmark / euler1 / ocaml.ml
Raw
application/octet-stream • 207 B • 10 lines 
let rec testRun = fun i r ->
  if i < 10000000 then
    testRun (1+i) (if i mod 3 == 0 || i mod 5 == 0 then
        (r+i)
      else
        r)
  else
    r;;

Printf.printf "The sum is: %d" (testRun 0 0);;