fork(1) download
copy 
  1. regex.escape <- function(string) {
  2.   gsub("([][{}()+*^${|\\\\?.])", "\\\\\\1", string)
  3. }
  4.  
  5. sort.by.length.desc <- function (v) v[order( -nchar(v)) ] 
  6.  
  7. A <- c("This :/ :/ :) ^^","is :/ ^^", "weird^^ :)")
  8. B <- c(":)",":/","^^")
  9.  
  10. B <- sort.by.length.desc(B)
  11. pattern <- paste(regex.escape(B), collapse="|")
  12. regmatches(A, gregexpr(pattern, A))
Success #stdin #stdout 0.25s 39328KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[1]]
[1] ":/" ":/" ":)" "^^"

[[2]]
[1] ":/" "^^"

[[3]]
[1] "^^" ":)"
https://ideone.com/cDvC4o
language:
R (R 3.5.2)
created:
6 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!