sydney <- function(x) {
  x <- strsplit(x, " ")[[1]]
  OH <- sum(x == "OH")
  BC <- sum(x == "BC")
  SK <- sum(x == "SK")
  opera <- 300 * OH - OH%/%3 * 300
  bridge <- ifelse(BC > 4, BC*90, BC*110)
  sky <- ifelse(SK >= OH, (SK-OH)*30, 0)
  total <- sum(opera, bridge, sky)
  return(cat(x, "=", total, collapse = " ", "\n"))
}
 
input <- "OH OH OH BC\nOH SK\nBC BC BC BC BC OH\nOH OH OH BC SK\nOH BC BC SK SK\nBC BC BC BC BC BC OH OH\nSK SK BC"
input <- strsplit(input, "\n")[[1]]
invisible(sapply(input, sydney))

c3lkbmV5IDwtIGZ1bmN0aW9uKHgpIHsKICB4IDwtIHN0cnNwbGl0KHgsICIgIilbWzFdXQogIE9IIDwtIHN1bSh4ID09ICJPSCIpCiAgQkMgPC0gc3VtKHggPT0gIkJDIikKICBTSyA8LSBzdW0oeCA9PSAiU0siKQogIG9wZXJhIDwtIDMwMCAqIE9IIC0gT0glLyUzICogMzAwCiAgYnJpZGdlIDwtIGlmZWxzZShCQyA+IDQsIEJDKjkwLCBCQyoxMTApCiAgc2t5IDwtIGlmZWxzZShTSyA+PSBPSCwgKFNLLU9IKSozMCwgMCkKICB0b3RhbCA8LSBzdW0ob3BlcmEsIGJyaWRnZSwgc2t5KQogIHJldHVybihjYXQoeCwgIj0iLCB0b3RhbCwgY29sbGFwc2UgPSAiICIsICJcbiIpKQp9CgppbnB1dCA8LSAiT0ggT0ggT0ggQkNcbk9IIFNLXG5CQyBCQyBCQyBCQyBCQyBPSFxuT0ggT0ggT0ggQkMgU0tcbk9IIEJDIEJDIFNLIFNLXG5CQyBCQyBCQyBCQyBCQyBCQyBPSCBPSFxuU0sgU0sgQkMiCmlucHV0IDwtIHN0cnNwbGl0KGlucHV0LCAiXG4iKVtbMV1dCmludmlzaWJsZShzYXBwbHkoaW5wdXQsIHN5ZG5leSkp