Another from Alistair Gee:
(defun euler-1 () (labels ((sum-d (n) (let ((m (truncate 999 n))) (/ (* n m (1+ m)) 2)))) (- (+ (sum-d 3) (sum-d 5)) (sum-d 15))))
Another from Alistair Gee:
(defun euler-1 ()
(labels ((sum-d (n)
(let ((m (truncate 999 n)))
(/ (* n m (1+ m)) 2))))
(- (+ (sum-d 3)
(sum-d 5))
(sum-d 15))))