第三章: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
相关推荐
_WndProc16 分钟前
【Python】Flask网页
开发语言·python·flask
liujing1023292932 分钟前
Day04_刷题niuke20250703
java·开发语言·算法
能工智人小辰1 小时前
二刷 苍穹外卖day10(含bug修改)
java·开发语言
DKPT1 小时前
Java设计模式之结构型模式(外观模式)介绍与说明
java·开发语言·笔记·学习·设计模式
LL.。1 小时前
同步回调和异步回调
开发语言·前端·javascript
0wioiw01 小时前
Python基础(吃洋葱小游戏)
开发语言·python·pygame
栗子~~2 小时前
Python实战- Milvus 向量库 使用相关方法demo
开发语言·python·milvus
狐凄2 小时前
Python实例题:基于 Flask 的在线聊天系统
开发语言·python
狐凄2 小时前
Python实例题:基于 Flask 的任务管理系统
开发语言·python
shootero@126.com2 小时前
R语言开发记录,一
开发语言·r语言