syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Expose queue-prepare-for-dequeue

This commit is contained in:
Tony Garnock-Jones 2014-06-11 16:02:17 -04:00
parent e0aae6e3e0
commit 3e6fd930c5
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
minimart/functional-queue.rkt
View File

@ -4,6 +4,7 @@
queue?
enqueue
enqueue-all
queue-prepare-for-dequeue
dequeue
list->queue
queue->list
@ -26,13 +27,13 @@
(queue (queue-head q)
(append (reverse v) (queue-tail q))))
(define (shuffle q)
(define (queue-prepare-for-dequeue q)
(if (null? (queue-head q))
(queue (reverse (queue-tail q)) '())
q))
(define (dequeue q)
(let ((q1 (shuffle q)))
(let ((q1 (queue-prepare-for-dequeue q)))
(values (car (queue-head q1))
(queue (cdr (queue-head q1)) (queue-tail q1)))))