RosettaCodeData/Task/Stack/Deja-Vu/stack.djv

13 lines
258 B
Plaintext

local :stack [] #lists used to be stacks in DV
push-to stack 1
push-to stack 2
push-to stack 3
!. pop-from stack #prints 3
!. pop-from stack #prints 2
!. pop-from stack #prints 1
if stack: #empty lists are falsy
error #this stack should be empty now!