Skip to content

Instantly share code, notes, and snippets.

@thisiswei

thisiswei/project-euler-1.rkt

Created February 20, 2013 01:04
Show Gist options
  • Save thisiswei/4991785 to your computer and use it in GitHub Desktop.
Save thisiswei/4991785 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
project-euler-1.rkt
(define (ps1 x)
(if (equal? 0 x)
0
(if (or (equal? 0 (modulo x 3)) (equal? 0 (modulo x 5)))
(+ x (ps1 (- x 1)))
(ps1 (- x 1)))))
(ps1 999)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment