Idiomatically determine all the lowercase and uppercase letters: Difference between revisions

Content added Content deleted
(→‎{{header|Haskell}}: Tidied test with bimap)
Line 580: Line 580:
main :: IO ()
main :: IO ()
main =
main =
let label k = unlines . (k :)
(putStrLn . unlines . uncurry (<>)) $
bimap
in (putStrLn . uncurry (<>)) $
bimap
("Upper:" :)
(label "Upper:")
("\nLower:" :)
⚫
(join bimap (chunksOf 70) uppersAndLowers)</lang>
(label "\nLower:")
⚫
(join bimap (chunksOf 70) uppersAndLowers)</lang>
{{Out}}
{{Out}}
<pre>Upper:
<pre>Upper:
Retrieved from "https://rosettacode.org/wiki/Idiomatically_determine_all_the_lowercase_and_uppercase_letters"