rename to H**, +31 +32 +33 +34 +35 +36

1 files changed, 11 insertions, 0 deletions

diff --git a/H15.hs b/H15.hs
new file mode 100644
index 0000000..a8f84c1
--- /dev/null
+++ b/H15.hs
@@ -0,0 +1,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]