fork download
copy 
  1. x <- c("QUADRA 120 - ASA BRANCA","FAZENDA LAGE -RODOVIA RIO VERDE","C-15","99-B","A-A")
  2. grep("-", grep("[A-Z]-\\d|\\d-[A-Z]", x, invert=TRUE, value=TRUE), value=TRUE, fixed=TRUE)
Success #stdin #stdout 0.22s 39392KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "QUADRA 120 - ASA BRANCA"         "FAZENDA LAGE -RODOVIA RIO VERDE"
[3] "A-A"
https://ideone.com/TRKCx1
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!