#!/usr/bin/env nujel
;; Multiples of 3 or 5 below 10,000,000
;; https://projecteuler.net/problem=1
(defn bench-run ()
(def ret 0)
(dotimes (i 10,000,000 ret)
(when (or (zero? (rem i 3))
(zero? (rem i 5)))
(set! ret (+ ret i)))))
(pfmtln "The sum is: {}\nGC Runs: {}" (bench-run) (garbage-collection-runs))
