“Lista de Roatate Haskell” Respostas de código

Lista de Roatate Haskell

rotate :: Int -> [a] -> [a]
rotate _ [] = []
rotate n xs = zipWith const (drop n (cycle xs)) xs