R语言实现多输入年份批量闰年校验的方法咨询

现有代码问题分析 #

当前编写的函数存在以下可优化点：

• 仅支持单年份输入，传入多个年份时会触发警告，且仅返回第一个年份的校验结果，原因是if分支仅支持标量判断，且使用了仅适用于标量的逻辑运算符&&
• 逻辑规则冗余：years>=400的判断完全多余，满足years%%400==0的年份必然大于等于400
• 输出为打印值而非返回值：调用函数后结果无法赋值给变量做后续计算，只能在控制台查看打印结果
• 逻辑优先级存在隐患：未给逻辑判断加括号，运算顺序出错时可能返回错误结果

优化建议 #

1. 向量化改造+逻辑简化版代码 #

优化后的函数支持多年份批量输入，直接返回逻辑向量，可直接用于后续计算：

leap_year <- function(years) {
  # 可选：加入输入合法性校验
  if (!is.numeric(years)) {
    stop("请输入数值类型的年份")
  }
  # 核心闰年判断逻辑：能被4整除但不能被100整除，或能被400整除
  (years %% 4 == 0 & years %% 100 != 0) | (years %% 400 == 0)
}

2. 额外优化点 #

• 如需适配公元前年份的校验，可额外加入负年份的逻辑处理
• 如需输出友好的文本提示而非逻辑值，可配合ifelse实现批量提示：

  leap_year_tip <- function(years) {
    res <- (years %% 4 == 0 & years %% 100 != 0) | (years %% 400 == 0)
    ifelse(res, paste(years, "是闰年"), paste(years, "是平年"))
  }
  

正确性验证用例 #

你可以使用以下已知结果的测试集验证函数正确性：

• 单值测试：
  • leap_year(2020) 预期返回 TRUE（普通闰年）
  • leap_year(1900) 预期返回 FALSE（世纪平年）
  • leap_year(2000) 预期返回 TRUE（世纪闰年）
  • leap_year(2023) 预期返回 FALSE（普通平年）
• 多值批量测试：
  • leap_year(c(2000, 1900, 2020, 2023, 1800, 2400)) 预期返回 TRUE FALSE TRUE FALSE FALSE TRUE

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