マンジラボ
いわゆる卍研究所。
Project Euler #015 – 道順の組合せ
In: Project Euler
9 1月 2010Project EulerをClojureでおさらいシリーズ。
Problem 15
日本語訳：
2×2のマス目の左上よりスタートして右下にたどり着く道順は6通りである。 （ただし逆方向に引き返さないこととする）
20×20のマス目では何通りの道順が存在するかを求めよ。
40C20 ですね。以上。
久々に紙と鉛筆でもいける問題。
こういうのも嫌いじゃない。
以前Rubyで解いたバージョンはこちら：
#!/usr/bin/env ruby # 40C20 p 21.upto(40).inject(1){|s,x| s*x} / 1.upto(20).inject(1){|s,x| s*x}
さて、次はClojure：
(ns euler.p015) (defn fact "Return factorial of N." [n] (apply * (range 1 (inc n)))) (defn comb "Return number of combinations from N choose M." [n m] (/ (fact n) (fact m) (fact (- n m)))) (println "Answer : " (comb (* 20 2) 20))
せっかくなので階乗と組合せの関数でも定義してみた。
- Tags: Clojure, Project Euler, Ruby
About this blog
私 manjilab のポータル的サイトになっております。日々気付いたこと、考えたこと、発表したいものを載せていきます。
Photostream
Categories
- Clojure (18)
- Lisp (1)
- Mac (4)
- Programming (12)
- Project Euler (24)
- 雑記 (4)
- 研究所大佐: コメントありがとうございます。エントリ拝見しました。>この [...]
- MATSUOKA Hiroshi: 初めまして。こんな解き方をやってみました。良ければ参考まで。 [...]
- Lisp風のインデントは見やすいと思う。 - マンジラボ: [...] たとえば 先の記事 のコードを例にとると [...] [...]
- WordTwitが正常に動かないので修正してみる。 - マンジラボ: [...] 参考エントリ： WordTwitがさっそく対応してくれました。 Tags: WordTwit [...]
- Clojureコーディング規約・訳 - マンジラボ: [...] ではGoogle Groupsでまとめられたこちらの規約の方が詳しいです。 &rArr [...]