Increasing gaps between consecutive Niven numbers: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Line 221: Line 221:
import Data.List (intercalate, unfoldr)
import Data.List (intercalate, unfoldr)
import Data.List.Split (chunksOf)
import Data.List.Split (chunksOf)
import Data.Tuple (swap)


nivens :: [Int]
nivens :: [Int]
Line 228: Line 229:
pure n
pure n
where
where
digitSum = sum . unfoldr (\x -> guard (x > 0) >> pure (x `mod` 10, x `div` 10))
digitSum = sum . unfoldr (\x -> guard (x > 0) >> pure (swap $ x `quotRem` 10))


findGaps :: [(Int, Int, Int)]
findGaps :: [(Int, Int, Int)]
Retrieved from "https://rosettacode.org/wiki/Increasing_gaps_between_consecutive_Niven_numbers"