マンジラボ
いわゆる卍研究所。
Project Euler #016 – 2の1000乗
In: Project Euler
9 1月 2010Project EulerをClojureでおさらいシリーズ。
Problem 16
日本語訳：
215 = 32768 の各桁の数字の和は 3 + 2 + 7 + 6 + 8 = 26 である。
21000 の各桁の数字の和を求めよ。
何の問題もない。big-integerバンザイ。
以前Rubyで解いたもの：
#!/usr/bin/env ruby p (2**1000).to_s.split('').inject(0){|s,x| s + x.to_i}
こういうときのRubyの記述力は異常。
今回はClojureで：
(ns euler.p016) (defn pow "Return the N-th power of A." [a n] (apply * (replicate n a))) (defn sum-of-digits "Return the sum of each digits of N." [n] (apply + (map #(Integer. (str %)) (str n)))) (println "Answer : " (sum-of-digits (pow 2 1000)))
Project Euler では各桁を合計する処理がたびたび必要になるので sum-of-digits はライブラリ化したほうがいいのかも。
- Tags: Clojure, Project Euler, Ruby
About this blog
私 manjilab のポータル的サイトになっております。日々気付いたこと、考えたこと、発表したいものを載せていきます。
Photostream
Categories
- Clojure (18)
- Lisp (1)
- Mac (4)
- Programming (12)
- Project Euler (24)
- 雑記 (4)
- Lisp風のインデントは見やすいと思う。 - マンジラボ: [...] たとえば 先の記事 のコードを例にとると [...] [...]
- WordTwitが正常に動かないので修正してみる。 - マンジラボ: [...] 参考エントリ： WordTwitがさっそく対応してくれました。 Tags: WordTwit [...]
- Clojureコーディング規約・訳 - マンジラボ: [...] ではGoogle Groupsでまとめられたこちらの規約の方が詳しいです。 &rArr [...]
- clojure.lib コーディング規約・訳 - マンジラボ: [...] 2/13 – 更新された規約はこちらの記事にまとめました。 ⇒ “C [...]
- Lispで書くときに括弧は見えていない？ - マンジラボ: [...] TextMateにてLispのインデントで整形する方法については こちら の記 [...]