# 定义硬币面额向量和需要找零的金额
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")
}
}
R语言用贪婪算法解决找硬币问题
于 2023-04-14 17:46:10 首次发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)