Data update

2023-09-16 17:28:03 -07:00 · 2023-09-16 17:28:03 -07:00 · 796d366b97
commit 796d366b97
parent 5af6d93694
455 changed files with 7413 additions and 1900 deletions
--- a/Task/Sorting-algorithms-Strand-sort/Quackery/sorting-algorithms-strand-sort.quackery
+++ b/Task/Sorting-algorithms-Strand-sort/Quackery/sorting-algorithms-strand-sort.quackery
@ -0,0 +1,32 @@
+  [ [] swap
+    1 split witheach
+      [ over -1 peek
+        over > iff
+          [ swap dip join ]
+        else join ] ]       is sift       (   [ --> [ [ )
+
+  [ [] temp put
+    [ dup  [] != while
+      over [] != while
+      over 0 peek
+      over 0 peek
+      > not if dip
+        [ behead
+          temp take
+          swap join
+          temp put ]
+        again ]
+      join
+      temp take swap join ] is merge      ( [ [ --> [   )
+
+  [ [] swap
+    [ sift
+      rot merge swap
+      dup [] = until ]
+    drop ]                  is strandsort (   [ --> [   )
+
+  [] 25 times
+    [ 89 random 10 + join ]
+  say "Before: " dup echo cr
+  strandsort
+  say "After:  " echo cr