32 lines
918 B
Text
32 lines
918 B
Text
% Recursive nugget iterator.
|
|
% This yields all the nugget numbers of the given box sizes from start to max.
|
|
gen_nuggets = iter (start, max: int, sizes: sequence[int]) yields (int)
|
|
si = sequence[int]
|
|
if si$empty(sizes) then
|
|
yield(start)
|
|
else
|
|
for i: int in int$from_to_by(start, max, si$bottom(sizes)) do
|
|
for j: int in gen_nuggets(i, max, si$reml(sizes)) do
|
|
yield(j)
|
|
end
|
|
end
|
|
end
|
|
end gen_nuggets
|
|
|
|
start_up = proc ()
|
|
max = 100
|
|
ab = array[bool]
|
|
po: stream := stream$primary_output()
|
|
nuggets: ab := ab$fill(0,max+1,false)
|
|
|
|
for nugget: int in gen_nuggets(0, max, sequence[int]$[6,9,20]) do
|
|
nuggets[nugget] := true
|
|
end
|
|
|
|
maxn: int
|
|
for i: int in ab$indexes(nuggets) do
|
|
if ~nuggets[i] then maxn := i end
|
|
end
|
|
|
|
stream$putl(po, "Maximum non-McNuggets number: " || int$unparse(maxn))
|
|
end start_up
|