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