Just another update

Task/Sorting-algorithms-Selection-sort/Eiffel/sorting-algorithms-selection-sort-1.e

@@ -0,0 +1,62 @@
+class
+	SELECTION_SORT[G -> COMPARABLE]
+
+
+
+feature {NONE}
+index_of_min(ar: ARRAY [G]; lower: INTEGER):INTEGER
+		--find index of smallest element in array ar in the range of lower and the max index.
+        require
+        	lower_positiv : lower >=1
+        	lower_in_range: lower <= ar.count
+        	ar_not_void: ar/= Void
+        local
+                i, index: INTEGER
+                min: G
+        do
+                from
+                        i:=lower
+                        min := ar.item (i)
+                        index := i
+                until
+                        i+1 > ar.count
+                loop
+                        if  ar.item(i+1) < min then
+                                min := ar.item(i+1)
+                                index := i+1
+                        end
+                        i := i + 1
+                end
+                Result := index
+		ensure
+			result_is_set: Result /= Void
+        end
+
+
+
+sort (ar: ARRAY [G]):ARRAY[G]
+                -- sort array ar with selectionsort
+		require
+			ar_not_void: ar/=VOID
+		local
+			min_index: INTEGER
+			ith: G
+        do
+			across ar as ic loop
+				min_index := index_of_min(ar,ic.cursor_index)
+	       		ith:=ar[ic.cursor_index]
+	       		ar[ic.cursor_index]:= ar[min_index]
+	       		ar[min_index]:=ith
+	       	end
+	       	Result:= ar
+		ensure
+			Result_is_set: Result /= Void
+        end
+
+
+feature
+selectionsort(ar: ARRAY[G]):ARRAY[G]
+		do
+			Result:= sort(ar)
+		end
+end

Task/Sorting-algorithms-Selection-sort/Eiffel/sorting-algorithms-selection-sort-2.e

@@ -0,0 +1,23 @@
+class
+	APPLICATION
+inherit
+	ARGUMENTS
+create
+    make
+
+feature
+    make
+
+        do    	
+       	test := <<1, 27, 32, 99, 1, -7, 3, 5, 7>>
+        io.put_string ("Unsorted: ")
+    	across test as ic  loop io.put_string (ic.item.out + " ") end
+    	create selection
+    	io.put_string ("%NSorted: ")
+        test:= selectionsort.selectionsort(test)
+    	across test as ar  loop io.put_string (ar.item.out + " ") end
+        end
+
+	test: ARRAY[INTEGER]
+	selection: SELECTION_SORT[INTEGER]
+end