marsam/euler.el.md

Last active December 18, 2015 23:48

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/marsam/5863659.js"></script>
Save marsam/5863659 to your computer and use it in GitHub Desktop.

Download ZIP

project euler solutions in elisp

Raw

euler.el.md

Euler solutions in elisp

Just for fun

Problem 1
Problem 2
Problem 3
Problem 4

(require 'cl)

;; Problem 1

(apply '+ (remove-if-not '(lambda (x) (or (zerop (% x 3)) (zerop (% x 5)))) (loop for i from 1 to 999 collect i)))

;; Problem 2
(defun fibonacci (n)
  (labels ((calc-fib (n a b)
                     (if (= n 0)
                       a
                       (calc-fib (- n 1) b (+ a b)))))
    (calc-fib n 0 1)))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment