Перерыв целого числа на список цифр

Question

Я изучаю Haskell, и я решаю problem 30 on project Euler.

digits n = if n<10 then [n] else (digits (quot n 10)) ++ [(mod n 10)] 
isP30 n = (sum $ map (^5) $ digits n) == n 
sum $ filter isP30 [10^5..10^6-1] 

Есть ли более читаемым способ реализации функции digits?

Answer 1

Используя @ предложение BenjaminHodgson, вы можете написать unfold в

import Data.Tuple (swap) 
import Data.List (unfoldr) 

digits = unfoldr go 
    where go 0 = Nothing 
      go n = Just (swap $ n `divMod` 10) 

Однако из-за того, как unfoldr работы вы получите цифры в обратном порядке здесь. Другим решением является канаву это полностью и идти с

import Data.Char (digitToInt) 

digits = map digitToInt . show 

Мои тайминги нашел, что это будет быстрее и использовать около 25% памяти в неоптимизированной сессии GHCi, он также не меняет порядок цифр.

Answer 2

насчет:

digits n = fmap digitToInt $ show n 

Я забыл упомянуть, что вам нужно импортировать digitToInt из Data.Char первых, как и в ответ @ bheklilr в.

Answer 3

Прежде всего, всегда более читаемо писать код с защитой, а не if-then-else. Все посторонние парны также отвлекают.

Стандартное преобразование для неэффективных Добавления данных-в-конце функций, как вашего

digits n | n < 10 = [n] 
     | otherwise = digits (quot n 10) ++ [mod n 10] 

является ввести дополнительный аргумент, где вызов старой digits n ++ xs такой же, как назвать новые go n xs:

digits n = go n [] -- digits_old n ++ [] == go n [] 
    where 
    go n next | n < 10 = n : next 
      | otherwise = go (quot n 10) (mod n 10 : next)