What considerations are important in choosing between the two styles below? Interpretability, maintainability, speed, other?

purrr_happy.R

library(purrr)

y_test <- sample(0:9, 2000, replace = TRUE)
pred1 <- sample(0:9, 2000, replace= TRUE)
pred2 <- sample(0:9, 2000, replace= TRUE)
preds <- list(pred1, pred2)

# want to apply the following to preds
# sum(diag(table(y_test, pred)))/length(y_test)

#
# this 
#
preds %>%
  map(table, y_test) %>%
  map(diag) %>%
  map(sum) %>%
  map_dbl(.f = function(x){x/length(y_test)})

#
# or this
#
preds %>% 
  map_dbl(~{sum(diag(table(y_test, .x)))/length(y_test)})