challenge-279/ulrich-rieke/haskell/ch-2.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Challenge279_2
   where

solution :: String -> Bool
solution str = ( length $ filter (\c -> elem c "aeiouAEIOU" ) str ) `mod` 2 
 == 0 

main :: IO ( ) 
main = do
   putStrLn "Enter a string!"
   line <- getLine
   print $ solution line