Harshad or Niven series: Difference between revisions

m
(Added Wren)
Line 1,297:
 
=={{header|Haskell}}==
<lang haskell>import Data.Char (orddigitToInt)
 
harshads :: [Int]
harshads =
let digsum = sum . map ((48 -) . ord)digitToInt . show
in filter ((0 ==) . (mod <*> digsum)) [1 ..]
 
Anonymous user