前言
模块是一种结构，由无法从外部访问的数据以及操纵这些数据的函数组成，是标准化代码编写技术
模块模式的优点
1.因为无法从外部访问数据，所以很好的隐藏了内部实现，说人话就是无需考虑数据在模块内部是如何保存的
2.其次，因为只能借助实现定义的函数访问模块内部数，所以可以有效防止不了解模块内部数据结构的用户对数据进行误操作，避免对数据造成损伤
3.由于模块用户无法触碰模块内部结构，只能调用其暴露在外的函数，所以模块制作者可以随意修改函数内部结构和模块中的数据结构，只要保证修改后的——用户调用那个函数时能够得到与以前相同的结果
队列
队列是一种“先进先出”的数据结构，由三个函数实现：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编写队列模块
上述代码有一个缺点，就是q是全局变量，我们可以直接在其他地方直接操作q而不用通过Enqueue函数，所以会导致数据完整性被破坏
例如：
> q<-c(q,5)
> print(size())
[1] 2原本队列的长度为2；我们在外部给q添加了5，但是由于没有调用Enqueue，导致队列的size一直为2
如何解决这个问题，就需要将队列全部代码与相关变量隐藏到1个函数中去
quene<-funcation()
{
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)
}
return(list(Enqueue=Enqueue,Dequeue=Dequeue,size=size)) #这样做的目的是将这些函数作为结果一并返回，使得在调用quene()函数时可以直接访问和使用这些函数。
}然后每次调用queue函数的时候，其局部变量q和q_size生成的空间都会被重新创建，这意味着，即便创建多个queue()函数，他们之间的数据也不会受到影响
> q<-queue()
> r<-queue()
> q$Enqueue(1)
> r$size()
[1] 0
> r$Enqueue(1)
> q$Enqueue(2)
> q$size()
[1] 2
> r$size()
[1] 1
