Narcissistic decimal number: Difference between revisions
m
→Reduced search (unordered digit combinations): (Adjusted a function name)
m (→Reduced search (unordered digit combinations): (Adjusted a function name)) |
|||
Line 1,095:
digitGroups :: Int -> [[Int]]
digitGroups nDigits =
where
digits = [0 .. 9]
prependHeadMinus xxs@(x:xs) = (: xxs) <$> [0 .. x]
| |||