Euler: Problem 45

Posted by TAKAIY On 2011年6月29日水曜日 0 コメント
三角数で五角数で六角数であるようなもので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))))

;;

0 コメント:

コメントを投稿