Look-and-say sequence: Difference between revisions
Content deleted Content added
Added Applesoft BASIC, Chipmunk Basic, GW-BASIC, MSX BASIC and True BASIC |
|||
Line 666: | Line 666: | ||
11131221131211131231121113112221121321132132211331222113112211 |
11131221131211131231121113112221121321132132211331222113112211 |
||
311311222113111231131112132112311321322112111312211312111322212311322113212221</pre> |
311311222113111231131112132112311321322112111312211312111322212311322113212221</pre> |
||
==={{header|Applesoft BASIC}}=== |
|||
{{trans|BASIC}} |
|||
<syntaxhighlight lang="vb">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</syntaxhighlight> |
|||
==={{header|Chipmunk Basic}}=== |
|||
{{works with|Chipmunk Basic|3.6.4}} |
|||
<syntaxhighlight lang="qbasic">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</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Similar to FreeBASIC entry.</pre> |
|||
==={{header|GW-BASIC}}=== |
|||
The [[#BASIC|BASIC]] solution works without any changes. |
|||
==={{header|MSX Basic}}=== |
|||
{{works with|MSX BASIC|any}} |
|||
The [[#BASIC|BASIC]] solution works without any changes. |
|||
==={{header|True BASIC}}=== |
|||
<syntaxhighlight lang="qbasic">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</syntaxhighlight> |
|||
{{out}} |
|||
<pre>Similar to FreeBASIC entry.</pre> |
|||
=={{header|BASIC256}}== |
=={{header|BASIC256}}== |