-- | @'cycle' xs@ returns the infinite repetition of @xs@:
--
-- > cycle [1,2,3] = 1 :| [2,3,1,2,3,...]
cycle :: NonEmpty a -> NonEmpty a
cycle = fromList . List.cycle . toList
cycle :: NonEmpty a -> NonEmpty a
cycle = fromList . List.cycle . toList
cycle = fromList . List.cycle . toList