Abbreviations, automatic: Difference between revisions
m
→{{header|Haskell}}: Tidied
m (→{{header|Haskell}}: Tidied) |
|||
Line 2,841:
<lang haskell>import Data.List (inits, intercalate, nub, transpose)
-
abbrevns :: [String] -> [String]
abbrevns xs
| null xs = []
| otherwise =
nub
<$> transpose (inits <$> xs)
where
n = length xs
-
main :: IO ()
main = do
Line 2,855 ⟶ 2,861:
mapM_ putStrLn $
take 10 $
intercalate "\t"
[ show . length . head . abbrevns . words,
]
. return
<$> lines s</lang>
{{Out}}
<pre>2 Sunday Monday Tuesday Wednesday Thursday Friday Saturday
|