printLines.hs

printLines.hs

import Data.Char

navne :: [String]
navne = ["Morten", "Thomas", "Trine"]

buildString :: String -> [String] -> String
buildString a [x] = a ++ x ++ "\n"
buildString a xs = buildString (a ++ head xs ++ "\n") (tail xs)

buildString' :: String -> [String] -> String
buildString' a xs = if length xs == 1
		            then a ++ head xs ++ "\n"
    		        else buildString' (a ++ head xs ++ "\n") (tail xs)

folder :: [String] -> IO ()
folder xs = putStr $ foldl (\result name -> result ++ name ++ "\n") "foo" xs

mapper = mapM_ putStrLn navne