Data commit

Task/McNuggets-problem/Quackery/mcnuggets-problem.quackery

@@ -0,0 +1,26 @@
+0 temp put
+100 6 / times
+  [ i 6 *
+    100 9 / times
+      [ dup i 9 * +
+        100 20 / times
+          [ dup i 20 * +
+            dup 101 < if
+              [ dup bit
+                temp take | temp put ]
+            drop ]
+        drop ]
+    drop ]
+-1 temp take
+101 times
+  [ dup i bit & 0 =
+    if
+      [ nip i swap
+        conclude ] ]
+drop dup 0 < iff
+  [ drop
+    say "There are no non-McNugget numbers below 101" ]
+else
+  [ say "The largest non-McNugget number below 101 is "
+    echo ]
+char . emit