Initial data commit

Task/Sorting-algorithms-Quicksort/Tcl/sorting-algorithms-quicksort.tcl

@@ -0,0 +1,15 @@
+package require Tcl 8.5
+
+proc quicksort {m} {
+    if {[llength $m] <= 1} {
+        return $m
+    }
+    set pivot [lindex $m 0]
+    set less [set equal [set greater [list]]]
+    foreach x $m {
+        lappend [expr {$x < $pivot ? "less" : $x > $pivot ? "greater" : "equal"}] $x
+    }
+    return [concat [quicksort $less] $equal [quicksort $greater]]
+}
+
+puts [quicksort {8 6 4 2 1 3 5 7 9}] ;# => 1 2 3 4 5 6 7 8 9