Narcissistic decimal number: Difference between revisions
m
→Haskell - Reduced search (unordered digit combinations): (Moved main back to end of script)
(→Reduced search (unordered digit combinations): ( reshaped digitGroups function )) |
m (→Haskell - Reduced search (unordered digit combinations): (Moved main back to end of script)) |
||
Line 1,095:
digitList 0 = []
digitList n = rem n 10 : digitList (quot n 10)
main :: IO ()▼
main = print $ 0 : concat (narcissiOfLength <$> [1 .. 7])▼
digitGroups :: Int -> [[Int]]
Line 1,105 ⟶ 1,102:
risingDigits n [] = risingDigits (n - 1) $ (: []) <$> digits
risingDigits n ns = risingDigits (n - 1) $ foldMap prependHeadMinus ns
prependHeadMinus xxs@(x:xs) = (: xxs) <$> [0 .. x]
▲main :: IO ()
▲main = print $ 0 : concat (narcissiOfLength <$> [1 .. 7])</lang>
{{Out}}
<pre>[0,1,2,3,4,5,6,7,8,9,153,370,371,407,1634,8208,9474,54748,92727,93084,548834,1741725,4210818,9800817,9926315]</pre>
| |||