Increasing gaps between consecutive Niven numbers: Difference between revisions

m
No edit summary
Line 219:
import Control.Monad (guard)
import Text.Printf (printf)
import Data.List (intercalate, unfoldr)
import Data.List.Split (chunksOf)
 
Line 228:
pure n
where
digitSum = sum . mapunfoldr (read\x .-> pureguard (x > 0) .>> showpure (x `mod` 10, x `div` 10))
 
findGaps :: [(Int, Int, Int)]
Line 278:
126 6,292,149 88,996,914
</pre>
 
=={{header|J}}==
<lang J>
Anonymous user