Y箱

1の1乗から100の100乗までの数で、各桁の数を足したものが一番大きくなるものを求める問題。

そのまま計算したのでございます。

;;
;; Problem 56  : 2011/6/20
;; "Elapsed time: 15482.925064 msecs"

(reduce max
        (for [a (range 1 100) b (range 1 100)]
          (reduce + (num-to-list (expt a b)))))
;;