March 2014 update

Task/Sorting-algorithms-Quicksort/Bracmat/sorting-algorithms-quicksort.bracmat

@@ -0,0 +1,19 @@
+( ( Q
+  =   Less Greater Equal pivot element
+    .     !arg:%(?pivot:?Equal) %?arg
+        & :?Less:?Greater
+        &   whl
+          ' ( !arg:%?element ?arg
+            &   (.!element)+(.!pivot)               { BAD: 1900+90 adds to 1990,  GOOD: (.1900)+(.90) is sorted to (.90)+(.1900) }
+              : (   (.!element)+(.!pivot)
+                  & !element !Less:?Less
+                |   (.!pivot)+(.!element)
+                  & !element !Greater:?Greater
+                | ?&!element !Equal:?Equal
+                )
+            )
+        & Q$!Less !Equal Q$!Greater
+      | !arg
+  )
+& out$Q$(1900 optimized variants of 4001/2 Quicksort (quick,sort) are (quick,sober) features of 90 languages)
+);