source("funcao.R")
#n <- 12 
#print(typeof(n))


#print(funcao(0))
# faça um programa que imprime de 1*1 a 9*9

#for (i in (1:n)){
 # for (j in (1:n)){
 #   print(paste0(i, " * ", j, " = " ,i*j))
 # }
#}



contaLetraEmTexto <- function(letra, texto ){
  if(nchar(letra) != 1){
    return(-1)
  }else{
    pos <- 1       
    cont <- 0                             
    while( pos <= nchar(texto) ){   
      letraAtual <- substr(texto, pos, pos)   
      if(letraAtual == letra){		       
        cont <- cont + 1
      }
      pos <- pos + 1		       
    }
    return(cont)
  }
}


#if (a){
 # print("psub = -1: ")
#}else{
#  a <- readline("psub = ")
#}

#palavra <- "abcdefghijk"
           #123456789
#print(substr(palavra,3 ,3),quote = F)

#print(contaLetraEmTexto("b","akjsdkjasdkjadkjsnkjbasjkfbkajksbfjasbfjbas"))


contaPalvaraEmTexto <- function(palavra, texto ){
  pos <- 1       
  cont <- 0              
  lim <- nchar(palavra) - 1                      
  while( pos + lim <= nchar(texto) ){   
    palavraAtual <- substr(texto, pos, pos + lim)  
   # print(paste(palavraAtual,palavra))
    if(palavraAtual == palavra){		       
      cont <- cont + 1
    } 
    pos <- pos + 1		       
  }
  return(cont)
}



print(contaPalvaraEmTexto("ola","iojasoidjaowpldolaoekdaoldaeoolawndkjan jwola eajn oia oieola ol a  ola"))


#main