20 lines
458 B
Text
20 lines
458 B
Text
|
mcnugget: procedure options(main);
|
||
|
|
declare nugget(0:100) bit, (a, b, c) fixed;
|
||
|
|
do a=0 to 100; nugget(a) = '0'b; end;
|
||
|
|
|
||
|
|
do a=0 to 100 by 6;
|
||
|
|
do b=a to 100 by 9;
|
||
|
|
do c=b to 100 by 20;
|
||
|
|
nugget(c) = '1'b;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
do a=100 to 0 by -1;
|
||
|
|
if ^nugget(a) then do;
|
||
|
|
put skip list('Maximum non-McNuggets number:', a);
|
||
|
|
stop;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end mcnugget;
|