You are viewing a single comment's thread. Return to all comments →
Fun highlighting some Haskell functions:
module Main where import qualified Data.Map as M solve :: String -> Bool solve s = (< 2) $ length $ M.filter (odd) $ M.fromListWith (+) $ zip s (repeat 1) main :: IO () main = interact $ (\x -> if x then "YES" else "NO") . solve
Seems like cookies are disabled on this browser, please enable them to open this website
Game of Thrones - I
You are viewing a single comment's thread. Return to all comments →
Fun highlighting some Haskell functions: