gistfile1.sls

;; def m(n, l)
;;   t = 0
;;   u = n
;;   while u < l
;;     t = t + u
;;     u = u + n
;;   end
;;
;;   t
;; end

(define (m n l)
  (let loop ((t 0) (u n))
    (if (< u l)
        (loop (+ t u) (+ u n))
        t)))

;; def sm(a, b, l)
;;   c = a * b
;;   m(a, l) + m(b, l) - m(c, l)
;; end

(define (sm a b l)
  (let ((c (* a b)))
    (- (+ (m a l) (m b l))
       (m c l))))

;; def euler1
;;   sm(3, 5, 10000)
;; end

(define (euler1)
  (sm 3 5 10000))

;; puts euler1
(display (euler1))
(newline)