Cyclically sort lists of mixed element types? [duplicate]

Question

Consider the two lists

list1={1,2,a[1],8,b[4],9};
list2={8,b[4],9,1,2,a[1]};

it is evident by inspection that list2 is just a cyclic rotation of list1. Considering an equivalence class of lists under cyclic rotations, I would like to have a function cycRot[x_List] that takes a list and returns a cyclically rotated representative of that list, which would be independent of the initial cyclic order of the list. Such that

cycRot[list1]==cycRot[list2]

True

is guaranteed (the exact resulting rotation is irrelevant as long as the function returns the same result for any cyclically equivalent list). Is there such a function in Mathematica? Or maybe one can implement it efficiently? Thanks for any suggestion!

Answer 1

Here is a function

cyc[list_] := RotateLeft[list, First@Ordering[list, 1]]

For your lists:

list1 = {1, 2, a[1], 8, b[4], 9};
list2 = {8, b[4], 9, 1, 2, a[1]};
cyc[list1] == cyc[list2]
True

Answer 2

My own attempt at a solution is this

cycRot[x_List] := Block[{p},
  p = Position[x, Sort[x][[1]], 1][[1, 1]];
  {x[[p ;;]], x[[1 ;; p - 1]]} // Flatten
]

However, I am not sure if this is going to be slow for larger lists, since the cyclic property is not being utilized to improve performance when performing a complete sorting. Maybe there are better more efficient solutions?