problem.R

terminal.cells <- read.csv(problemfile, header=T, stringsAsFactors=FALSE)
terminal.cells$tcell <- (terminal.cells$Y -1)* side + terminal.cells$X # cell serial number
num.colors <- length(unique(terminal.cells$color))
colorpalette <- unique(terminal.cells$palette)


#The problemfile
#X,Y,color, palette
#1,5,1,red
#2,4,1,red
#1,4,2,yellow
#5,5,2,yellow
#1,2,3,blue
#4,4,3,blue
#2,2,4,green
#4,3,4,green