Cómo sumr una lista numérica de elementos

Me pregunto acerca de una manera elegante que permite sumr (o calcular una media) los valores numéricos de una lista. p.ej

x <- list( a = matrix(c(1,2,3,4), nc=2), b = matrix(1, nc=2, nr=2)) 

y quieres obtener

 x[[1]]+x[[2]] 

o una media:

 (x[[1]]+x[[2]])/2