Anonymous user
Esthetic numbers: Difference between revisions
m
→{{header|Haskell}}: fixed typos
(→{{header|Haskell}}: added more efficient solution) |
m (→{{header|Haskell}}: fixed typos) |
||
Line 2,724:
differences >>= fromBase b <$> scanl (+) firstDigit
-- Much more efficient iterative solution (translation from Python).
-- Uses simple list as an ersatz queue.
esthetics b = tail $ fst <$> iterate step (
where
q = [(d, d) | d <- [1..b-1]]
|