Compare length of two strings: Difference between revisions

Content added Content deleted

Inline

@@ Line 400: / Line 400: @@
 I LIKE TEA ( 10 )
 </pre>
+==={{header|FreeBASIC}}===
+<lang freebasic>sub comp( A as string, B as string )
+    if len(A)>=len(B) then
+        print A, len(A)
+        print B, len(B)
+    else
+        print B, len(B)
+        print A, len(A)
+    end if
+end sub
+comp( "abcd", "123456789" )</lang>
+{{out}}<pre>123456789      9
+abcd           4</pre>
 =={{header|Fortran}}==
@@ Line 453: / Line 470: @@
 </pre>
-==={{header|FreeBASIC}}===
-<lang freebasic>sub comp( A as string, B as string )
-    if len(A)>=len(B) then
-        print A, len(A)
-        print B, len(B)
-    else
-        print B, len(B)
-        print A, len(A)
-    end if
-end sub
-comp( "abcd", "123456789" )</lang>
-{{out}}<pre>123456789      9
-abcd           4</pre>
 =={{header|Haskell}}==