rename folders

1 files changed, 17 insertions, 0 deletions

diff --git a/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs b/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs
new file mode 100644
index 0000000..1b84d9f
--- /dev/null
+++ b/codewars/6-kyu/does-my-number-look-big-in-this/solution.hs
@@ -0,0 +1,17 @@
+-- https://www.codewars.com/kata/5287e858c6b5a9678200083c
+
+module Narcissistic where
+
+splitNum n = reverse $ impl n
+  where
+  impl n
+    | n < 10 = [n]
+    | otherwise = (n `mod` 10):(impl (n `div` 10))
+
+narcissistic :: Integral n => n -> Bool
+narcissistic n
+  | (sum $ map (^ (length splited)) splited) == n = True
+  | otherwise = False
+  where
+    splited = splitNum n
+