diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2015-03-18 15:09:18 +0800 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2015-03-18 15:09:18 +0800 |
| commit | 3ae71a6adaf7cb9249a1a610c228e8ac84afab6d (patch) | |
| tree | fa7544b938243269c4521d81b4aa62be11adcd97 /h21.hs | |
| parent | 18a639eb460d7581a5dd594a50eb236ae7675685 (diff) | |
| download | h99-3ae71a6adaf7cb9249a1a610c228e8ac84afab6d.tar.gz h99-3ae71a6adaf7cb9249a1a610c228e8ac84afab6d.tar.bz2 h99-3ae71a6adaf7cb9249a1a610c228e8ac84afab6d.zip | |
+20 +21 +22 +23 +24 +25
Diffstat (limited to 'h21.hs')
| -rw-r--r-- | h21.hs | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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) |