fork download
copy 
  1. s <- "{J{A{P{A{N{}}},M{A{I{C{A{}}}}},V{A{}}},O{R{D{A{N{}}}}}}}"
  2. s <- chartr("{},", "<>;", s)
  3.  
  4. repeat { 
  5.     s1 <- s
  6.     s <- gsub("<([^;<>]*)>", "\\1", s)
  7.     repeat {
  8.         s2 <- s
  9.         s <- gsub("<([^<>]*);([^<>]*)>", "<\\1,\\2>", s)
  10.         if (s == s2) break
  11.     }
  12.     s <- gsub("<([^<>]*)\\,([^<>]*)>", "\\{\\1,\\2\\}", s)
  13.     if (s == s1) break
  14. }
  15. cat(s, "\n")
Success #stdin #stdout 0.24s 39232KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
J{A{PAN,MAICA,VA},ORDAN}
https://ideone.com/cAdmIr
language:
R (R 3.5.2)
created:
4 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!