99 questions/Solutions/15
< 99 questions | Solutions
Jump to navigation
Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
(**) Replicate the elements of a list a given number of times.
repli :: [a] -> Int -> [a]
repli xs n = concatMap (replicate n) xs
or, in Pointfree style:
repli = flip $ concatMap . replicate
alternatively, without using the replicate function:
repli :: [a] -> Int -> [a]
repli xs n = concatMap (take n . repeat) xs
or, using the list monad:
repli :: [a] -> Int -> [a]
repli xs n = xs >>= replicate n
or, a more verbose solution without the use of replicate:
repli :: [a] -> Int -> [a]
repli xs n = foldl (\acc e -> acc ++ repli' e n) [] xs
where
repli' _ 0 = []
repli' x n = x : repli' x (n-1)
or, a convoluted recursive solution that only uses cons:
repli :: [a] -> Int -> [a]
repli [] _ = []
repli (x:xs) n = foldl (\f _ -> (x:) . f) (repli xs) [1..n] n