Anonymous user
Compare length of two strings: Difference between revisions
→{{header|Haskell}}: added solution
m (→{{header|FreeBASIC}}: -fix) |
(→{{header|Haskell}}: added solution) |
||
Line 48:
{{out}}<pre>123456789 9
abcd 4</pre>
=={{header|Haskell}}==
Using native String type:
<lang haskell>task s1 s2 = do
let strs = if length s1 > length s2 then [s1, s2] else [s2, s1]
mapM_ (\s -> putStrLn $ show (length s) ++ "\t" ++ show s) strs</lang>
<pre>λ> task "short string" "longer string"
13 "longer string"
12 "short string"</pre>
or more practically useful Text:
<lang haskell>import qualified Data.Text as T
taskT s1 s2 = do
let strs = if T.length s1 > T.length s2 then [s1, s2] else [s2, s1]
mapM_ (\s -> putStrLn $ show (T.length s) ++ "\t" ++ show s) strs</lang>
<pre>λ> :set -XOverloadedStrings
λ> taskT "short string" "longer string"
13 "longer string"
12 "short string"</pre>
=={{header|jq}}==
| |||