Data update

Task/McNuggets-problem/BASIC256/mcnuggets-problem.basic

@@ -0,0 +1,18 @@
+arraybase 1
+dim nuggets(100)
+
+for six = 0 To 100/6
+	for nine =  0 To 100/9
+		for twenty = 0 To 100/20
+			n = six*6 + nine*9 + twenty*20
+			if n <= 100 then nuggets[n] = true
+		next twenty
+	next nine
+next six
+
+for n = 100 to 1 step -1
+	if nuggets[n] = false then
+		print "Maximum non-McNuggets number is: "; n
+		exit for
+	end if
+next n