Project Euler 002

プリキュア終了記念カキコ。最後がちょっとえーって感じだった。この枠は気合の入った回と抜けた回との落差が大きい。たまに「どれみと魔女をやめた魔女」みたいな回があったりするのが侮れない(ちょうど徹夜明けで帰ってきたらライダーやってて、そのまま見ててたまげた)。
それにしても、
・アクアが、必殺技なのに(毎週流れるのに)残念な顔してる
・妙にかわいいゴーレムの回で、ミントがスーパー化したと思ったのに、その後特になにも変化なかった
・デスパライア様、もうちょっとイマドキな人がよかったんじゃないか。なんとなく、セーラームーンSSS(だっけ？)のギャラクシア様とかぶってる。
・カワリーノさんが、種のときといい、いい味出してる
・ブンビーさんがどっか行った

本題。

問題2
フィボナッチ数列で400万より小さいもののうち、偶数の合計を求める。

| sum left right limit next |
limit := 4000000.
sum := 0.
left := 1.
right := 1.
next := left + right.

[ next < limit ] whileTrue: [
	next even ifTrue: [ sum := sum + next ].
	left < right
		ifTrue: [ left := next ]
		ifFalse: [ right := next ].
	next := left + right.
].
^sum.

再帰すると遅いので、普通にループで。