Nested function: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Added a variant.) |
|||
| Line 830: | Line 830: | ||
let makeItem = (<>) . (<> separator) . show |
let makeItem = (<>) . (<> separator) . show |
||
in unlines $ zipWith makeItem [1 ..] ["First", "Second", "Third"] |
in unlines $ zipWith makeItem [1 ..] ["First", "Second", "Third"] |
||
main :: IO () |
|||
main = putStrLn $ makeList ". "</syntaxhighlight> |
|||
or perhaps: |
|||
<syntaxhighlight lang="haskell">makeList :: String -> String |
|||
makeList separator = |
|||
let makeItem = unlines . zipWith ((<>) . (<> separator) . show) [1..] |
|||
in makeItem ["First", "Second", "Third"] |
|||
main :: IO () |
main :: IO () |
||