# Exercici 16.  Guanys i perdues

# variables

# guanys  : llista de guanys
# perdues : llista de perdues

# funcions

fusioDeLlistes <- function(guanys, perdues)
{
  nomsPerdues <- names(perdues)
  for(nom in nomsPerdues){
    if(is.null(guanys[[nom]])) {
       guanys[[nom]] <- perdues[[nom]]
    } else {
       guanys[[nom]] <- guanys[[nom]] + perdues[[nom]]
    }
  }
  return(guanys)
}


# principal

guanys  <- list (pepet = 3000, maria = 2000, joan = 1000)
perdues <- list (joan = -500, maria = -1000, kim = -400)

guanys <- fusioDeLlistes (guanys, perdues)
for (nom in names(guanys)){
  cat(nom, " : ", guanys[[nom]], " ")
}
cat("\n")