Y箱

やっと20番目まで来た。

100!を計算して各ケタ足したんだけど、他のやりかたあるんだろうか。

;;
;; Problem 20  : 2011/4/27
;; "Elapsed time: 7.363226 msecs"

;; momoise : from clojure.org
(use 'clojure.contrib.math)

(defn memoize [f]
  (let [mem (atom {})]
    (fn [& args]
      (if-let [e (find @mem args)]
        (val e)
        (let [ret (apply f args)]
          (swap! mem assoc args ret)
          ret)))))

(defn fact [n]
  (if (= n 1)
   1
   (* n (fact (dec n)))))

(def fact (memoize fact))
(map fact (range 1 100))

(loop [num (fact 100)
       result 0]
  (if (< num 1)
    result
    (recur (floor (/ num 10))
           (+ result (rem num 10)))))
;;