8 lines
212 B
Haskell
8 lines
212 B
Haskell
|
makeList :: String -> String
|
||
|
|
makeList separator =
|
||
|
|
let makeItem = (<>) . (<> separator) . show
|
||
|
|
in unlines $ zipWith makeItem [1 ..] ["First", "Second", "Third"]
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = putStrLn $ makeList ". "
|