W2L1(Lecture3)-FP24-Vlad-Batch1Q7-WL

skips :: [a] -> [[a]]
skips xs =
  map generateSublist [1..length xs]
    where
      generateSublist i =
        map fst (filter (\(x, id) -> id `mod` i == 0) (zip xs [1..length xs]))