You are viewing a single comment's thread. Return to all comments →
Haskell:
module Main where import qualified Data.Set as S main :: IO () main = interact $ show . length . foldr1 S.intersection . map S.fromList . drop 1 . lines
Seems like cookies are disabled on this browser, please enable them to open this website
Gemstones
You are viewing a single comment's thread. Return to all comments →
Haskell: