iporsut · August 29, 2015 14:21
diff --git a/rotate.hs b/rotate.hs
 rotate xs n | n >= 0 = zipWith (\_ x -> x) xs $ drop n $ cycle xs
            | otherwise = take len $ drop dropLen $ (cycle xs)
                          where
                            len = length xs
                            dropLen = (len + (n `mod` (-len)))
	rotate xs n \| n >= 0 = zipWith (\_ x -> x) xs $ drop n $ cycle xs
	\| otherwise = take len $ drop dropLen $ (cycle xs)
	where
	len = length xs
	dropLen = (len + (n `mod` (-len)))