Narcissistic decimal number: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,083: / Line 1,083: @@
 narcissiOfLength :: Int -> [Int]
-narcissiOfLength n = powerSum n <$> filter (isDaffodil n) (digitGroups n)
+narcissiOfLength n =
+  let isDaffodil n ds = (sort . digitList . powerSum n) ds == ds
-  where
+  in powerSum n <$> filter (isDaffodil n) (digitGroups n)
-    isDaffodil n ds = (sort . digitList . powerSum n) ds == ds
 powerSum :: Int -> [Int] -> Int