March 2014 update

Task/Sorting-algorithms-Radix-sort/Icon/sorting-algorithms-radix-sort.icon

@@ -0,0 +1,14 @@
+procedure main(A)
+    every writes((!rSort(A)||" ")|"\n")
+end
+
+procedure rSort(A)
+    every (min := A[1]) >:= !A
+    every (mlen := *(A[1]-min)) <:= (!A - min)
+    every i := !*mlen do {
+        every put(b := [], |[]\12)
+        every a := !A do put(b[(a-min)[-i]+2|1], a)
+        every put(A := [],!!b)
+        }
+    return A
+end