s <- cpp_stack(4:6)
s
# Top element: 6
pop(s)
s
# Top element: 5
q <- cpp_queue(4:6)
q
# First element: 4
pop(q)
q
# First element: 5
p <- cpp_priority_queue(4:6)
p
# First element: 6
pop(p)
p
# First element: 5
Run the code above in your browser using DataLab