Ben/Nujel - benchmark/euler1/common.lisp

Ben (Win10) Added a simple test of port io and removed [file/tempname] b6dc44c 3 years ago 820 Commits

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))

Ben / Nujel