Longest string challenge: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,380: / 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}}==