Y箱

ClojureScriptに手を出したのですが、lein depsがエラーを吐いてしまったので、ここで一つ、leiningen 2(lein2)に移行してみようと思ったわけです。

1から2へのアップグレード方法が本家のここのページにあるので、これに沿ってやってみた作業のログです。

ちなみに、環境はWindows7で、ファイル操作はEmacsのeshellでやっています。

素数を2乗,3乗,4乗した数の和についての問題です。

とりあえずfor(内包表記)を使ってやってみるかな、と思ってたらできちゃいました。

直方体の向いあった頂点を結ぶ最短距離が整数になる場合の数を求める問題

全数アタックで解いた。
思ったよりも時間はかからずにできました。

長方形を正方格子で切ったときに内部にできる長方形の数が二百万にもっとも近いものを求める問題です。

これも自分で解いたぞ。

モノポリーの各マスに止まる確率を求める問題です。

純粋に計算で出るんじゃないかと思ったけど、だめっぽい。計算のしかたからしてわからない。どうしよう。どうしよう。


で、実際にやってみることにした。 シミュレーションです。
サイコロ振って、マス目を移動して、そこの指示に従う、ってのをたくさん繰り返して、それぞれのマスに止った数を数えて確率を計算します。
最終的に百万回で答を出してます。

ソースは長めですけど、パキパキとできあがって、たのしかったな。
ここのところ、見つけてきた公式にあてはめてっていうパターンが多かったのでさおさらかな。

そういえば、今回から1.4でやってます。mapvとかvecter系の関数はちょっと便利そう。まだ使ってないけど。

テンプレートいじっていたら、ページがおかしなことになってしまったので、移りました。
こっちがあたらしいです。

升目のルートの問題の最後です。

これは全探索しかないんじゃないかなぁ。
速度向上のために、枝刈りを2つ入れてみたけど、やっぱり時間がかかる。
15分以上かかった。 根本的に考え直さないとだめかなぁ。