stopifnot(all(
is.flip_pair(c(10,46)),
is.flip_pair(c(98,124)),
!is.flip_pair(c(10,98)),
!is.flip_pair(c(11,98))
))
is.flip(c(
as.cycle("(10,46)(44,50)(56,62)"),
as.cycle("74,121)"),
as.cycle("74,120)")
))
Run the code above in your browser using DataLab