介绍

小游戏：上一世，你是怎么死的

不要以为转世了，前一世的记忆就被抹的干干净净，重大的事情被我们以一种隐秘的方式记录下来，等待你去发现。想不想知道上一世你是怎么死的，这一世该如果避免在同一件事上再跌倒？立即开始游戏。

游戏规则：输入 8 位数字出生年月日，立即解密。PS：出生日期带有强大而神秘的能量，请在心中虔诚默念“信刚哥，不挂科”

代码

discover <- function(x) {
  # これは魔法の関数です（这是魔法之函数）
  yushu <- x %% 10    # 余数
  switch(yushu,
    "1"="上一世你是夏禹时代的奴隶主，死于奴隶暴动",
    "2"="上一世的你是汉代君侯夫人，颇为富裕，后因食入被寄生虫污染的河鲜去世",
    "3"="你效仿神农尝百草，然后……你知道的。补偿你一下，这辈子还让你当个中医",
    "4"="判官：找不到哇。哦，你没有前世",
    "5"="上一世的你是著名的苦吟诗人，在骑驴思考诗句时冲撞了皇帝陛下的仪仗队，被当作刺客干掉了",
    "6"="唉！人生在世不称意，不如自挂东南枝。",
    "7"="春眠不觉晓，处处蚊子咬，传染你乙脑",
    "8"="当余之从师也，负箧曳屣，行深山巨谷中，穷冬烈风，大雪深数尺，四肢僵劲不能动，卒。",
    "9"="登高台 纵烟雨迷蒙不见故人来，留得冰冷残躯入君怀。",
    "0"="渔阳鼙鼓动地来，惊破霓裳羽衣曲。六军不发无奈何，婉转蛾眉马前死。")
}

演示

discover(19910121)

## [1] "上一世你是夏禹时代的奴隶主，死于奴隶暴动"

点评

刚学了 R 就要开始给自己算命了么[偷笑]…就按出生日的个位数来决定是不是有点草率哈:P，不过这文字还是挺有意思的嘛。

回来说说代码吧，这是一个很简单的对输入参数进行处理后分支选择输出的函数。其中 switch() 用的是很不错的。对于这种从多项中进行选择的过程来说，switch() 是一个非常合适的函数，它语法简单，逻辑明确，写出来的代码看着也是舒服的不要不要的。