Submission #2518281

---

Source Code Expand

(ns Atcoder.ARC042-A)

(def input (map read-string (clojure.string/split (read-line) #" ")))
(def N (first input)) (def M (second input))

(def a (loop [output [] i 0]
         (if (= i M)
           output
           (recur (conj output (read-string (read-line))) (inc i)))))

(defn i2format [i] (format "%06d" i))
(def mp (loop [mp {} i 1]
          (if (> i N)
            mp
            (recur (conj mp {(keyword (i2format (+ 1000000 i))) i }) (inc i)))))

;(println mp)
(def ra (reverse a))
(def mpans (loop [mp mp i 0 frontans []]
              (if (= i M)
                [mp frontans]
                (if (nil? (get mp (keyword (i2format (+ 1000000 (nth ra i))))))
                  (recur mp (inc i) frontans)
                  (recur (dissoc mp (keyword (i2format (+ 1000000 (nth ra i))))) (inc i) (conj frontans (nth ra i)))
                  ))))

(def frontans (second mpans))
(def backans (vec (map #(second %) (sort (first mpans)))))

(defn show [ans]
  (loop [j 0 form ""]
              (if (= (count ans) j)
                form
                (recur (inc j) (str form (str (nth ans j)) "\n"))
                )))

(print (show frontans))
(print (show backans))

Submission Info

Judge Result