如何在R中创建可动态顺序调用加密函数的combinef函数？

你可以利用R的函数式编程特性，通过Reduce()函数实现多加密函数的依次调用，完全不需要硬编码判断函数名，代码简洁且扩展性强。

函数实现 #

combinef <- function(initial_text, ...) {
  # 收集所有传入的加密函数为列表
  cipher_functions <- list(...)
  # 依次将每个函数应用到当前结果上
  Reduce(function(current_result, cipher_fun) cipher_fun(current_result), 
         cipher_functions, 
         init = initial_text)
}

工作原理 #

1. list(...)会把调用combinef时传入的所有加密函数（比如caesar、atbash）打包成一个函数列表；
2. Reduce()从initial_text（初始文本）开始，循环执行：将当前结果传入下一个加密函数，用返回值更新当前结果，直到所有函数都执行完毕。

测试验证 #

加载ciphertext包后，直接按你的预期方式调用即可：

library(ciphertext)

# 先应用caesar，再应用atbash
combinef("hello", caesar, atbash)
# 输出：[1] "runnk"

# 依次应用caesar、atbash、polybius
combinef("hello", caesar, atbash, polybius)
# 输出：[1] "42 45 33 33 25"

优势 #

• 无需修改函数代码，新增加密函数时直接传入函数对象即可；
• 避免了大量if-else判断，代码维护成本极低；
• 天然支持任意数量的加密函数组合。

内容的提问来源于stack exchange，提问作者Luigi