R语言用贪婪算法解决找硬币问题

# 定义硬币面额向量和需要找零的金额
coins <- c(1, 5, 10, 20, 25)
amount <- 88

#创建函数
greedy <- function(coins, amount){
  
# 创建记录硬币使用数量的向量
counts <- rep(0, length(coins))

# 对硬币面额向量进行排序
coins <- sort(coins, decreasing = TRUE)

# 使用while循环进行贪婪算法
i <- 1
while (amount > 0 & i <= length(coins)) {
  # 找到当前最大面额的硬币可以使用的最大数量
  count <- min(floor(amount / coins[i]), 99)
  
  # 记录硬币使用数量
  counts[i] <- count
  
  # 减去使用的硬币总面额
  amount <- amount - coins[i] * count
  
  # 考虑下一种面额的硬币
  i <- i + 1
}

# 输出找零结果
if (amount == 0) {
  cat("使用贪婪算法算得需要的硬币数量为：", sum(counts), "\n")
  cat("使用的硬币组合为：\n")
  for (i in 1:length(coins)) {
    if (counts[i] > 0) {
      cat(counts[i], "枚", coins[i], "元硬币\n")
    }
  }
} else {
  cat("无法找零成功\n")
}
}