Compare length of two strings: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,229: / Line 1,229: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="easylang">
-proc stringLength a$ b$ . .
+proc scmp a$ b$ . .
-   lineA$ = "\"" & a$ & "\" (length: " & len a$ & ")"
+   if len a$ < len b$
+      swap a$ b$
-   lineB$ = "\"" & b$ & "\" (length: " & len b$ & ")"
-   if len a$ >= len b$
-      print lineA$ ; print lineB$
-   else
-      print lineB$ ; print lineA$
    .
+   print a$ & " - " & len a$
+   print b$ & " - " & len b$
+   print ""
 .
-call stringLength "Easy" "Language"
+scmp "Easy" "Language"
-call stringLength "Rosetta" "Code"
+scmp "Rosetta" "Code"
 </syntaxhighlight>
-{{out}}
-<pre>
-"Language" (length: 8)
-"Easy" (length: 4)
-"Rosetta" (length: 7)
-"Code" (length: 4)
-</pre>
 =={{header|EMal}}==