R语言使用穷举法解决找硬币问题

coin_values <- c(1, 5, 10, 20, 25) # 硬币面值
target <- 98 # 目标找零金额

# 初始化变量
best_combination <- NULL
min_coins <- Inf

# 枚举所有硬币组合
for (coin1 in 0:target) {
  for (coin2 in 0:target) {
    for (coin3 in 0:target) {
      for (coin4 in 0:target) {
        for (coin5 in 0:target) {
          # 计算硬币数量总和
          num_coins <- coin1 + coin2 + coin3 + coin4 + coin5
          # 计算硬币总价值
          total_value <- coin1 * coin_values[1] + coin2 * coin_values[2] + coin3 * coin_values[3] + coin4 * coin_values[4] + coin5 * coin_values[5]
          # 如果总价值等于目标金额且硬币数量更少，更新结果
          if (total_value == target && num_coins < min_coins) {
            min_coins <- num_coins
            best_combination <- c(coin1, coin2, coin3, coin4, coin5)
          }
        }
      }
    }
  }
}

# 输出结果
cat("最少需要硬币数量为：", min_coins, "\n")
cat("最优硬币组合为：", best_combination)