Esthetic numbers: Difference between revisions
Content deleted Content added
→{{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]]
|