Clojure는 ref 내부의 벡터의 첫 번째 (또는 마지막) 요소를 제거합니다.

Question

필요한 것은 - 작업을 넣을 수있는 간단한 대기열, 무언가입니다. 작업 순서를 유지하지 않고 하나씩 작업자로부터 하나씩 검색 할 수 있습니다. 그것이 올바른 해결책

;; Definition 
(def q (ref [])) 

;; Put 
(defn put-in-queue [i] 
    (dosync (alter q conj i))) 

;; Get 
(defn get-from-queue [] 
    (dosync 
    (let [v (peek q)] 
     (alter q pop) 
     v))) 

인가 :

나는 이런 식으로 뭔가를 썼다? (어쩌면이 작업을위한 더 나은 해결책도 있습니다)

Answer 1

올바른 해결책은 가능성이 가장 높은 java.util.concurrent.LinkedBlockingQueue하는 java.util.concurrent 큐를 사용하는 아마. j.u.c 대기열은 작업에 완벽하게 맞고 Clojure에서 잘 작동합니다.

5 개 생산자 및 소비자 2 비교를 위해 두 가지 방법으로 구현 제한된 크기의 큐와 시나리오의 Producer consumer with qualifications SO 질문 my answer 참조 : 첫째로 c.l.PersistentQueue을 가진 제 j.u.c.LinkedBlockingQueue.

Answer 2

clojure.lang.PersistentQueue 올바른 도구를 사용해야합니다. Hidden features of Clojure에서 "빌린"아래

샘플 :

user> (-> (clojure.lang.PersistentQueue/EMPTY) 
      (conj 1 2 3) 
      pop) 
(2 3) 

이 특성에 대한 the remainder of that answer 참조하십시오.

Answer 3

dsm은 큐가 필요할 때 대기열을 사용하고 실제로 벡터가 필요하고 끝에서 물건을 추가하고 앞면에서 제거하려는 경우 subvec 및 conj이 모두 O 1) 벡터에 대한 함수.

user> (subvec [1 2 3] 1) 
[2 3] 
user> (conj [1 2 3] 4) 
[1 2 3 4] 
user> (-> [] (conj 1 2) (conj 3) (subvec 1))