Data commit

Task/Largest-int-from-concatenated-ints/VBScript/largest-int-from-concatenated-ints.vb

@@ -0,0 +1,24 @@
+Function largestint(list)
+	nums = Split(list,",")
+	Do Until IsSorted = True
+		IsSorted = True
+		For i = 0 To UBound(nums)
+			If i <> UBound(nums) Then
+				a = nums(i)
+				b = nums(i+1)
+				If CLng(a&b) < CLng(b&a) Then
+					tmpnum = nums(i)
+					nums(i) = nums(i+1)
+					nums(i+1) = tmpnum
+					IsSorted = False
+				End If
+			End If
+		Next
+	Loop
+	For j = 0 To UBound(nums)
+		largestint = largestint & nums(j)
+	Next
+End Function
+
+WScript.StdOut.Write largestint(WScript.Arguments(0))
+WScript.StdOut.WriteLine