(defn card-game-for-two [a]
  (count (distinct a)))

(defn create-data [n]
  (loop [counter 0 arr ()]
    (if (>= counter n)
      arr
      (recur (inc counter) (cons (read) arr)))))

(println (card-game-for-two (create-data (read))))