racket solutions for 1 and 2

1/euler1.rkt

@@ -0,0 +1,10 @@
+#lang racket
+
+(define (multiples limit)
+  (foldl + 0 (filter (lambda (x) (cond
+                      [(= 0 (remainder x 3)) #t]
+                      [(= 0 (remainder x 5)) #t]
+                      (else #f)))
+        (range limit))))
+
+(multiples 1000)

2/euler2.rkt

@@ -0,0 +1,13 @@
+#lang racket
+
+(define (fib i)
+  (cond [(equal? 0 i) 1]
+        [(equal? 1 i) 2]
+        (else (+ (fib (- i 1))(fib (- i 2))))))
+
+(define (fiblist it limit lst)
+  (cond [(equal? limit it) lst]
+        (else (fiblist (+ it 1) limit
+                       (cons (fib it) lst)))))
+
+(foldl + 0 (filter even? (fiblist 0 4000000 '())))