# Exercici 3  Parcial Q2 20-21

# variables

# llistaA = llista donada
# llistaB = llista donada

# funcions


# Prendrem coma referència la llista A

sumaStocks <- function(llistaA, llistaB)
{
  nomsB <- names(llistaB)
  for (nom in nomsB){
    if (is.null(llistaA[[nom]])) {
      llistaA[[nom]] <- llistaB[[nom]]
    } else {
      llistaA[[nom]] <- llistaA[[nom]] + llistaB[[nom]]
    }
  }
  return (llistaA)

}

# programa principal

llistaA <- list (llets = 10, platans = 6, desodorants = 3,
            tomaquets = 6, kellogs = 25, patates = 30)
llistaB <- list (tomaquets = 9, kellogs = 10, llets = 23,
            aigues = 15, llimones = 7, desodorants = 5,
            patates = 18)

cat("Llista fusionada: \n")
llistaF <- sumaStocks(llistaA, llistaB)
for(nom in names(llistaF)){
  cat(nom, llistaF[[nom]], "\n")
}