Problem:
Score : 200 points

Problem Statement

Katsusando loves omelette rice.

Besides, he loves crème brûlée, tenderloin steak and so on, and believes that these foods are all loved by everyone.

To prove that hypothesis, he conducted a survey on M kinds of foods and asked N people whether they like these foods or not.

The i-th person answered that he/she only likes the A_{i1}-th, A_{i2}-th, ..., A_{iK_i}-th food.

Find the number of the foods liked by all the N people.

Constraints

All values in input are integers.

1 \leq N, M \leq 30

1 \leq K_i \leq M

1 \leq A_{ij} \leq M

For each i (1 \leq i \leq N), A_{i1}, A_{i2}, ..., A_{iK_i} are distinct.

Constraints

Input is given from Standard Input in the following format:

N M
K_1 A_{11} A_{12} ... A_{1K_1}
K_2 A_{21} A_{22} ... A_{2K_2}
:
K_N A_{N1} A_{N2} ... A_{NK_N}

Output

Print the number of the foods liked by all the N people.

Sample Input 1

3 4
2 1 3
3 1 2 3
2 3 2

Sample Output 1

1

As only the third food is liked by all the three people, 1 should be printed.

Sample Input 2

5 5
4 2 3 4 5
4 1 3 4 5
4 1 2 4 5
4 1 2 3 5
4 1 2 3 4

Sample Output 2

0

Katsusando's hypothesis turned out to be wrong.

Sample Input 3

1 30
3 5 10 30

Sample Output 3

3

Solution in Haskell (GHC 7.10.3) (judge verdict: Accepted)

module Main where

import           Data.Maybe

import           Control.Monad       (forM, forM_)
import qualified Data.Vector.Mutable as VM

solveB :: (Int, Int) -> IO Int
solveB (n, m) = do
  let string2Int s = read s :: Int
  table <- VM.replicate (m + 1) 0
  contents <- sequence (replicate n $ getLine >>= (\x -> return $ words x))
  forM_
    contents
    (\line -> do
       let preData = fmap read line
       forM_ (tail preData) (\x -> VM.modify table (+ 1) x))
  forM_
    [1 .. m]
    (\index -> do
       people <- VM.read table index
       if people == n
         then VM.modify table (+ 1) 0
         else VM.modify table (+ 0) 0)
  VM.read table 0

main = do
  ans <- getLine >>= solveB . (\x -> (head x, last x)) . fmap read . words
  putStrLn $ show ans