厉害!不到30行代码,自制成语接龙小游戏
"IT有得聊”是机械工业出版社旗下IT专业资讯和服务平台,致力于帮助读者在广义的IT领域里,掌握更专业、实用的知识与技能,快速提升职场竞争力。 点击蓝色微信名可快速关注我们!
中国文化底蕴深厚,在漫长的历史中,我们的语言文字形成了大量特定的组合,用来表达特定的意思。成语是中国传统文化的一大特色,有的来源于典故,有的则来源于固定的使用方法。在成语类的比赛中,经常有“成语接龙”的比赛,往往是双方对战,一方先提出一个成语,然后另一方根据这个成语最后一个字的拼音,作为下一个成语的首拼,承接下去。
本文中,我们希望借助R语言的文本处理工具做一个简单的成语接龙小游戏,可以满足简单的人机对战的需求。首先,让我们在R中加载基本的环境:
if(!require(pacman)) install.packages("pacman")
## Loading required package: pacman
pacman::p_load(tidyfst,pinyin,stringr)
在上面加载的包中,tidyfst包用于数据的处理,pinyin包用于把汉字转化为其拼音,stringr包则被用于字符串的处理。
首先,我们需要对成语的数据集进行加载。这需要我们有中华成语的语料库,在GitHub中有相关的库可以用,详情见:https://github.com/pwxcoo/chinese-xinhua。这个项目中的idiom.json文件包含了成语的信息,可以使用jsonlite包将其读入并转化为数据框。这里我们不详细展开数据获取和转化的过程,我们最终把数据存储在名为“chengyu.csv”的文件中,它只有一列,我们在这里进行简单展示:
fread("chengyu.csv",encoding = "UTF-8") # 编码格式需要设置,否则可能显示乱码
## word
## <char>
## 1: 阿谀奉承
## 2: 阿党比周
## 3: 阿党相为
## 4: 阿狗阿猫
## 5: 阿姑阿翁
## ---
## 30891: 做一天和尚撞一天钟
## 30892: 做贼心虚
## 30893: 做张做势
## 30894: 做张做致
## 30895: 做张做智
我们看到,这份数据只有一列成语,共30895行,列名为word。仅仅是这个数据框还不足够,我们还需要有每一个成语的首字拼音(简称“首拼”)和尾字拼音(简称“尾拼”)。关于这个步骤,我们可以使用pinyin包进行实现,具体操作如下:
my_dic = pydic(method = "tone",dic = "pinyin2") # 设置词典# 取得成语的首拼和尾拼
chengyu = fread("chengyu.csv",encoding = "UTF-8")%>%mutate_dt(shoupin = str_sub(word,1,1)%>% py(dic = my_dic),weipin = str_sub(word,-1,-1) %>% py(dic = my_dic))# 展示结果
chengyu
## word shoupin weipin
## <char> <char> <char>
## 1: 阿鼻地狱 a1 yu4
## 2: 阿党比周 a1 zhou1
## 3: 阿党相为 a1 wei2
## 4: 阿狗阿猫 a1 mao1
## 5: 阿姑阿翁 a1 weng1
## ---
## 30891: 做一天和尚撞一天钟 zuo4 zhong1
## 30892: 做贼心虚 zuo4 xu1
## 30893: 做张做势 zuo4 shi4
## 30894: 做张做致 zuo4 zhi4
## 30895: 做张做智 zuo4 zhi4
在上面的操作中,str_sub函数用来提取成语的第一个字和最后一个字,然后利用py函数来将其转化为首拼和尾拼。pinyin包中有两套词典,这里用“pinyin2”词典来完成转化,因为它的错误率较低
(“pinyin1”词典有bug,详情可参考:https://github.com/pzhaonet/pinyin/issues/16)
下面,我们要设置一个小游戏。游戏中,我们首先提示用户输入一个成语,然后把用户写入的字符串导入,然后把匹配到的第一个成语输出来,作为接龙的结果。如果库内没有匹配的成语,那么就输出“好吧,你赢了。”,然后换行。如果匹配上了,就直接输出匹配结果。当用户想退出的时候,键入大写字母Q,然后按回车即可。实现代码如下:
game = function(){chengyu1 = chengyurepeat{cat("请输入一个成语(认输或离开请按Q):")input = readline()if(input == "Q") break else chengyu1 = chengyu1[word != input]str_sub(input,-1,-1) %>% py(dic = my_dic) -> input_weipinres = chengyu1[shoupin == input_weipin]if(nrow(res) == 0) {cat("好吧,你赢了。\n")}else{cat(res$word[1])chengyu1 = chengyu1[word != res$word[1]]cat("\n")}}
}
现在,game函数中就封装了我们这个游戏的所有过程。下面我们进行简单的解释:
1、把chengyu这个数据框复制一份放在chengyu1中,因为我们在成语接龙中不允许成语重复出现,因此出现过一次的成语都会删掉。
2、readline函数可以让用户交互式地读入一段字符串;
3、cat函数可以在屏幕中输出一段文字对话;
4、repeat语句相当于while(1),如果没有跳出语句(break),它会一直执行下去。
下面,我们可以尝试玩耍,从而进行测试:
成语接龙测试
我们可以看到,基于命令行的小游戏没有出现明显的问题。这样,我们就用了不到30行的代码完成了成语接龙的小游戏,实现的完成代码如下:
if(!require(pacman)) install.packages("pacman")
pacman::p_load(tidyfst,pinyin,stringr)my_dic = pydic(method = "tone",dic = "pinyin2")chengyu = fread("chengyu.csv",encoding = "UTF-8")%>%mutate_dt(shoupin = str_sub(word,1,1)
%>% py(dic = my_dic),weipin = str_sub(word,-1,-1) %>% py(dic = my_dic))chengyugame = function(){chengyu1 = chengyurepeat{cat("请输入一个成语(认输或离开请按Q):")input = readline()if(input == "Q") break else chengyu1 = chengyu1[word != input]str_sub(input,-1,-1) %>% py(dic = my_dic) -> input_weipinres = chengyu1[shoupin == input_weipin]if(nrow(res) == 0) {cat("好吧,你赢了。\n")}else{cat(res$word[1])chengyu1 = chengyu1[word != res$word[1]]cat("\n")}}
}game()
在这个基础上,我们还可以让电脑和电脑自己玩接龙游戏,从而得到一大串没有重复的成语接龙结果。此外,还可以利用shiny包做一个漂亮的人机交互界面。
通过这个例子中,我们可以看到R语言强大的文本挖掘能力,但这都是比较零散的知识。要系统地学习一套R语言文本挖掘的系统知识与技术,可以参考机械工业出版社出版的新作《文本数据挖掘——基于R语言》。
该书立足于R语言与文本挖掘知识基础,实用性和趣味性兼具,循序渐进地引导读者掌握各项文本挖掘实现。书中包含大量代码,因此也可以作为工具书为文本挖掘用户提供R代码参考。
-推荐阅读-
知乎R语言方面的大V新作
深入浅出地介绍文本数据挖掘技术原理与方法
简明扼要地介绍R语言编程基础
结合大量实例循序渐进地讲解
基于R语言的文本数据挖掘步骤、方法、技巧
(点击封面可进入详情页面)
作者:黄天元
关键词:文本数据挖掘 基于R语言 数据科学 非结构化数据 机器学习
适合人群:本书适合对文本数据挖掘感兴趣的学生、科研人员和数据科学从业者阅读。同时,本书还可以作为工具书,为需要经常进行文本数据挖掘的读者提供快速检索
文本是一种特殊的非结构化数据,在当今的大数据时代,其价值日趋凸显。本书利用开源而强大的R软件,对文本数据挖掘的概念、技术及技巧进行了系统的介绍。本书共11章,内容包括:走进文本数据挖掘,R语言快速入门,字符串的基本处理,用好正则表达式,导入各类文本数据,对各类文本数据进行预处理,文本特征提取的4种方法,基于机器学习的文本分类方法,文本情感分析,文本可视化,文本数据挖掘项目实践。本书还提供了丰富的应用案例和程序源代码引导读者高效学习。
厉害!不到30行代码,自制成语接龙小游戏相关推荐
- 我用 Python 自制成语接龙小游戏,刺激
在 https://github.com/pwxcoo/chinese-xinhua 项目中可以下载到中华成语的语料库,该项目收录包括 14032 条歇后语,16142 个汉字,264434 个词语, ...
- 太厉害了!30行代码抓取上万个小姐姐跳舞视频,有点飘了~
点上方"菜鸟学Python",选择"星标" 第481篇原创干货,第一时间送达 大家好,我是菜鸟哥!这个我第481篇原创! 今天又给大家带来一个有趣的Python ...
- python成语接龙代码_python——成语接龙小游戏
小试牛刀的简易成语接龙. 思路-- 1.网上下载成语字典的txt版本 2.通过python进行处理得到格式化的成语,并整理成字典(python字典查找速度快) 3.python程序,查找 用户输入的最 ...
- python小游戏-16行代码实现3D撞球小游戏!-源码下载
python小游戏-16行代码实现3D撞球小游戏!-源码下载 所属网站分类: 资源下载 > python小游戏 作者:搞笑 链接: http://www.pythonheidong.com/bl ...
- c语言成语接龙编程,C语言完成成语接龙小游戏
用C语言实现成语接龙小游戏(新手上路,大神勿喷) 1.首先需要找到一个成语库(从网上下载即可,保存为.txt文件) 2.整体思路如下 由于要用的成语保存在文件里,一边用一边读取会降低代码的效率,所以我 ...
- C语言接龙,C语言完成成语接龙小游戏
用C语言实现成语接龙小游戏(新手上路,大神勿喷) 1.首先需要找到一个成语库(从网上下载即可,保存为.txt文件) 2.整体思路如下 由于要用的成语保存在文件里,一边用一边读取会降低代码的效率,所以我 ...
- C语言完成成语接龙小游戏
用C语言实现成语接龙小游戏(新手上路,大神勿喷) 1.首先需要找到一个成语库(从网上下载即可,保存为.txt文件) 2.整体思路如下 由于要用的成语保存在文件里,一边用一边读取会降低代码的效率,所以我 ...
- 简单c语言实现的成语接龙小游戏
一.目标: 成语接龙小游戏,玩家输入一个成语,程序(电脑)输出一个.按成语接龙规则(最后一个字与接下来第一个字相同) 二.算法流程图: 三.实现代码: #include<stdio.h> ...
- python成语接龙到为所欲为_Python小伙用简单爬虫实现成语接龙小游戏!
闲来无事,写了一个成语接龙小游戏,抓取某成语接龙网站内容,请大家指正. Python实现这个功能非常简单,当然,这里我也是写了个简单版的,实现了基本功能就好.话不多说,先上干货: 开发前准备及思路: ...
- python爬虫的使用——成语接龙小游戏
python爬虫的使用--成语接龙小游戏 游戏介绍 本游戏采用python进行开发,利用爬虫技术,能够自动获取代理服务器IP地址,可从常用汉字中选取查找成语随机出题,可进行人与电脑的对弈,可进行多轮较 ...
最新文章
- 中国式微服务技术栈2.0
- 【控制】《多智能体系统的动力学分析与设计》徐光辉老师-第2章-带时延位置的离散多智能体系统的一致性
- OpenCV图像颜色模型转换:cvtColor函数的使用
- tensorflow入门之损失函数
- 关于一些blog优化
- javaioIOException - Cannot run program javac error 2 No such file or direct
- 收集一些非常实用的Linux命令
- 【Maven实用技巧】03. Maven 编译打包时如何忽略测试用例
- 谈谈Hybird3D中的光栅化优化
- 大数据发展的问题与机遇
- C语言 sprintf实现
- Android 系统(145)---切换两张sim卡的移动网络,自动锁屏
- 操作系统内存管理-原理
- Java保留2位小数(六种方法)
- 华为s5700交换机使用配置
- python 用题库自动答题器_用题库自动答题
- java 截取图片后缀
- 【IT人物】周杰(清华,耶鲁):Google技术总监周杰创业“死海”淘金
- python基础学习笔记——完结
- 微星GE62 2QC-264XCN刷黑苹果详细教程亲测有效,完美双系统,双屏!
热门文章
- bzoj 3237: [Ahoi2013]连通图 并查集+线段树分治
- 2021-09-27 人民邮电出版社网址下获取新书推荐的所有图书名称
- go语言调用c 的头文件 so,golang 学习(10): 使用go语言调用c语言的so动态库-Go语言中文社区...
- 日本企业给我们的启示
- 经典配色方案之 红、橙、黄、绿、青、紫、无彩色系
- e签宝:借助钉钉宜搭变革传统项目管理模式,交付效率显著提升
- ubuntu 安装python mysqldb
- mybatis整合Redis和ehcache实现二级缓存
- 2021 iOS面试题大全---全方面剖析面试(二)
- 单片机和4G模块通信总结(EC20)