clj 小A 和 小B 在玩猜数字。小B 每次从 1, 2, 3 中随机选择一个，小A 每次也从 1, 2, 3 中选择一个猜。他们一共进行三次这个游戏，请返回 小A 猜对了几次?输入的guess

第一种解法 

(defn game [guess answer]
  (count (for [i (range 3)
               :when (= (guess i) (answer i))]

           i)))

第二种解法

(defn game1 [guess answer]
  (->> (map = guess answer)
       (filter true?)
       (count )))