统计硬币 代码编写的问题

Question

Problem Description
假设一堆由1分、2分、5分组成的n个硬币总面值为m分，求一共有多少种可能的组合方式（某种面值的硬币可以数量可以为0）。

Input
输入数据第一行有一个正整数T，表示有T组测试数据；
接下来的T行，每行有两个数n,m，n和m的含义同上。

Output
对于每组测试数据，请输出可能的组合方式数；
每组输出占一行。

Sample Input
2
3 5
4 8

Sample Output
1
2

Answer 1

以下回答参考 皆我百晓生、券券喵儿 等免费微信小程序相关内容作答，并由本人整理回复。

# 读取输入数据
input_data <- readLines()

# 初始化结果变量
result_list <- numeric(length(input_data))

# 遍历每个测试数据
for (i in 1:length(input_data)) {
  # 分割每一组数据
  data_split <- gsub("^.*\s*", "", input_data[[i]])
  
  # 解析数据
  n, m <- unlist(strsplit(data_split, "\s+"))
  result_list[i] <- length(solve(matrix(c(1, n), ncol = 1) %*% matrix(c(m / c(1, 2, 5)), nrow = 3)))
}

# 输出结果
writeLines(result_list)