import Control.Applicative
import Control.Monad
import Data.Functor
import Data.List

readInts :: IO [Int]
readInts = map read . words <$> getLine

solve s t = length $ filter id $ zipWith (==) s t

main = solve <$> getLine <*> getLine >>= print