removeat.hs

module RemoveAt where
  
removeAt :: Int -> [a] -> (a, [a])

removeAt n xs = (item, list)
  where item = xs!!(n - 1)
        list = map snd (filter fst (zip characteristic xs))
        characteristic = before ++ pivot ++ after
        before = replicate (n - 1) True
        pivot = [False]
        after = repeat True