import Data.List
import Data.Bits
import Text.Printf
import Text.Regex
import Data.Function
import Data.List.Split
import Control.Monad

main = do
  a <- map read.words <$> getLine::IO [Int]
  print $ length $ group $ sort a