Initial data commit

Task/Sorting-algorithms-Radix-sort/B4X/sorting-algorithms-radix-sort.b4x

@@ -0,0 +1,25 @@
+Sub RadixSort (Old() As Int)
+	Dim i, j As Int
+	Dim tmp(Old.Length) As Int
+	For shift = 31 To 0 Step - 1
+		j = 0
+		For i = 0 To Old.Length - 1
+			Dim move As Boolean = Bit.ShiftLeft(Old(i), shift) >= 0
+			If (shift = 0 And move = False) Or (shift <> 0 And move) Then
+				Old(i - j) = Old(i)
+			Else
+				tmp(j) = Old(i)
+				j = j + 1
+			End If
+		Next
+		Bit.ArrayCopy(tmp, 0, Old, Old.Length - j, j)
+	Next
+End Sub
+
+Sub Test
+	Dim arr() As Int = Array As Int(34, 23, 54, -123, 543, 123)
+	RadixSort(arr)
+	For Each i As Int In arr
+		Log(i)
+	Next
+End Sub