7 lines
212 B
Haskell
7 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 ". "
|