require(graph)
require(eulerian)
g <- new("graphNEL", nodes=LETTERS[1:4], edgemode="directed")
g <- addEdge(graph=g, from=LETTERS[1:4], to=LETTERS[c(2:4,1)])
if(hasEulerianCycle(g)){
ecycle <- eulerian(g)
writeLines(paste(ecycle, collapse=" -> "))
}
Run the code above in your browser using DataLab