Project Euler Problem 1 by LISP

gistfile1.sls

(define inputMax 999)

(define (isMultiOf5 n) (if (= (modulo n 5) 0) #t #f))
(define (isMultiOf3 n) (if (= (modulo n 3) 0) #t #f))
(define (isMulti n) (if (isMultiOf3 n) #t (isMultiOf5 n)))

(define (solve n) (if (= n 0) 0 (+ (if (isMulti n) n 0) (solve (- n 1)))))
(display (solve inputMax))

LISPのれんしゅーです。
再帰まで覚えました。

きっと心優しいLISPerが添削してくれるはず