RosettaCodeData/Task/Short-circuit-evaluation/R/short-circuit-evaluation-3.r

switchop <- function(s, x, y) {
  if(s < 0) x || y
  else if (s > 0) x && y
  else xor(x, y)
}