isHashed :: Integer -> Bool
isHashed n = (n `mod` sum (isHashedHelper n)) == 0

isHashedHelper :: Integer -> [Integer]
isHashedHelper n = map (\x -> read [x] :: Integer) (show n)

countNumbers :: Integer -> Integer -> Int
countNumbers a b = length (filter (\x -> ('7' `elem` show x) && (x `mod` 5 == 3)) [a..b])

getArtmeticalSeq :: [[Int]] -> [[Int]]
getArtmeticalSeq xs = filter(\x -> isAritmeticSeq x) xs

isAritmeticSeq :: [Int] -> Bool
isAritmeticSeq xs = (take (length xs) [head xs, head (tail xs)..]) == xs

main = do
  print ("WTF")
  print (isHashed 203)
  print (countNumbers 1 100)
  print (take 10 [1,4..])
  print (isAritmeticSeq [1,2,2,4])
  print (getArtmeticalSeq [[1,2,2,4], [1,2,3,4], [1,3,5]])