http://projecteuler.net/index.php?section=problems&id=33 49/98=4/8のように、分母と分子から同じ数字を除いても元の値と等しくなるような分数（1未満で分母と分子がともに2桁）を全て掛け合わせて、その分母を求める。 Ratioモジュールが便利です。 impo…

Project Euler - IMHO経由でEuler problems - HaskellWikiを知り、つらつら眺めてたのですが、以前に解いた１８問目のもっとシンプルなコードが載ってました。 scanではなくfold、l(eft)ではなくr(ight)を使うのがポイントです。 ちょっと悔しい。 main = do…