-- Check if a fraction is 'curious' according to Project Euler problem 33
checkFraction :: Int -> Int -> Bool
checkFraction a b
    | isTrivial a b = False
    | a > b = False -- Fraction must be less than one
    | inexperiencedCancel a b == a % b = True
    | otherwise = False
checkFraction :: Int -> Int -> Bool
checkFraction a b
    | isTrivial a b = False
    | a > b = False -- Fraction must be less than one
    | inexperiencedCancel a b == a % b = True
    | otherwise = False
checkFraction a b
    | isTrivial a b = False
    | a > b = False -- Fraction must be less than one
    | inexperiencedCancel a b == a % b = True
    | otherwise = False