# Exercici llistes 1

# 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]] <- c(i)
    }else{
      posicions[[paraula]] <- c(posicions[[paraula]], i)
    }
  }
  return (posicions)
}


# programa principal


text <- readline(prompt="Entra text acabat en RET: ")

posicions <- posicionsParaules(text)
paraules  <- names(posicions)

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