Split a sequence into {transient repeat} where repeat is the shortest end-cycle occurring at least n times
FindTransientRepeat[list, n]
FindTransientRepeat[string, n]
FindTransientRepeat["abcdedede", 2]
→ {abc, de}FindTransientRepeat[{1, 2, 1, 2, 1, 2}, 3]
→ {{}, {1, 2}}FindTransientRepeat[{RGBColor[1, 1, 0], RGBColor[0, 0, 1], RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[1, 0, 0], RGBColor[0, 1, 0], RGBColor[1, 0, 0], RGBColor[0, 1, 0]}, 2]
→ {{RGBColor[1, 1, 0], RGBColor[0, 0, 1]}, {RGBColor[1, 0, 0], RGBColor[0, 1, 0]}}