blob: 1b84d9f3bee7735ab3fd9a6a48bad527606fd2f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
|
