import qualified Data.Set as Set
toInt :: (String -> Int)
toInt x = read x ::Int

getInts = do
    x <- getLine
    let y = (map$toInt)$words x
    return y

main = do
    x <- getInts
    let ans = Set.fromList x
    print $ length ans
    
  