Data update

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

@@ -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.vbs

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