as.cycle("(123)(45)") %~% as.cycle("(89)(712)") # same shape
as.cycle("(123)(45)") %~% as.cycle("(89)(7124)") # different shape
are_conjugate(rperm(20,3),rperm(20,3))
rperm(20,3) %~% as.cycle(1:3)
z <- rperm(300,4)
stopifnot(all(are_conjugate(z,id)==is.id(z)))
data(megaminx)
stopifnot(all(are_conjugate(megaminx,megaminx^as.cycle(sample(129)))))
Run the code above in your browser using DataLab