Q1 Devv Challenge

q1.hs

import Data.Char

main :: IO ()
main = do
  putStrLn $ show . length $ filter reversible [0..100000000]
  where
    reversible n = (srn !! 0 /= '0') && all (\x -> (digitToInt x) `mod` 2 == 1 ) (show (n + read srn))
      where
        srn = reverse (show n)