blob: a8f84c17ef35d8a19e146d29c56e364f249416a2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
import Control.Monad
repli :: [a] -> [a]
repli xs n = concatMap (replicate n) xs
repli' = flip $ concatMap . replicate
repli'' xs n = xs >>= replicate n
repli''' [] _ = []
repli''' (x:xs) n = foldr (const (x:)) (repli xs n) [1..n]
|
