Data commit

Task/Yellowstone-sequence/Quackery/yellowstone-sequence.quackery

@@ -0,0 +1,33 @@
+  [ stack ]                 is seqbits      (   --> s )
+
+  [ bit
+    seqbits take |
+    seqbits put ]           is seqadd       ( n -->   )
+
+  [ bit
+    seqbits share & not ]   is notinseq     ( n --> b )
+
+ [ temp put
+   ' [ 1 2 3 ]
+   7 seqbits put
+   4
+   [ dip
+       [ dup -1 peek
+         over -2 peek ]
+     dup dip
+       [ tuck gcd 1 !=
+         unrot gcd 1 =
+         and ]
+     swap if
+       [ dup dip join
+         seqadd
+         3 ]
+    [ 1+
+      dup notinseq until ]
+     over size temp share
+     < not until ]
+     drop
+     seqbits release
+     temp take split drop ] is yellowstones ( n --> [ )
+
+  30 yellowstones echo