You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

29 lines
519 B
Clojure

3 years ago
(require '[clojure.string :as str])
(loop [sum 0]
(let [line (read-line)]
(if (empty? line)
(println sum)
(recur
(+
sum
(reduce
#(let [c (count %2)]
(if (or (= 2 c) (= 3 c) (= 4 c) (= 7 c))
(inc %1)
%1
)
)
0
(subvec
(mapv (comp str/join sort) (str/split line #" "))
11 15
)
)
)
)
)
)
)