Login

Ben / Nujel

Overview Code Talk CI Settings
7 branches 0 tags
Ben (X13/Arch) [closure/meta] -> [meta] and [closure/meta!] -> [meta!] db7b2d8 3 years ago 683 Commits
nujel / benchmark / euler1 / common.lisp
Raw
application/octet-stream • 213 B • 10 lines 
(defun test ()
  (let ((ret 0))
    (dotimes (i 10000000)
      (when (or (zerop (mod i 3))
                (zerop (mod i 5)))
        (incf ret i)))
    ret))

(compile 'test)
(format T "THE SUM IS ~a~%" (test))