Initial data commit

Task/Sorting-algorithms-Gnome-sort/VBScript/sorting-algorithms-gnome-sort-1.vb

@@ -0,0 +1,27 @@
+function gnomeSort( a )
+	dim i
+	dim j
+	i = 1
+	j = 2
+	do while i < ubound( a ) + 1
+		if a(i-1) <= a(i) then
+			i = j
+			j = j + 1
+		else
+			swap a(i-1), a(i)
+			i = i - 1
+			if i = 0 then
+				i = j
+				j = j + 1
+			end if
+		end if
+	loop
+	gnomeSort = a
+end function
+
+sub swap( byref x, byref y )
+	dim temp
+	temp = x
+	x = y
+	y = temp
+end sub

Task/Sorting-algorithms-Gnome-sort/VBScript/sorting-algorithms-gnome-sort-2.vb

@@ -0,0 +1,22 @@
+dim a
+dim b
+
+a = array( "zanzibar", "aardvark","ampicillin","zulu","gogodala", "wolverhampton")
+b = gnomeSort( a )
+wscript.echo join(a, ", ")
+
+a = array( 234,567,345,568,2345,89,547,23,649,5769,456,456,567)
+b = gnomeSort( a )
+wscript.echo join(a, ", ")
+
+a = array( true, false, true, true, false, false, true, false)
+b = gnomeSort( a )
+wscript.echo join(a, ", ")
+
+a = array( 1,2,2,4,67789,-3,-45.99)
+b = gnomeSort( a )
+wscript.echo join(a, ", ")
+
+a = array( now(), now()-1,now()+2)
+b = gnomeSort( a )
+wscript.echo join(a, ", ")

Task/Sorting-algorithms-Gnome-sort/VBScript/sorting-algorithms-gnome-sort-3.vb

@@ -0,0 +1,5 @@
+aardvark, ampicillin, gogodala, wolverhampton, zanzibar, zulu
+23, 89, 234, 345, 456, 456, 547, 567, 567, 568, 649, 2345, 5769
+True, True, True, True, False, False, False, False
+-45.99, -3, 1, 2, 2, 4, 67789
+2/02/2010 10:19:51 AM, 3/02/2010 10:19:51 AM, 5/02/2010 10:19:51 AM