fork(8) download
copy 
  1. input = c("XX-XXZZXX-XZXXXXX", "XX-XXXZXXZXZXXX", "XXXXXZXXXZXXZX-X", 
  2. "XXXZXXXZXZXZXXX", "XZXXX-XXXZXZXXX", "XX-XXX-ZZX", "XXZX-XXZXXX-XZ", 
  3. "XZXZXX-XXZXXZXX")
  4. gsub("(?:^([^Z]*Z){2}|(?!^)\\G)[^-]*\\K-", "Z", input, perl=T)
  5.  
Success #stdin #stdout 0.46s 79168KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "XX-XXZZXXZXZXXXXX" "XX-XXXZXXZXZXXX"   "XXXXXZXXXZXXZXZX" 
[4] "XXXZXXXZXZXZXXX"   "XZXXX-XXXZXZXXX"   "XX-XXX-ZZX"       
[7] "XXZX-XXZXXXZXZ"    "XZXZXXZXXZXXZXX"
https://ideone.com/YCi0n5
language:
R (R 3.5.2)
created:
10 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!