File: test-queue.scm

package info (click to toggle)
chicken 5.3.0-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 32,892 kB
  • sloc: ansic: 580,083; lisp: 71,987; tcl: 1,445; sh: 588; makefile: 60
file content (16 lines) | stat: -rw-r--r-- 298 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
;;;; test-queue.scm


(include "QUEUE")


(functor (test-queue (Q QUEUE)) *
  (import scheme (chicken base) Q)
  
  (define (list->queue lst)
    (foldl (lambda (q x) (enqueue q x)) empty-queue lst))

  (define (queue->list q)
    (if (empty? q)
	'()
	(cons (head q) (queue->list (dequeue q))))) )