Skip to main content
added 51 characters in body
Source Link
Dominic van Essen
  • 37.2k
  • 2
  • 24
  • 61

R, 4646 45 bytes

sum((v=scan())[(l=1[l<-1:(sum(v|1)/2))]);sum(v[-l]) 

Try it online!Try it online!

Edit: thanks to Giuseppe: -1 byte

R, 46 bytes

sum((v=scan())[(l=1:(sum(v|1)/2))]);sum(v[-l]) 

Try it online!

R, 46 45 bytes

sum((v=scan())[l<-1:(sum(v|1)/2)]);sum(v[-l]) 

Try it online!

Edit: thanks to Giuseppe: -1 byte

Source Link
Dominic van Essen
  • 37.2k
  • 2
  • 24
  • 61

R, 46 bytes

sum((v=scan())[(l=1:(sum(v|1)/2))]);sum(v[-l]) 

Try it online!