Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) Added some ARM CI tests 344c2b0 9 months ago 1245 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);;