# Llistes Exercici 8

# variables

# llistaA : primera llista que cal modificar
# llistaB : segona llista que defineix possibles modificacions

actualitzaDiccionari <- function(llistaA, llistaB)
{
  nomsA <- names(llistaA)
  nomsB <- names(llistaB)
  for (i in 1 : length(nomsA)){
    nomA <- nomsA[i]
    if (nomA %in% nomsB){
      llistaA[[nomA]] <- llistaB[[nomA]]
    }
  }
  return(llistaA)
}

# principal
L1 <- list (casa = "lloc on viure",
            lloguer = "diners a pagar per un servei",
            mitjana = "valor promig",
            moneda = "tros de metall amb valor, cada paı́s en té una diferent",
            sabata = "tros de material per a cobrir el peu")

L2 <- list (casa = "vivenda, habitatge, lloc on viure",
            llibre = "conjunt de pàgines per llegir",
            moneda = "tros de metall amb valor",
            sabata = "calçat que cobreix el peu",
            videojoc = "joc electrònic")

llista <- actualitzaDiccionari(L1, L2)
noms   <- names(llista)
for (nom in noms){
  cat(nom, "  ", llista[[nom]], "\n")
}