10 lines
198 B
Text
10 lines
198 B
Text
( queue
|
|
= (list=)
|
|
(enqueue=.(.!arg) !(its.list):?(its.list))
|
|
( dequeue
|
|
= x
|
|
. !(its.list):?(its.list) (.?x)
|
|
& !x
|
|
)
|
|
(empty=.!(its.list):)
|
|
)
|