fork download 
  1. nlist <- c(
  2. "Lil' SlimLil' Slim feat. PxMxWxPxMxWx Where Your Ward At!!",               
  3. "I Like It (Mannie Fresh Style)I Like It (Mannie Fresh Style)Ms. Tee",
  4. "Bella VistaBella Vista Mister Wong",
  5. "Tom WareTom WareChina Town",                                        
  6. "Race 'N RhythmRace 'N Rhythm Teenage Girls",                                    
  7. "Ronald MarquisseRonald MarquisseElectro Link 7",
  8. "PleasurePleasure Thoughts Of Old Flames",
  9. "OM, OM, Dom Um RomaoDom Um Romao Chipero" 
  10. )
  11. artist <- sub("^(?:.*?\\b(.+?)\\1(?=\\b|\\p{Lu}))*\\s*(.*)", "\\2", nlist, perl=TRUE)
  12. rx <- "^(?:.*?\\b(.+?)\\1(?=\\b|\\p{Lu}))*"
  13. titles <- regmatches(nlist, regexpr(rx, nlist, perl=TRUE))
  14. titles <- gsub("(.+?)\\1", "\\1", titles, perl=TRUE)
  15. data.frame(artist, titles)
  16.  
Success #stdin #stdout 0.25s 39528KB
comments (?)
stdin 
Standard input is empty
stdout 
                  artist                         titles
1   Where Your Ward At!!         Lil' Slim feat. PxMxWx
2                Ms. Tee I Like It (Mannie Fresh Style)
3            Mister Wong                    Bella Vista
4             China Town                       Tom Ware
5          Teenage Girls                 Race 'N Rhythm
6         Electro Link 7               Ronald Marquisse
7 Thoughts Of Old Flames                       Pleasure
8                Chipero               OM, Dom Um Romao
https://ideone.com/32DZQZ
language:
R (R 3.5.2)
created:
2 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!