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