deleteN :: Int -> [a] -> [a]
    deleteN _ []     = []
    deleteN n (h:t)
      | n == 0    = t
      | otherwise = h : deleteN (n-1) t

Esta solución está bastante optimizada, es recursiva terminal y tan sólo recorre la lista una vez.