Idiomatically determine all the lowercase and uppercase letters: Difference between revisions
Content added Content deleted
(→{{header|Rust}}: Improve to idiomatic Rust code) |
m (→{{header|Haskell}}: Preferred <$> to <&>) |
||
Line 562: | Line 562: | ||
<lang Haskell>import Data.Bifunctor (second) |
<lang Haskell>import Data.Bifunctor (second) |
||
import Data.Char (chr, isLower, isPrint, isUpper) |
import Data.Char (chr, isLower, isPrint, isUpper) |
||
import Data.Functor ((<&>)) |
|||
import Data.List (partition) |
import Data.List (partition) |
||
import Data.List.Split (chunksOf) |
import Data.List.Split (chunksOf) |
||
Line 580: | Line 579: | ||
main = |
main = |
||
mapM_ (putStrLn . unlines) $ |
mapM_ (putStrLn . unlines) $ |
||
(\(k, f) -> k : chunksOf 70 (f uppersAndLowers)) |
|||
[("Upper:", fst), ("Lower:", snd)] |
|||
< |
<$> [("Upper:", fst), ("Lower:", snd)]</lang> |
||
{{Out}} |
{{Out}} |
||
<pre>Upper: |
<pre>Upper: |