fork download
copy 
  1. abbrev_regex <- "\\b[A-Z]{3,5}\\b";
  2. x <- "XYZ was seen at WXYZ with VWXYZ and did ABCDEFGH."
  3. sum(gregexpr(abbrev_regex,x)[[1]] > 0)
  4. ## => 3 occurrences
  5. regmatches(x, gregexpr(abbrev_regex, x))[[1]]
Success #stdin #stdout 0.16s 178496KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[1] 3
[1] "XYZ"   "WXYZ"  "VWXYZ"
https://ideone.com/rp9i5p
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

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!