MP
Size: a a a
MP
SP
I
(defn check-valid-tags [xs]
(->>
(for [x (range (count xs))
y (range (inc x) (count xs))]
(> (get xs x) (get xs y)))
(reduce (fn [x c] (if c (inc x) x)) 0)
(even?)))
I
ST
DF
I
I
I
(->>
(repeat 0)
(map (fn [] (generate-value))))
DF
DF
IG
IG
DF
IG
ST
(repeatedly generate-value)
I
DF