99 questions/Solutions/14
< 99 questions | Solutions
Jump to navigation
Jump to search
(*) Duplicate the elements of a list.
dupli [] = []
dupli (x:xs) = x:x:dupli xs
or, using list comprehension syntax:
dupli list = concat [[x,x] | x <- list]
or, using the list monad:
dupli xs = xs >>= (\x -> [x,x])
or, using concatMap:
dupli = concatMap (\x -> [x,x])
also using concatMap:
dupli = concatMap (replicate 2)
or, using foldr:
dupli = foldr (\ x xs -> x : x : xs) []