Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
24
Task/Queue-Definition/XLISP/queue-definition-2.l
Normal file
24
Task/Queue-Definition/XLISP/queue-definition-2.l
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
[1] (define my-queue (queue 'new))
|
||||
|
||||
MY-QUEUE
|
||||
[2] (my-queue 'push 1)
|
||||
|
||||
(1)
|
||||
[3] (my-queue 'push 2)
|
||||
|
||||
(1 2)
|
||||
[4] (my-queue 'emptyp)
|
||||
|
||||
()
|
||||
[5] (my-queue 'pop)
|
||||
|
||||
1
|
||||
[6] (my-queue 'pop)
|
||||
|
||||
2
|
||||
[7] (my-queue 'emptyp)
|
||||
|
||||
#T
|
||||
[8] (my-queue 'pop)
|
||||
|
||||
()
|
||||
Loading…
Add table
Add a link
Reference in a new issue