Longest string challenge: Difference between revisions
Longest string challenge en Yabasic
(Longest string challenge en FreeBASIC) |
(Longest string challenge en Yabasic) |
||
Line 2,380:
<s>ggg</s>
</t></lang>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang yabasic>
data "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~"
do
read test$
if test$ = "~" then break : fi
if len(test$) > len(test1$) then
test1$ = test$
test2$ = test1$ + chr$(10)
elsif len(test$) = len(test1$) then
test2$ = test2$ + test$ + chr$(10)
end if
loop
print(test2$)
end
</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
=={{header|zkl}}==
| |||