Data commit

Task/Look-and-say-sequence/VBScript/look-and-say-sequence-1.vb

@@ -0,0 +1,20 @@
+function looksay( n )
+	dim i
+	dim accum
+	dim res
+	dim c
+	res = vbnullstring
+	do
+		if n = vbnullstring then exit do
+		accum = 0
+		c = left( n,1 )
+		do while left( n, 1 ) = c
+			accum = accum + 1
+			n = mid(n,2)
+		loop
+		if accum > 0 then
+			res = res & accum & c
+		end if
+	loop
+	looksay = res
+end function

Task/Look-and-say-sequence/VBScript/look-and-say-sequence-2.vb

@@ -0,0 +1,6 @@
+dim m
+m = 1
+for i = 0 to 13
+	m = looksay(m)
+	wscript.echo m
+next