fay-0.19: tests/basicFunctions.hs

module BasicFunctions where

main = putStrLn (concat' ["Hello, ","World!"])

concat' = foldr' append []

foldr' f z []     = z
foldr' f z (x:xs) = f x (foldr f z xs)

append (x:xs) ys = x : append xs ys
append []     ys = ys