Submission #33507

---

Source Code Expand

import Control.Applicative
import Data.List

main :: IO ()
main = do
  es <- map read . words <$> getLine
  b <- read <$> getLine
  ls <- map read . words <$> getLine
  let xs = intersect es ls :: [Int]
  print $ case length xs of
            6 -> 1
            5 | sort (b:xs) == ls -> 2
              | otherwise -> 3
            4 -> 4
            3 -> 5
            _ -> 0

Submission Info

Judge Result