importing projecteuler into git

[srid.projecteuler.git] / 1.scm

(require (only (lib "1.ss" "srfi") filter))\r
\r
(define (numbers a b)\r
  (cond ((> a b) null)\r
        (else (cons a (numbers (add1 a) b)))))\r
\r
(apply + (filter (lambda (x)\r
                   (or (= (modulo x 3) 0)\r
                       (= (modulo x 5) 0)))\r
                 (numbers 1 999)))