Data commit

Task/McNuggets-problem/PL-I/mcnuggets-problem.pli

@@ -0,0 +1,19 @@
+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;