From 317ee36636ebeec986971ef857cd297f0320e58d Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 27 May 2013 10:31:48 +0200
Subject: start

---
 haskell/p4.hs | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 haskell/p4.hs

(limited to 'haskell/p4.hs')

diff --git a/haskell/p4.hs b/haskell/p4.hs
new file mode 100644
index 0000000..2670bd5
--- /dev/null
+++ b/haskell/p4.hs
@@ -0,0 +1,7 @@
+palindrome :: (Integral a) => a -> Bool
+palindrome n = let ns = show n in ns == reverse ns
+
+p4 :: Int
+p4 = maximum $ filter palindrome [x*y | x <- [100..999], y <- [100..999]]
+
+main = putStrLn $ "Solution: " ++ show p4
-- 
cgit v1.2.3