Narcissistic decimal number: Difference between revisions
Content added Content deleted
(→Haskell - Reduced search: (used unfoldr for digitList)) |
(→Haskell reduced search: (used swap in digitList)) |
||
Line 1,314:
<lang haskell>import Data.List (sort, unfoldr)
import Data.Tuple (swap)
narcissiOfLength :: Int -> [Int]
Line 1,328 ⟶ 1,329:
(\x ->
if x > 0
then
else Nothing)
|