Língua do Pê, або P Мова, - це мовна гра, яку розмовляють у Бразилії та Португалії з португальською мовою. Він також відомий іншими мовами, такими як голландська та африканська. ( Вікіпедія )

У цій мовній грі є деякі діалекти. Різні мови, в які грається, навіть мають свої унікальні діалекти. Деякі люди вільно володіють мовою P, і найкращі навіть можуть перевести будь-який текст на бажаний діалект на місці!

P Мова

У цьому виклику ми будемо використовувати діалект Double Double Talk .

Для перекладу тексту на мову P будь-яка послідовність голосних у тексті додається з одним pсимволом, а потім копія послідовності голосних звуків.

Виклик

Напишіть функцію або програму, яка приймає рядок як вхідний і виводить його переклад на мові P.

• Вхід складається тільки з друкованих символів ASCII.
• Вихід складається тільки з перекладеного вводу та, необов'язково, останнього нового рядка.
• Голосні - це будь-який із наступних символів aeiouyAEIOUY.
• Послідовність голосних обмежена будь-яким іншим символом. Рядок "Aa aa-aa"має три голосні послідовності.
• Провідна та кінцева пробіли можуть бути опущені з перекладеного вихідного рядка.

Приклади

""                              =>   ""
"Lingua do Pe"                  =>   "Lipinguapua dopo Pepe"
"Hello world!"                  =>   "Hepellopo woporld!"
"Aa aa-aa"                      =>   "AapAa aapaa-aapaa"
"This should be easy, right?"   =>   "Thipis shoupould bepe eapeasypy, ripight?"
"WHAT ABOUT CAPS?"              =>   "WHApAT ApABOUpOUT CApAPS?"
"   Hi "                        =>   "   Hipi " or "Hipi"

Символ подвійних лапок "використовується для розмежування вхідних та вихідних рядків у прикладах, але, очевидно, цей символ також може з'являтися в будь-якій дійсній рядку введення.

JavaScript (ES6), 35 байт

s=>s.replace(/[aeiouy]+/gi,'$&p$&')

Спробуйте в Інтернеті!

Якщо спеціальна схема заміни $&означає відповідність підрядків .

Сід, 30 , 25 , 21 , 19 байт

-5 байт Дякую Арнольду!
-4 байти Завдяки коханому!
-2 байти Завдяки Лео Тененбауму!

s/[aeiouy]\+/&p&/gi

Спробуйте в Інтернеті!

Japt , 10 байт

r"%y+"_+ip

Спробуй це

r"%y+"_+ip     :Implicit input of string
r              :Replace
 "%y+"         :RegEx /[aeiouy]+/gi
      _        :Pass each match through a function
       +       :  Append a copy of the match
        ip     :  Prepended with "p"

Java 8, 40 байт

s->s.replaceAll("(?i)[aeiouy]+","$0p$0")

Спробуйте в Інтернеті.

Пояснення:

s->                              // Method with String as both parameter and return-type
  s.replaceAll("(?i)[aeiouy]+",  //  Replace the regex matches
               "$0p$0")          //  With this replacement

Пояснення Regex:

(?i)[aeiouy]+                    // MATCH:
(?i)                             //  Enable case insensitivity
            +                    //  Match one or more
    [aeiouy]                     //  Adjacent vowel characters

$0p$0                            // REPLACEMENT:
$0                               //  The entire match (the vowel 'sequence')
  p                              //  Appended with a literal "p"
   $0                            //  Appended with the entire match again

Perl 5 -p , 20 байт

s/[aeiouy]+/$&p$&/gi

Спробуйте в Інтернеті!

Python 3 , 55 байт

lambda s:re.sub('([aeiouy]+)',r'\1p\1',s,0,2)
import re

Спробуйте в Інтернеті!

Python 3 , 101 байт

def f(s,q=''):i=s[:1];t=i in{*'aeiouyAEIOUY'};return(q+(q!='')*'p'+q+i)*0**t+(s and f(s[1:],(q+i)*t))

Спробуйте в Інтернеті!

Python 3.8 (попередній випуск): 99 байт

Пояснення

Рекурсивна функція, приймаючи рядок sі необов'язковий аргумент q. Якщо перший символ s( i) є голосним, він зберігається у черзі q. Якщо ні, то повертається рядок, що складається з qбукви 'p', qзнову ж таки, символу iта результату рекурсивної функції з відключеним першим символом рядка. Рекурсія припиняється, коли функція стикається з порожнім рядком s.

05AB1E , 22 20 байт

.γžÁyå}vyžÁyнåi'py}J

05AB1E, на жаль, не має регексів.
Мені не дуже подобається дублювання žÁyнå, але зараз я занадто зайнятий, щоб шукати альтернативи.

-2 байти завдяки @Grimy за те, що він показав мені постійну, про яку я навіть не знав, що існує (і відсутня на сторінці Wiki ..>.>)

Спробуйте в Інтернеті або перевірте всі тестові випадки .

Пояснення:

.γ               # Group the characters in the (implicit) input-string by:
  žÁ             #  Push vowels builtin: "aeiouyAEIOUY"
    yå           #  And check if the current character is in this string
 }v              # After grouping: loop over each group `y`:
   y             #  Push group `y`
    žÁyнåi   }   #  If the first character of the group is a vowel:
          'p    '#   Push a "p"
            y    #   And push group `y` again
              J  #  Join everything on the stack together to a single string
                 # (after the loop, implicitly output the result)

Сітківка 0,8,2 , 17 байт

i`[aeiouy]+
$&p$&

Спробуйте в Інтернеті! Посилання включає тестові випадки. Пояснення: Тривіальний підхід до регулярного виведення; то iпрапор витки по нечутливості до регістру (Retina вже дефолти в глобальній грі).

Желе , 20 байт

Żṁe€ØyŒg$$,j”pƊ€ÐeẎḊ

Спробуйте в Інтернеті!

Червоний , 92 байти

func[s][v: charset"aeiouyAEIOUY"parse s[any[to v copy t any v insert(rejoin["p"t])| skip]]s]

Спробуйте в Інтернеті!

Звичайно, Red 's Parseнабагато більш багатослівний, ніж regex.

SNOBOL4 (CSNOBOL4) , 97 байт

	I =INPUT
S	I ARB . L SPAN('AEIOUYaeiouy') . V REM . I	:F(O)
	O =O L V 'p' V	:(S)
O	OUTPUT =O
END

Спробуйте в Інтернеті!

Скупчення голосних збігаються SPAN('AEIOUYaeiouy').

Стакс , 17 байт

àº`≈Zö=q╦ⁿ↔èblTï÷

Запустіть і налагоджуйте його на staxlang.xyz!

Розпаковано (20 байт) та пояснення:

Vv'y+c^+:}'++{'pnL}R
                   R    Regex replace using
                        Pattern:
Vv'y+                     Push "aeiou", push "y", and concatenate
     c^+                  Copy, convert copy to all caps, and concatenate
        :}                Enclose in []
          '++             Push "+" and concatenate
                        And replacement:
             {    }       Block:
              'p            Push "p"
                n           Copy second item (matching substring) to top
                 L          Listify
                          Implicit concatenate
                        Implicit print

У Stax відсутні регулярні вирази, що не мають чутливих до регістру записів, і вбудовані голосні не включають Y. Документація не розповість про використання блоку як заміни, але це все-таки робоча особливість.