Data update

Task/Sorting-algorithms-Quicksort/Tailspin/sorting-algorithms-quicksort-2.tailspin

@@ -1,36 +1,20 @@
-templates quicksort
-  templates partial
-    def first: $(1);
-    def last: $(2);
-    def pivot: $@quicksort($first);
-    @: $(1) + 1;
-    $(2) -> #
-
-    when <..~$@> do
-      def limit: $;
-      @quicksort($first): $@quicksort($limit);
-      @quicksort($limit): $pivot;
-      [ $first, $limit - 1 ] !
-      [ $limit + 1, $last ] !
-
-    when <?($@quicksort($) <$pivot~..>)> do
-      $ - 1 -> #
-
-    when <?($@quicksort($@) <..$pivot>)> do
-      @: $@ + 1; $ -> #
-
+quicksort templates
+  partition templates
+    @ set [];
+    pivot is $(1);
+    [$(2..)... -> #]!
+    $pivot !
+    $@ !
+    when <|..$pivot> do
+      $ !
     otherwise
-      def temp: $@quicksort($@);
-      @quicksort($@): $@quicksort($);
-      @quicksort($): $temp;
-      @: $@ + 1; $ - 1 -> #
-  end partial
-  @: $;
-  [1, $@::length] -> #
-  $@ !
-
-  when <?($(1) <..~$(2)>)> do
-    $ -> partial -> #
+      ..|@ set $;
+  end partition
+  [$ -> #] !
+  when <|[](1..)> do
+    $ -> partition -> # !
+  when <~|[]> do
+    $ !
 end quicksort
 
-[4,5,3,8,1,2,6,7,9,8,5] -> quicksort -> !OUT::write
+[4,5,3,8,1,2,6,7,9,8,5] -> quicksort !

Task/Sorting-algorithms-Quicksort/Tailspin/sorting-algorithms-quicksort-3.tailspin

@@ -0,0 +1,36 @@
+templates quicksort
+  templates partial
+    def first: $(1);
+    def last: $(2);
+    def pivot: $@quicksort($first);
+    @: $(1) + 1;
+    $(2) -> #
+
+    when <..~$@> do
+      def limit: $;
+      @quicksort($first): $@quicksort($limit);
+      @quicksort($limit): $pivot;
+      [ $first, $limit - 1 ] !
+      [ $limit + 1, $last ] !
+
+    when <?($@quicksort($) <$pivot~..>)> do
+      $ - 1 -> #
+
+    when <?($@quicksort($@) <..$pivot>)> do
+      @: $@ + 1; $ -> #
+
+    otherwise
+      def temp: $@quicksort($@);
+      @quicksort($@): $@quicksort($);
+      @quicksort($): $temp;
+      @: $@ + 1; $ - 1 -> #
+  end partial
+  @: $;
+  [1, $@::length] -> #
+  $@ !
+
+  when <?($(1) <..~$(2)>)> do
+    $ -> partial -> #
+end quicksort
+
+[4,5,3,8,1,2,6,7,9,8,5] -> quicksort -> !OUT::write

Task/Sorting-algorithms-Quicksort/Tailspin/sorting-algorithms-quicksort-4.tailspin

@@ -0,0 +1,37 @@
+quicksort templates
+  partial templates
+    first is $(1);
+    last is $(2);
+    pivot is $@quicksort($first);
+    @ set $first + 1;
+    $last -> # !
+
+    when <|..~$@> do
+      limit is $;
+      @quicksort($first) set $@quicksort($limit);
+      @quicksort($limit) set $pivot;
+      [ $first, $limit - 1 ] !
+      [ $limit + 1, $last ] !
+
+    when <|?($@quicksort($) matches <|$pivot~..>)> do
+      $ - 1 -> # !
+
+    when <|?($@quicksort($@) matches <|..$pivot>)> do
+      @ set $@ + 1; $ -> # !
+
+    otherwise
+      temp is $@quicksort($@);
+      @quicksort($@) set $@quicksort($);
+      @quicksort($) set $temp;
+      @ set $@ + 1; $ - 1 -> # !
+  end partial
+
+  @ set $;
+  [1, $@::length] -> !#
+  $@ !
+
+  when <|?($(1) matches <|..~$(2)>)> do
+    $ -> partial -> !#
+end quicksort
+
+[4,5,3,8,1,2,6,7,9,8,5] -> quicksort !