RosettaCodeData/Task/McNuggets-problem/Picat/mcnuggets-problem.picat
2023-07-01 13:44:08 -04:00

9 lines
151 B
Text

import cp.
go =>
N :: 0..100,
foreach(X in 0..16, Y in 0..11, Z in 0..5)
6*X + 9*Y + 20*Z #!= N
end,
solve($[max(N)],N),
println(n=N).