repeats

repeats.hs

-- me
skips :: [a] -> [[a]]
skips xs = zipWith takeEvery [1..length xs] (repeat xs)

takeEvery :: Int -> [a] -> [a]
takeEvery n xs 
    | n > length xs = []
    | otherwise     = xs !! (n-1) : takeEvery n (drop n xs)

-- the guy she tells me not to worry about
repeats :: [a] -> [[a]]
repeats xs =
      map (map fst . filter snd)
    . zipWith zip (map (const xs) xs)
    . map cycle
    . iterate (False :)
    $ [True]