import Data.Char (toLower)
xo :: String -> Bool
xo xs = let o's = count 'o' str
x's = count 'x' str
str = map toLower xs
count c = foldl (\sum char -> if c == char then sum + 1 else sum) 0
in o's == x's
We're a place where coders share, stay up-to-date and grow their careers.
We strive for transparency and don't collect excess data.