Family Day update

Task/Sorting-algorithms-Selection-sort/Factor/sorting-algorithms-selection-sort-1.factor

@@ -0,0 +1,8 @@
+USING: kernel math sequences sequences.extras ;
+
+: select ( m n seq -- )
+    [ dup ] 2dip [ <slice> [ ] infimum-by* drop over + ]
+    [ exchange ] bi ;
+
+: selection-sort! ( seq -- seq' )
+    [ ] [ length dup ] [ ] tri [ select ] 2curry each-integer ;

Task/Sorting-algorithms-Selection-sort/Factor/sorting-algorithms-selection-sort-2.factor

@@ -0,0 +1,4 @@
+IN: scratchpad { 5 -6 3 9 -2 4 -1 -6 5 -5 } selection-sort!
+
+--- Data stack:
+{ -6 -6 -5 -2 -1 3 4 5 5 9 }