queue-remove in functional-queue.rkt
This commit is contained in:
parent
0bc370beec
commit
6684c9e883
|
@ -14,6 +14,7 @@
|
||||||
queue-append-list
|
queue-append-list
|
||||||
queue-extract
|
queue-extract
|
||||||
queue-filter
|
queue-filter
|
||||||
|
queue-remove
|
||||||
queue-partition)
|
queue-partition)
|
||||||
|
|
||||||
(require (only-in racket/list partition))
|
(require (only-in racket/list partition))
|
||||||
|
@ -88,6 +89,9 @@
|
||||||
(queue (filter pred (queue-head q))
|
(queue (filter pred (queue-head q))
|
||||||
(filter pred (queue-tail q))))
|
(filter pred (queue-tail q))))
|
||||||
|
|
||||||
|
(define (queue-remove item q)
|
||||||
|
(list->queue (remove item (queue->list q))))
|
||||||
|
|
||||||
(define (queue-partition pred q)
|
(define (queue-partition pred q)
|
||||||
(define-values (head-t head-f) (partition pred (queue-head q)))
|
(define-values (head-t head-f) (partition pred (queue-head q)))
|
||||||
(define-values (tail-t tail-f) (partition pred (queue-tail q)))
|
(define-values (tail-t tail-f) (partition pred (queue-tail q)))
|
||||||
|
|
Loading…
Reference in New Issue