Skip to main content
added 5 characters in body
Source Link
Grimmy
  • 15.8k
  • 1
  • 34
  • 64

Perl 5 (-p), 34 bytes

Based on Arnauld's deleted answer.

s/(\b(\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!

Perl 5, 34 bytes

Based on Arnauld's deleted answer.

s/(\b(\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!

Perl 5 (-p), 34 bytes

Based on Arnauld's deleted answer.

s/(\b(\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!

deleted 3 characters in body
Source Link
Grimmy
  • 15.8k
  • 1
  • 34
  • 64

Perl 5, 33 3234 bytes

Based on Arnauld's deleted answer.

s/(\b(\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!Try it online!

Perl 5, 33 32 bytes

Based on Arnauld's deleted answer.

s/((\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!

Perl 5, 34 bytes

Based on Arnauld's deleted answer.

s/(\b(\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!

Source Link
Grimmy
  • 15.8k
  • 1
  • 34
  • 64

Perl 5, 33 32 bytes

Based on Arnauld's deleted answer.

s/((\w*[aeiou]\w*) )\1+(?=\2)//g

Try it online!