RosettaCodeData/Task/McNuggets-problem/Wren/mcnuggets-problem.wren

25 lines
510 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
var mcnugget = Fn.new { |limit|
var sv = List.filled(limit+1, false)
var s = 0
while (s <= limit) {
var n = s
while (n <= limit) {
var t = n
while (t <= limit) {
sv[t] = true
t = t + 20
}
n = n + 9
}
s = s + 6
}
for (i in limit..0) {
if (!sv[i]) {
System.print("Maximum non-McNuggets number is %(i)")
return
}
}
}
mcnugget.call(100)