In Haskell, I am getting a lot of tests failing on what seems to be (to me ;)) correct results.

For example:

expected: [(24,12),(36,12),(24,12),(12,12),(16,12),(12,12),(18,12)]
but got: [(12,6),(18,6),(12,6),(6,6),(8,6),(6,6),(9,6)]

Input is:
[(4,2),(6,2),(4,2),(2,2),(4,3),(2,2),(6,4)]

Am I misssing something? My solution is equivalent to the expected case, but the denominator is smaller.

Thanks!