Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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]))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement