Data commit

Task/McNuggets-problem/MAD/mcnuggets-problem.mad

@@ -0,0 +1,17 @@
+            NORMAL MODE IS INTEGER
+            BOOLEAN NUGGET
+            DIMENSION NUGGET(101)
+
+            THROUGH CLEAR, FOR I=0, 1, I.G.100
+CLEAR       NUGGET(I) = 0B
+
+            THROUGH MARK, FOR A=0, 6, A.G.100
+            THROUGH MARK, FOR B=A, 9, B.G.100
+            THROUGH MARK, FOR C=B, 20, C.G.100
+MARK        NUGGET(C) = 1B
+
+SEARCH      THROUGH SEARCH, FOR I=100, -1, .NOT.NUGGET(I)
+
+            PRINT FORMAT F, I
+            VECTOR VALUES F = $29HMAXIMUM NON-MCNUGGET NUMBER: ,I2*$
+            END OF PROGRAM