Y箱

三角数で五角数で六角数であるようなもので40755の次の数をみつける問題。

三角数かどうかと五角数かどうかの判定は作ってある。
六角数を順に作って三角数で五角数かどうかの確認をした。

hexagonal?は使わないけど、作っておいた。

;;
;; Problem 45  : 2011/6/13
;; "Elapsed time: 248.191879 msecs"

(defn hexagonal [n]
  (* n (- (* 2 n) 1)))

(defn hexagonal? [n]
  (zero? (rem (+ 1 (sqrt (+ 1 (* 8 n)))) 4)))


(take 3
(filter (fn [x]
          (and (triangle-num? n)
               (pentagonal? n)))
        (map hexagonal (iterate inc 1))))

;;