diff options
Diffstat (limited to 'codewars/6-kyu/does-my-number-look-big-in-this/solution.hs')
| -rw-r--r-- | codewars/6-kyu/does-my-number-look-big-in-this/solution.hs | 17 |
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 + |