99 questions/Solutions/15

Revision as of 22:28, 20 December 2010 by Smiley325 (Talk | contribs)

(**) 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