September 2017 Update

Task/Sorting-algorithms-Bead-sort/Zkl/sorting-algorithms-bead-sort-1.zkl

@@ -0,0 +1,11 @@
+fcn columns(m){ // m is list of lists of zeros/beads, # beads is n, eg (0,0,0)==3
+   m
+   .apply("len")   // (0,0,0)-->3
+   .reduce("max")  // largest bead stack
+   .walker()       // [0..max]
+   .apply('wrap(i){ m.filter('wrap(s){ s.len() > i }).len().pump(List,0) });
+}
+
+fcn beadSort(data){
+   data.apply("pump",List,0):columns(_):columns(_).apply("len");
+}

Task/Sorting-algorithms-Bead-sort/Zkl/sorting-algorithms-bead-sort-2.zkl

@@ -0,0 +1,2 @@
+T(5,3,1,7,4,1,1):beadSort(_).println();
+T(4,3,3,2,1):beadSort(_).println();