fork(1) download
copy 
  1. x <- c("aasdfadsf cat asdfadsf dog", "asfdadsfads dog asdfasdfadsf cat")
  2. sub(".*(?|(dog).*(cat)|(cat).*(dog)).*", "\\1 \\2", x, perl=TRUE)
  3. ##unlist(regmatches(x, gregexpr("dog(?=.*cat)|cat(?=.*dog)", x, perl=TRUE)))
Success #stdin #stdout 0.23s 39372KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[1] "cat dog" "dog cat"
https://ideone.com/XqUZdZ
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!