solver::(Int,Int,Int)->Int
solver (a,b,c) = if (a==b)&&(b==c)&&(c==a) then 1
                                           else if (a==b)||(b==c)||(c==a) then 2
                                                                          else 3

main::IO()
main =do
  dc<-getLine
  let a:b:c:[]= map read (words dc)::[Int]
  print (solver (a,b,c))
