Project Euler

2008年12月02日

Scheme界隈ではRioさん(京大の方?)が猛スピードで追い上げて来ているので、週末に少し頑張って現在209/219問。

完答まであと10問 (66,78,152,157,167,175,177,192,198,213)。
某氏にいつ解くのか注目されている152番もそろそろ解きたい。

(17:58) Φ

2008年11月27日

Level 5に昇格。


Schemeでは未踏の全問完答を目指してあと18問。

http://projecteuler.net/

(01:54) Φ

2008年11月22日

最新のProblem 218も解いて残り25問。あと7問でレベル5。もう少しでEulerianの1ページ目(いま103位置)。

kinabaさんが言及していたピタゴラス三角形を生成する行列を使ってみました。
ピタゴラス数を生み出す行列のはなし
小林 吹代
ベレ出版
売り上げランキング: 88324

これ読もうかな。

(18:20) Φ

2008年11月12日

レベル4の折り返し地点。
あと25問でレベル5。あと41問で完答。

http://projecteuler.net/

(18:50) Φ

2008年11月09日

2008年11月04日

Level 4に昇格。


統計データを見ると、現時点で41人が215問完答。
Schemeで完答している人がいない(※現時点で159問が最高)ので頑張ってコミュニティに貢献したい。まずは、Schemeでは未踏の160問を目指して10問。

今月から、Euleriansに名前を連ねるためには最近の25問の過半数を解いていないといけないことになった。今13問なのでぎりぎり載っている。

http://projecteuler.net/


(20:47) Φ

2008年10月26日

Current Performanceのカラーバーを伸ばせる最近の問題のみ。

・解けた問題:191 197 200 203 204 205 206 207 209(※番号順)
・途中:202 193 196 198(解けてるっぽい順)

現在122/214問(1問増えてる)で国内27位。
最近の問題のみのランキング「Eulerian」の212番目に載ってた。

(23:42) Φ

2008年10月25日

今日は5問(210, 107, 114, 115, 116)解いて現在113/213問で国内29位。

問題210のコードはライブラリに依存しない形で書けたので試しにYpsilonでも動かしてみた。
残念ながらGaucheの3倍ぐらい時間がかかる。(ネタバレになるのでここにはコードは挙げないけれど)気が向いたらこの速度差について後で分析したい。(Project Eulerのforumのproblem 210にアップしてます)

114〜117は同じシリーズ。数日前に書いたコードがナイーブすぎて全然計算が進まなかったのだけれど、組合せ(C)を使った計算方法を思いついて瞬時に計算が終わるシンプルなコードに変身。

200番台の(最近の)問題を解くとCurrent Performanceのバーが伸びるのが嬉しい。

残りあと100問:66, 75, 78, 88, 100, 117-209, 211, 213

(04:50) Φ

2008年10月16日

・Level 3に昇格

・全部で212問(随時増殖)なので折り返し地点はもう少し先

問題1〜問題105まで(+問題212)をクリア。
以下の問題が保留中:
・66
・75
・78
・88
・100

http://projecteuler.net/

(21:56) Φ

2008年10月10日

問51-問62
50数問解いたあたりで、国内参加者の1ページ目に名前が出てきた。

問題62ではまる。
1000万の三乗ぐらいまで(GCが悲鳴を上げるまで)探したけれど見つからないのに
まだまだ探す気ですか(ry

そもそも、3桁の3乗しか検出できないのでおかしいと思って調べてみると、hash-tableに渡すキー値がbignumになると(整数としては同値でもeq?で#fを返すため)うまく行かないことが判明。これはGaucheの仕様なのかな。

とりあえず、ハッシュテーブル作成時に (make-hash-table 'eqv?) とすれば回避できる。



(10:10) Φ