added 44 characters in body

Source Link

edited Aug 18, 2020 at 14:10

R, 77 7676 72 bytes

Edit: -4 bytes thanks to Robin Ryder

sum((d=scan()/10-69)>=c(1411,129:52,3.5,2-1,0d)&d<=c(20d,1714.5,1512,1411,129.5,118:74,52.5,30))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

R, 77 76 bytes

sum((d=scan()/10-6)>=c(14,12:5,3.5,2,0)&d<=c(20,17.5,15,14,12.5,11:7,5.5,3))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

Edit: -4 bytes thanks to Robin Ryder

sum((d=scan()/10-9)>=c(11,9:2,.5,-1,d)&d<=c(d,14.5,12,11,9.5,8:4,2.5,0))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

added 9 characters in body

Source Link

edited Aug 17, 2020 at 17:15

sum((d=scan()/10-6)>=c(2014,1812:115,93.5,82,60)&d<=c(2620,2317.5,2115,2014,1812.5,1711:137,115.5,93))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

sum((d=scan()/10)>=c(20,18:11,9.5,8,6)&d<=c(26,23.5,21,20,18.5,17:13,11.5,9))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

sum((d=scan()/10-6)>=c(14,12:5,3.5,2,0)&d<=c(20,17.5,15,14,12.5,11:7,5.5,3))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.

Source Link

created Aug 17, 2020 at 16:53

sum((d=scan()/10)>=c(20,18:11,9.5,8,6)&d<=c(26,23.5,21,20,18.5,17:13,11.5,9))

Fairly naive solution, but benefits from R's automatic vectorization and its : sequence operator.