队列是一种“先进先出”的数据结构，由三个函数实现：Enqueue：向队尾添加数据；Dequeue：向队首取出数据并移除该数据；size:队列长度，即保存数据的个数
我们先用R语言简单编写一个队列函数
q<-c()
q_size<-0
Enqueue<-function(data)
{
q<<-c(q,data)
q_size<<-q_size+1
}
Dequeue<-function()
{
first<-q[1]
q<<-q[-1]
q_size<<-q_size-1
return(first)
}
size<-function()
{
return(q_size)
}下面是函数的使用
> Enqueue(1)
> Enqueue(2)
> Enqueue(3)
> print(size())
[1] 3
> print(Dequeue())
[1] 1