Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Queue-Definition/Clojure/queue-definition.clj
+++ b/Task/Queue-Definition/Clojure/queue-definition.clj
@ -5,10 +5,8 @@
  (swap! q conj x))

 (defn dequeue [q]
-  (if (seq @q)
-    (let [x (first @q)]
-      (swap! q subvec 1)
-      x)
+  (if-let [[f & r] (seq @q)]
+    (do (reset! q r) f)
    (throw (IllegalStateException. "Can't pop an empty queue."))))

 (defn queue-empty? [q]