Narcissistic decimal number: Difference between revisions
Content added Content deleted
| Line 1,089: | Line 1,089: | ||
powerSum :: Int -> [Int] -> Int |
powerSum :: Int -> [Int] -> Int |
||
powerSum n = foldr ((+) . (^ n)) 0 |
powerSum n = foldr ((+) . (^ n)) 0 |
||
| ⚫ | |||
digitList :: Int -> [Int] |
digitList :: Int -> [Int] |
||
| Line 1,099: | Line 1,097: | ||
digitGroups nDigits = risingDigits nDigits [] |
digitGroups nDigits = risingDigits nDigits [] |
||
where |
where |
||
| ⚫ | |||
risingDigits 0 ns = ns |
risingDigits 0 ns = ns |
||
risingDigits n [] = risingDigits (n - 1) $ (: []) <$> digits |
risingDigits n [] = risingDigits (n - 1) $ (: []) <$> digits |
||