Monday, November 10, 2014

Project Euler Problem 25 Common Lisp

Project Euler Problem 25

The (ceiling (log b 10)) determines if the number is 1000 digits long.

(defun problem25 ()
  (loop for a = 0 then b
        and b = 1 then (+ a b)
        counting b into term
        if (= 1000 (ceiling (log b 10)))
        return term))

No comments:

Post a Comment