R/rotationlist.R

In vdweijer/games: Functions for word games.

rotations.list=list(
list(T0=c(1,2,3,4),  # walks starting at 1
     T1=c(3,1,4,3), # at 2
     T2=c(4,3,2,1), # at 4
     T3=c(2,4,1,3)), # at 3
list(T0=c(1,2,3,4,5,6,7,8,9), # walks starting 1
     T1=c(3,6,9,2,5,8,1,4,7), # at 7
     T2=c(9,8,7,6,5,4,3,2,1), # at 9
     T3=c(7,4,1,8,5,2,9,6,3)), # at 3
list(T0=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16), # walks starting at 1, 2 and 6
     T1=c(13,9,5,1,14,10,6,2,15,11,7,3,16,12,8,4), # at 4, 8 and 7
     T2=c(16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1), # at 16, 15 and 11
     T3=c(4,8,12,16,3,7,11,15,2,6,10,14,1,5,9,13), # at 13, 9, 10
     T4=c(4,3,2,1,8,7,6,5,12,11,10,9,16,15,14,13), # at 3
     T5=c(1,5,9,13,2,6,10,14,3,7,11,15,4,8,12,16), # at 5
     T6=c(13,14,15,16,9,10,11,12,5,6,7,8,1,2,3,4), # at 14
     T7=c(16,12,8,4,15,11,7,3,14,10,6,2,13,9,5,1))) # at 12
names(rotations.list)=c("4","9","16")