haskell: add [p4, p10]

Signed-off-by: Amneesh Singh <natto@weirdnatto.in>
2022-10-27 08:54:11 +05:30
parent e3f9ab49f3
commit ad0acc15c9
8 changed files with 81 additions and 2 deletions
--- a/haskell/p4.hs
+++ b/haskell/p4.hs
@@ -0,0 +1,5 @@
+main :: IO ()
+main = putStr $ show solve
+
+solve :: Integer
+solve = maximum [a * b | a <- [100 .. 999], b <- [a .. 999], let s = show $ a * b, s == reverse s]