MAINT fixed double counting of factors

eigenfoo · eigenfoo · commit 3de9bfb20569 · 2017-08-10T13:07:45.000+08:00
diff --git a/euler004.hs b/euler004.hs
@@ -1,3 +1,3 @@
 main = print $ maximum palindromes
-  where palindromes = [x*y | x <- [999,998..1], y <- [999,998..1],
+  where palindromes = [x*y | x <- [100..999], y <- [x..999],
                              (reverse $ show (x*y)) == (show (x*y))]
