http://projecteuler.net/index.php?section=problems&id=85

効率の良い解法ではないが、コードは短いし、単純。 

main =print.minimum$[(abs$8*10^6-a*(a+1)*b*(b+1),a*b)|a<-[1..ceiling.sqrt$8*10^6],b<-[1..a]]