all tasks

Task/Sorting-algorithms-Cocktail-sort/Tcl/sorting-algorithms-cocktail-sort-1.tcl

@@ -0,0 +1,29 @@
+package require Tcl 8.5
+package require struct::list
+
+proc cocktailsort {A} {
+    set len [llength $A]
+    set swapped true
+    while {$swapped} {
+        set swapped false
+        for {set i 0} {$i < $len - 1} {incr i} {
+            set j [expr {$i + 1}]
+            if {[lindex $A $i] > [lindex $A $j]} {
+                struct::list swap A $i $j
+                set swapped true
+            }
+        }
+        if { ! $swapped} {
+            break
+        }
+        set swapped false
+        for {set i [expr {$len - 2}]} {$i >= 0} {incr i -1} {
+            set j [expr {$i + 1}]
+            if {[lindex $A $i] > [lindex $A $j]} {
+                struct::list swap A $i $j
+                set swapped true
+            }
+        }
+    }
+    return $A
+}

Task/Sorting-algorithms-Cocktail-sort/Tcl/sorting-algorithms-cocktail-sort-2.tcl

@@ -0,0 +1 @@
+puts [cocktailsort {8 6 4 2 1 3 5 7 9}] ;# => 1 2 3 4 5 6 7 8 9