Source

project-euler / project-euler / 5.lisp

1
2
3
4
5
6
7
8
9
; This aims to be a solution for:
; http://projecteuler.net/index.php?section=problems&id=5
(asdf:oos 'asdf:load-op :iterate)
(use-package :iterate)

(format t "Total = ~A~%"
        (iter (for i from 1 to 20)
              (reducing i by #'lcm initial-value 1 into retlcm)
              (finally (return retlcm))))