Jump to content

Narcissistic decimal number: Difference between revisions

Narcissistic decimal number (view source)

Revision as of 00:05, 9 March 2017

44 bytes removed ,  7 years ago
→‎Haskell Reduced search (unordered digit combinations): simplified powerSum function
Line 1,083:
 
narcissiOfLength :: Int -> [Int]
narcissiOfLength n = powerSum 0 n <$> filter (isDaffodil n) (risingDigits n [])
where
isDaffodil n ds = (sort . digitList . powerSum 0 n) ds == ds
 
powerSum :: Int -> Int -> [Int] -> Int
powerSum an _= []foldr =((+) . (^ n)) a0
powerSum a n (x:xs) = powerSum (a + x ^ n) n xs
 
risingDigits 0 ns = ns
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/241264"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information