fib-seq-can-devide-by-sum-of-digit.clj

; https://codeiq.jp/magazine/2013/11/2764/

(def inf-fib
  (map (fn [x] (x 1))
       (iterate
         (fn [[a b]] [b (+ a b)])
         [1 2])))

(defn sum-of-dec-string [s]
  (reduce +
          (map
            (fn [c] (Integer. (str c)))
            s)))

(defn can-devide [x]
  (=
    (mod x (sum-of-dec-string (str x)))
    0))

(take 11 (filter can-devide inf-fib))