Clojure入門 - Project Eulerを解いてみる 問２９

第二十九問

a=2...100、b=2...100でa^bの取り得る個別の値の総数を求める。

bigintがあると本当にそのままで書ける。

(def powers
  (for [a (range 2 101)
        b (range 2 101)]
    (apply * (repeat b (bigint a)))))

(count (set powers))

100ms以下で走る。