fork download 
  1. library(stringr)
  2.  
  3. toomp <- function(x) {
  4.   x <- str_replace_all(x, "\\(\\)", "")
  5.   if(str_length(x) == 0)
  6.     return(NULL)
  7.   last <- ""
  8.   new <- str_c(str_extract_all(x, "[a-z]")[[1]], collapse = "")
  9.   stopit <- str_length(new)
  10.   repeat {
  11.     full <- str_extract(x, "[\\(][a-z]+[\\)]")
  12.     nopar <- str_extract(full, "[a-z]+")
  13.     fullregex <- str_replace_all(full, c("\\(" = "\\\\(",
  14.                                          "\\)" = "\\\\)"))
  15.     x <- str_replace(x, fullregex, nopar)
  16.     if(last != full) {
  17.       new <- str_replace_all(new, str_sub(nopar, 1, 1), str_sub(full, 1, 2))
  18.       new <- str_replace_all(new, str_sub(nopar, -1, -1), str_sub(full, -2, -1))
  19.     }
  20.     last <- full
  21.     if(stopit == str_length(x))
  22.       break
  23.   }
  24.   return(cat(new, "\n"))
  25. }
  26.  
  27. toomp("((a((bc)(de)))f)")
  28. toomp("(((zbcd)(((e)fg))))")
  29. toomp("ab((c))")
  30. toomp("()")
  31. toomp("((fgh()()()))")
  32. toomp("()(abc())")
Success #stdin #stdout 0.28s 182464KB
comments ()
stdin 
Standard input is empty
stdout 
((a((bc)(de)))f) 
((zbcd)((e)fg)) 
ab(c) 
NULL
(fgh) 
(abc)
https://ideone.com/IJgpG6
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!