Data update

Task/Look-and-say-sequence/Applesoft-BASIC/look-and-say-sequence.basic

@@ -0,0 +1,12 @@
+10 I$="1"
+20 FOR Z=1 TO 15
+30  PRINT I$
+40  O$=""
+50  FOR I=1 TO LEN(I$)
+60   C=1
+70   IF MID$(I$,I,1)=MID$(I$,I+C,1) THEN C=C+1: GOTO 70
+80   O$=O$+CHR$(C+48)+MID$(I$,I,1)
+90   I=I+C-1
+100  NEXT I
+110  I$=O$
+120 NEXT Z

Task/Look-and-say-sequence/Chipmunk-Basic/look-and-say-sequence.basic

@@ -0,0 +1,23 @@
+100 cls
+110 dim x$(2)
+120 i = 0 ' índice de cadena de entrada
+130 x$(i) = "1"
+140 input "Indica cuantas repeticiones: ",r
+150 print "Secuencia:"
+160 print x$(i)
+170 for n = 1 to r-1
+180   j = 1-i ' índice de cadena de salida
+190   x$(j) = ""
+200   k = 1
+210   while k <= len(x$(i))
+220     k0 = k+1
+230     while ((k0 <= len(x$(i))) and (mid$(x$(i),k,1) = mid$(x$(i),k0,1)))
+240       k0 = k0+1
+250     wend
+260     x$(j) = x$(j)+str$(k0-k)+mid$(x$(i),k,1)
+270     k = k0
+280   wend
+290   i = j
+300   print x$(j)
+310 next n
+320 end

Task/Look-and-say-sequence/Insitux/look-and-say-sequence.insitux

@@ -1,7 +1,7 @@
 (function look-and-say n x
   (return-when (empty? n) x)
-  (var digit (0 n)
-       [before after] ((juxt take-while skip-while) (= digit) n))
+  (let digit (0 n)
+       [before after] (part-before (!= digit) n))
   (recur after (strn x (len before) digit)))
 
 (var result "1")

Task/Look-and-say-sequence/True-BASIC/look-and-say-sequence.basic

@@ -0,0 +1,15 @@
+LET i$ = "1"
+FOR z = 1 TO 15
+    PRINT i$
+    LET o$ = ""
+    FOR i = 1 TO LEN(i$)
+        LET c = 1
+        DO WHILE (i$)[i:i+1-1] = (i$)[i+c:i+c+1-1]
+           LET c = c+1
+        LOOP
+        LET o$ = o$ & CHR$(c+48) & (i$)[i:i+1-1]
+        LET i = i+c-1
+    NEXT i
+    LET i$ = o$
+NEXT z
+END