import Data.Set

parseInt x = read x :: Int

solve :: [Int] -> String
solve input = (show . size . fromList) input

main :: IO()
main = do
    line <- getLine
    let input = Prelude.map parseInt . words $ line
    putStrLn $ solve input