Longest string challenge: Difference between revisions
Content deleted Content added
Longest string challenge en Yabasic |
Longest string challenge en True BASIC |
||
Line 574:
ddd
ggg</pre>
=={{header|BASIC}}==
==={{header|True BASIC}}===
{{trans|FreeBASIC}}
<lang basic>
DATA "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~" ! la tilde es solo para mantener el código compacto
DO
READ test$
IF test$ = "~" then EXIT DO
IF len(test$) > len(test1$) then
LET test1$ = test$
LET test2$ = test1$ & chr$(10)
ELSEIF len(test$) = len(test1$) then
LET test2$ = test2$ & test$ & chr$(10)
END IF
LOOP
PRINT(test2$)
END
</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
=={{header|BBC BASIC}}==
| |||