Initial data commit

Task/Sorting-algorithms-Bubble-sort/Quackery/sorting-algorithms-bubble-sort.quackery

@@ -0,0 +1,23 @@
+  [ stack ]                  is sorted (       --> s )
+
+  [ rot tuck over peek
+    2swap tuck over peek
+    dip rot 2dup < iff
+      [ dip [ unrot poke ]
+        swap rot poke
+        sorted release
+        false sorted put ]
+    else
+      [ drop 2drop nip ] ]   is >exch  ( [ n n --> [ )
+
+  [ dup size 1 - times
+     [ true sorted put
+       i 1+ times
+         [ i^ dup 1+ >exch ]
+       sorted take if
+         conclude ] ]        is bubble (     [ --> [ )
+
+  [] 20 times
+    [ 10 random join ]
+  say "Before: " dup echo cr
+  say "After:  " bubble echo