# Exercici llistes 2

# variables

# text      : cadena que emmagatzema les paraules del text.
# paraules  : vector on cada component és una paraula del text.
# posicions : llista on cada component és una llista amb nom
#             amb les posicions on surt cada paraula del text.


# funcions

posicionsParaules <- function(text)
{
  paraules  <- strsplit(text, " ")[[1]]
  posicions <- list()
  
  for(i in 1 : length(paraules)){
    paraula <- paraules[i]
    if (is.null(posicions[[paraula]])) {
      posicions[[paraula]] <- i
    }else{
      posicions[[paraula]] <- c(posicions[[paraula]], i)
    }
  }
  return (posicions)
}


comptaOcurrencies <- function(paraules)
{
  ocurrencies <- list()

  noms = names(paraules)
  for(nom in noms){
    nOcurrencies <- paraules[[nom]]
    ocurrencies[[nom]] <- length(nOcurrencies)
  }
  return (ocurrencies)
}

# programa principal

text <- readline(prompt="Entra el text acabat amb RETURN: \n")

cat("posicions \n")
posicions <- posicionsParaules(text)
paraules  <- names(posicions)

for (paraula in paraules){
  cat(paraula, ": ", posicions[[paraula]], "\n") 
}

cat("ocurrències \n")
ocurrencies <- comptaOcurrencies(posicions)
for (paraula in paraules){
  cat(paraula, ": ", ocurrencies[[paraula]], "\n") 
}