blob: 670edf6bcfbc8d80b23015f82dc48ebc56ec6d40 (
plain)
1
2
3
4
5
6
7
|
import Control.Arrow
removeAt :: Int -> [a] -> [a]
removeAt n xs = (take (n-1) xs) ++ (drop n xs)
removeAtT :: Int -> [a] -> (a,[a])
removeAtT 1 (x:xs) = (x,xs)
removeAtT n (x:xs) = (fst &&& ((x:).snd)) $ removeAtT (n-1) xs
|
