マンジラボ
いわゆる卍研究所。
Project Euler #020 – 100の階乗
In: Project Euler
14 1月 2010Project EulerをClojureでおさらいシリーズ。
Problem 20
日本語訳：
n! は n × (n-1) × ・・・ × 3 × 2 × 1 を表す。
1000! の各桁の数字の和を求めよ。
瞬殺の予感。
以前Rubyで解いたもの：
#!/usr/bin/env ruby p 1.upto(100).inject(:*).to_s.split('').inject(0){|s,x| s + x.to_i}
Rubyステキ。
Clojureでは：
(ns euler.p020) (defn fact "Return factorial of N." [n] (apply * (range 1 (inc n)))) (defn sum-of-digits "Return the sum of each digits of N." [n] (apply + (map #(Integer. (str %)) (str n)))) (println "Answer : " (sum-of-digits (fact 100)))
ほとんどいままでの使い回し。
- 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のインデントで整形する方法については こちら の記 [...]