Tarea 1

#Tarea 1
#Materia: Teoría de la computación y la compilación
#Autor: Daniel Cataño Restrepo

isdigit <- function(x){
  if(nchar(x) == 1){ #Se revisa que la longitud de la cadena sea 1
    for(i in 0:9)
      if(x == as.character(i))
        return(TRUE)
    return(FALSE)
  }else{
    return(FALSE)
  }
}

trim <- function(x){
  for(i in 1:length(x)){
    contador <- 0
    for(j in 1:nchar(x[i])){
      if(substr(x[i], j, j) == " ")
        contador <- contador + 1
      else{
        x[i] <- substr(x[i], contador + 1, nchar(x[i]))
        break
      }
    }
    contador <- 0
    for(j in nchar(x[i]):1){
      if(substr(x[i], j, j) == " ")
        contador <- contador + 1
      else{
        x[i] <- substr(x[i], 1, nchar(x[i])-contador)
        break
      }
    }
  }
  return(x)
}

checkstr <- function(x, g){
  longitud <- length(grep(x,g,ignore.case=TRUE,value=TRUE))
  if(longitud > 0)
    return(TRUE)
  return(FALSE)
}

print.tree <- function(x){
  tab <- function(x){
    cadena <- " "
    for(i in 1:x){
      cadena <- paste(cadena, "", collapse=NULL)
    }
    return(cadena)
  }
  contador <- 0
  cad <- ""
  cat("\t","nodo","\t","|","\t","arbol","\n", sep = "")
  for(i in 1:length(x$node.name)){
    cat("\t","\t","\t","\t",i,"\t","|","\t",cad,as.character(x$node.name[i]),"\n", sep = "")
    if(as.character(x$node.name[i]) == "*" | as.character(x$node.name[i]) == "/" |as.character(x$node.name[i]) == "-" |as.character(x$node.name[i]) == "+"){
      contador <- contador + 1
      cad <- tab(contador)
    }
  }
}

#Fuentes:
#- http://www.ub.edu/stat/docencia/Cursos-R/Radvanced/materials/CadenasenR.pdf
#- http://stackoverflow.com/questions/5671719/case-insensitive-search-of-a-list-in-r