Queue/Usage: Difference between revisions

(defn make-fifoqueue []

(defn push-fifoqueue [fq x]

(swap! fq conj x))

(defn pop-fifoqueue [fq]

(if (pos? (count @fq))

(let [x (first @fq)]

(swap! fq subvec 1)

(defn make-fifoqueue []

(defn push-fifoqueue [fq x]

(alter fq conj x))

(defn pop-fifoqueue [fq]

(if (pos? (count @fq))

(let [x (first @fq)]

(alter fq subvec 1)

The <tt>push-fifoqueue </tt> and <tt>pop-fifoqueue </tt> functions would need to be called from within a <tt>dosync</tt> transaction.