1 files changed, 2 insertions, 0 deletions

diff --git a/H21.hs b/H21.hs
new file mode 100644
index 0000000..c23b31b
--- /dev/null
+++ b/H21.hs
@@ -0,0 +1,2 @@
+insertAt :: a -> [a] -> Int -> [a]
+insertAt x xs c = let k = c-1 in take k xs ++ x:(drop k xs)