Data update

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

@@ -1,20 +0,0 @@
-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

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