skip.hs

--skipAt :: Int -> [a] -> [[a]]
--skipAt n (x:xs)     
--  | length xs > n   = [[x]] ++ (skipAt n xs)
--  | length xs <= n  = [[x]]
--  | n < 0           = [(x:xs)]
--  | otherwise       = skipAt (n-1) xs

-- Working solution
skipAt :: Int -> [a] -> [[a]]
skipAt n ls
  | n <= 0    = [ls]
  | otherwise = skipAt' n ls
  where
    skipAt' :: Int -> [a] -> [[a]]
    skipAt' 0 (x:xs)
      | length xs > n   = [[x]] ++ (skipAt' n xs)
      | length xs <= n  = [[x]]
    skipAt' m (x:xs)    = skipAt' (m-1) xs