From 6d4ef8ee0e1e906afa378471fda0753f63408dbc Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 7 Mar 2021 23:31:20 +0000
Subject: - Added Haskell solution by Ulrich Rieke.

---
 challenge-102/ulrich-rieke/haskell/ch-1.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 challenge-102/ulrich-rieke/haskell/ch-1.hs

diff --git a/challenge-102/ulrich-rieke/haskell/ch-1.hs b/challenge-102/ulrich-rieke/haskell/ch-1.hs
new file mode 100644
index 0000000000..00f7dea9f9
--- /dev/null
+++ b/challenge-102/ulrich-rieke/haskell/ch-1.hs
@@ -0,0 +1,16 @@
+module Challenge102
+  where
+
+isPerfectSquare :: Int -> Bool
+isPerfectSquare n = root  == ( fromIntegral $ floor root )
+  where
+      root = sqrt $ fromIntegral n
+
+isRare :: Int -> Bool
+isRare n = isPerfectSquare ( n + reversed ) && isPerfectSquare (n - reversed )
+where
+  reversed :: Int
+  reversed = read $ reverse $ show n
+
+solution :: Int -> [Int]
+solution size = filter isRare [ 10 ^ ( size - 1 ) .. (10 ^ size) - 1]
-- 
cgit