第三章:R语言编程 第六节:模块模式

前言

模块是一种结构,由无法从外部访问的数据以及操纵这些数据的函数组成,是标准化代码编写技术

模块模式的优点

1.因为无法从外部访问数据,所以很好的隐藏了内部实现,说人话就是无需考虑数据在模块内部是如何保存的

2.其次,因为只能借助实现定义的函数访问模块内部数,所以可以有效防止不了解模块内部数据结构的用户对数据进行误操作,避免对数据造成损伤

3.由于模块用户无法触碰模块内部结构,只能调用其暴露在外的函数,所以模块制作者可以随意修改函数内部结构和模块中的数据结构,只要保证修改后的------用户调用那个函数时能够得到与以前相同的结果

队列

队列是一种"先进先出"的数据结构,由三个函数实现:Enqueue:向队尾添加数据;Dequeue:向队首取出数据并移除该数据;size:队列长度,即保存数据的个数

我们先用R语言简单编写一个队列函数

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)

}

下面是函数的使用

R 复制代码
> Enqueue(1)
> Enqueue(2)
> Enqueue(3)
> print(size())
[1] 3
> print(Dequeue())
[1] 1

编写队列模块

上述代码有一个缺点,就是q是全局变量,我们可以直接在其他地方直接操作q而不用通过Enqueue函数,所以会导致数据完整性被破坏

例如:

R 复制代码
> q<-c(q,5)
> print(size())
[1] 2

原本队列的长度为2;我们在外部给q添加了5,但是由于没有调用Enqueue,导致队列的size一直为2

如何解决这个问题,就需要将队列全部代码与相关变量隐藏到1个函数中去

R 复制代码
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()函数,他们之间的数据也不会受到影响

R 复制代码
> 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
相关推荐
WangYan20229 分钟前
【物种分布模型】R语言物种气候生态位动态量化与分布特征模拟——气候生态位动态检验、质心转移可视化、适生区预测等
r语言·物种分布模型·物种气候生态位
耶啵奶膘43 分钟前
uni-app头像叠加显示
开发语言·javascript·uni-app
看海天一色听风起雨落1 小时前
Python学习之装饰器
开发语言·python·学习
Want5951 小时前
C/C++圣诞树①
c语言·开发语言·c++
老赵的博客1 小时前
c++ 杂记
开发语言·c++
jimmy.hua1 小时前
[C++刷怪笼]:set/map--优质且易操作的容器
开发语言·c++
w2sfot2 小时前
Passing Arguments as an Object in JavaScript
开发语言·javascript·ecmascript
郝学胜-神的一滴2 小时前
避免使用非const全局变量:C++中的最佳实践 (C++ Core Guidelines)
开发语言·c++·程序人生
搞一搞汽车电子3 小时前
S32K3平台eMIOS 应用说明
开发语言·驱动开发·笔记·单片机·嵌入式硬件·汽车
总有刁民想爱朕ha3 小时前
车牌模拟生成器:Python3.8+Opencv代码实现与商业应用前景(C#、python 开发包SDK)
开发语言·python·数据挖掘