글 읽기 - 어디서 틀린건지 모르겠어요...

astrohsy 8년 전 0

예제 코드는 올바르게 수행되는데 채점이 1%에서 바로 틀렸다고 나오네요...

모든 기능을 정상적으로 수행하는 것 같은데...

테스트 케이스 몇 개만 알려주세요..

(defn sw
  [x]
  (clojure.string/split x #"\s+"))

(defn stack
  [counts]
  (loop [counts counts
         my-stack []
         result []]
    (if (= 0 counts)
      result
      (let [order (read-line)]
        (cond
          (= order "top") (if (empty? my-stack)
                              (recur (dec counts) my-stack (conj result -1))
                              (recur (dec counts) my-stack (conj result (last my-stack))))

          (= order "pop") (if (empty? my-stack)
                            (recur (dec counts) my-stack (conj result -1))
                            (recur (dec counts) (drop-last my-stack) (conj result (last my-stack))))
          (= order "size") (recur (dec counts) my-stack (conj result (count my-stack)))

          (= order "empty") (if (empty? my-stack)
                                  (recur (dec counts) my-stack (conj result 1))
                                  (recur (dec counts) my-stack (conj result 0)))

          :else (let [my-string (sw order)
                      item (second my-string)]
                  (recur (dec counts) (conj my-stack (Integer/parseInt item)) result)))))))


(def my-result (stack (Integer/parseInt (read-line))))

;; 결과 출력
(doseq [i (drop-last my-result)]
  (println i))

(print (last my-result))

댓글을 작성하려면 로그인해야 합니다.

문제

문제

출처

ICPC

어디서 틀린건지 모르겠어요...

astrohsy 8년 전 0

Baekjoon Online Judge

채점 현황

문제

유저 대회

고등학교 대회

출처

대학교 대회

도움말