# 定义硬币面额向量和需要找零的金额
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 首次发布
该代码段定义了硬币面额和需找零金额,然后用R语言编写了一个贪婪算法函数来找出找零的最小硬币数量。函数通过循环和面额降序处理,找到能使用的最大硬币数量,更新找零余额,直到无法继续找零。如果找零成功,输出硬币组合;否则提示无法找零。
摘要由CSDN通过智能技术生成