33問目
http://projecteuler.net/index.php?section=problems&id=33
49/98=4/8のように、分母と分子から同じ数字を除いても元の値と等しくなるような分数(1未満で分母と分子がともに2桁)を全て掛け合わせて、その分母を求める。
Ratioモジュールが便利です。
import Data.Ratio main = print $ denominator $ product fractions fractions :: [Rational] fractions = [a / c | a <- [1..9], b <- [1..9], c <- [(a+1)..9], (10 * a + b) / (10 * b + c) == a / c]