cyclist.R
In permutations: The Symmetric Group: Permutations of a Finite Set

## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library("permutations")
set.seed(0)

## -----------------------------------------------------------------------------
list(c(1,3,4), c(8,9), c(2,5))

## -----------------------------------------------------------------------------
cyclist_valid(list(c(1,-3,4), c(8,9), c(2,5)))
cyclist_valid(list(c(0,3,4), c(8,9), c(2,5)))
cyclist_valid(list(c(1.2,3,4), c(8,9), c(2,5)))
cyclist_valid(list(c(3,3,4), c(8,9), c(2,5)))
cyclist_valid(list(c(1,3,4), c(1,9), c(2,5)))

## -----------------------------------------------------------------------------
a <- list(c(9,3,4), c(8,1), c(2,5))
a
nicify_cyclist(a)

## -----------------------------------------------------------------------------
a <- list(c(9,3,4), 7, c(8,1), c(2,5))
a
nicify_cyclist(a)

## -----------------------------------------------------------------------------
v <- c(1,2,4,3,5,9,6,7,8)
v
as.word(v)
vec2cyclist_single(v)

## -----------------------------------------------------------------------------
cyclist2word_single(list(c(1,3,4),c(8,7,9)))

## -----------------------------------------------------------------------------
char2cyclist_single("(3)(139)")
char2cyclist_single("(342)(19)")

## -----------------------------------------------------------------------------
(a <- list(list(c(1,2,4),c(3,6)),list(c(1,2),c(3,4,5,6,7))))
cycle(a)

## -----------------------------------------------------------------------------
as.cycle(c("(124)(36)", "(12)(34567)"))