;Project Euler Problem 1 Sum of all multiples of 3 and 5 below 1000

;Iterative
(define (multSum number)
  (define (multSum-iter number sum)

    (cond ((= 0 number) sum)
          ((or (= (remainder number 3) 0) (= (remainder number 5) 0)) (multSum-iter (sub1 number) (+ sum number)))
          (else (multSum-iter (sub1 number) sum))))

  (multSum-iter (sub1 number) 0)
  )

;Rekursive
(define (multSum-rek number)
  (cond ((= 0 number) 0)
        ((or (= (remainder number 3) 0) (= (remainder number 5) 0)) (+ (multSum-rek (sub1 number)) number))
        (else (multSum-rek (sub1 number))))
  )