Narcissistic decimal number: Difference between revisions
m
→Haskell :: reduced search: Orthography
(→Haskell :: Reduced search: Simpler predicate, digitList domain extended to 0) |
m (→Haskell :: reduced search: Orthography) |
||
Line 2,025:
narcissiOfLength :: Int -> [Int]
narcissiOfLength nDigits = snd <$>
where
powers = ((,) <*> (^ nDigits)) <$> [0 .. 9]
bool
(filter (isDaffodil nDigits . snd) parents)
(
(pred n
(bool
(parents >>=
Line 2,061:
putStrLn $
fTable
"
show
show
Line 2,074:
s : fmap (((++) . rjust w ' ' . xShow) <*> ((" -> " ++) . fxShow . f)) xs</lang>
{{Out}}
<pre>
1 -> [0,1,2,3,4,5,6,7,8,9]
|