From 6684c9e88325252df1e6ec33072ab86893054d9c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 10 Aug 2016 19:03:40 -0400 Subject: [PATCH] queue-remove in functional-queue.rkt --- racket/syndicate/functional-queue.rkt | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/racket/syndicate/functional-queue.rkt b/racket/syndicate/functional-queue.rkt index 0d4d533..cfb574f 100644 --- a/racket/syndicate/functional-queue.rkt +++ b/racket/syndicate/functional-queue.rkt @@ -14,6 +14,7 @@ queue-append-list queue-extract queue-filter + queue-remove queue-partition) (require (only-in racket/list partition)) @@ -88,6 +89,9 @@ (queue (filter pred (queue-head q)) (filter pred (queue-tail q)))) +(define (queue-remove item q) + (list->queue (remove item (queue->list q)))) + (define (queue-partition pred q) (define-values (head-t head-f) (partition pred (queue-head q))) (define-values (tail-t tail-f) (partition pred (queue-tail q)))