diff options
Diffstat (limited to 'h15.hs')
-rw-r--r-- | h15.hs | 11 |
1 files changed, 0 insertions, 11 deletions
@@ -1,11 +0,0 @@ -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] |