Расшифровать невротических лягушек

Теперь, когда Puzzling.SE наконец-то взломал мой одержимый амфибиями шифр , давайте напишем программу или функцию для его расшифровки!

(Если вы хотите посмотреть на головоломку, прежде чем ее испортить, нажмите на ссылку выше).

Как работает шифр

В Neurotic Лягушках О ught К Rel х В М уд ванны ( «Невротические Лягушки» для краткости), каждая буква шифруется в виде одного или двух слов:

• Длина не выделенного курсивом слова представляет букву.
  • neurotic => 8 букв => H
  • frogs => 5 букв => E
  • perpendicular => 13 букв = M
• Слово, содержащее курсив, изменяет следующее слово, добавляя 10, если выделенное курсивом слово было нечетным по длине, или 20, если выделенное курсивом слово было четным по длине. Любое или все слово может быть выделено курсивом. Слово, выделенное курсивом, всегда сопровождается словом, не выделенным курсивом.
  • *o*ught to => нечетно, 2 => 12 => L
  • lo*u*nging calms => четный, 5 => 25 => Y

Каждое слово открытого текста соответствует предложению зашифрованного текста, а каждое предложение открытого текста соответствует абзацу зашифрованного текста.

Формат ввода

Ваша программа или функция должна ввести сообщение в Neurotic Frogs, отформатированное в Markdown. Ввод будет состоять только из печатных ASCII и новых строк.

• Слова - это наборы символов, которые соответствуют регулярному выражению [A-Za-z0-9'].
  • Числа и буквы оба учитывают длину слова. QB64представляет D.
  • ПРИМЕЧАНИЕ. Апострофы не учитываются при расчете длины слова. Isn'tпредставляет D, а не E.
• Выделенные курсивом буквы заключены в пару звездочек ( *letters*).
  • Одна или несколько последовательных букв могут быть выделены курсивом, вплоть до целого слова ( masseus*es*, *all*); несколько непоследовательных букв в слове также могут быть выделены курсивом ( g*e*n*e*rates).
  • Курсив никогда не охватывает несколько слов, никогда не включает пунктуацию и никогда не включает апострофы.
  • Непарные звездочки и несколько соседних звездочек никогда не появятся.
• Пунктуация является любой из следующих символов: .,?!:;-()".
  • Слова в предложении разделены одним или несколькими знаками препинания и / или одним пробелом. Примеры: *all* welcomed, toad*s*, newts, Ever*y*one--frogs, cap... bliss,they're (I
  • Предложения заканчиваются одним или несколькими знаками препинания и разделяются двойным пробелом: Th*e* Montgomery A*m*phibian Salon! Come luxuriate today!
  • Абзацы разделены одной новой строкой. (Последнее предложение абзаца по-прежнему имеет один или несколько знаков препинания в конце.)

Другие символы не будут отображаться при вводе и не должны обрабатываться.

Ваш код может, по вашему усмотрению, ожидать, что ввод будет иметь один завершающий перевод строки.

Выходной формат

Результатом расшифровки ввода будет одно или несколько предложений. Буквы открытого текста могут быть любой комбинацией прописных и строчных букв. Слова в предложении должны быть разделены пробелами. Предложения должны заканчиваться точкой ( .) и разделяться одним пробелом. Вы можете вывести завершающий пробел после последнего предложения. Все ваши выходные данные будут в одной строке, но вы можете вывести завершающий символ новой строки.

Разные детали

Ваш код может использовать любой из стандартных методов ввода и вывода. Он должен получать входные данные в виде многострочной строки, а не списка или другой структуры данных, и он должен выводить строку.

Самый короткий код в байтах побеждает!

Контрольные примеры

-->
Neurotic Frogs *O*ught To Rel*a*x In *M*ud Baths!
<--
HELLO.

-->
Business standards all*o*w only *adult* amphibians.
<--
HINT.

-->
Rejoice, *a*ll frogs an*d* toads also!  Montgomery Sal*o*n opens up!  Ha*pp*y throng fill*s* street ecstatically!
<--
GOOD JOB PPL.

-->
I like 3.1415926535897.
IM*O*, it's a *b*la*st*, yeah!
<--
ADAM. MAN.

-->
*I*, happily, *th*anks 2 u *e*ditin*g* specific wor*ding*--clarifying a *bit*--betterment :D!
<--
QUARTATA.

-->
Perpendicular l*ou*nging calms.  *A* frog, a m*u*d cap... bliss!  Wallowing g*e*n*e*rates happiness.  Amphibian sp*a* isn't expensive--seventy d*o*llars--cheap!  That'*s* not *a* large e*x*pens*e* from an*y* discerning fr*o*g's money, unlik*e* Super 8.
Ever*y*one--frogs, toad*s*, newts, *a*nd salamanders!  G*e*t a wonderful shiat*s*u, or recei*v*e an other kind.  Masseus*es* are her*e* today!  Invite a fianc*e*e, supervisor, roommate, niece: *all* welcomed!
Y*o*u simply ne*v*er believed these p*o*ssibilitie*s*; they're (I *swear*) absolute truth!  Th*e* Montgomery A*m*phibian Salon!  Come luxuriate today!
<--
MY NAME IS INIGO MONTOYA. YOU KILLED MY FATHER. PREPARE TO DIE.

Perl, 72 байта

#!perl -n
$x=/\*/?2-y/'//c%2:!print/ /?$':chr$x.0+y/'//c+64for/[\w*']+|  /g,' . '

Считая Шебанг как единое, ввод берется из стандартного ввода.

Образец использования

$ more in.dat
Neurotic Frogs *O*ught To Rel*a*x In *M*ud Baths!
Perpendicular l*ou*nging calms.  *A* frog, a m*u*d cap... bliss!  Wallowing g*e*n*e*rates happiness.  Amphibian sp*a* isn't expensive--seventy d*o*llars--cheap!  That'*s* not *a* large e*x*pens*e* from an*y* discerning fr*o*g's money, unlik*e* Super 8.
Ever*y*one--frogs, toad*s*, newts, *a*nd salamanders!  G*e*t a wonderful shiat*s*u, or recei*v*e an other kind.  Masseus*es* are her*e* today!  Invite a fianc*e*e, supervisor, roommate, niece: *all* welcomed!
Y*o*u simply ne*v*er believed these p*o*ssibilitie*s*; they're (I *swear*) absolute truth!  Th*e* Montgomery A*m*phibian Salon!  Come luxuriate today!

$ perl neurotic-frogs.pl < in.dat
HELLO. MY NAME IS INIGO MONTOYA. YOU KILLED MY FATHER. PREPARE TO DIE.

JavaScript (ES6), 172 169 157 150 байт

Сохранено 10 байтов благодаря @Neil

x=>x.match(/[\w'*]+|\s+/g).map(y=>y[0]==" "?y[1]:y==`
`?". ":/\*/.test(y,l+=y.match(/\w/g).length)?(l=l%2*10+19,""):l.toString(36,l=9),l=9).join``+"."

Возможно, может быть улучшено. Выходы все строчные.

Python 2, 238 221 218 214 207 205 байт

from re import*
def f(x):
 d='';m=0
 for w in split(r"[^\w\d*'~\n]+",sub('  ','~',x))[:-1]:l=len(sub("[*'~\n]",'',w));q='*'in w;d+='. '[w[0]>'}':]*(w[0]in'~\n')+chr(64+l+m)[q:];m=(2-l%2)*10*q
 print d+'.'

Использует много регулярных выражений для обработки. Мы трансформируем двойное пространство ~и используем его для его обработки. ~и \nобрабатываются специально.

Наибольший выигрыш символа происходит от предварительной обработки ввода в forстроке; это определенно может быть дальше в гольфе.

Идео это! (все тестовые случаи)

Сохранено 7 байтов благодаря DLosc!

Пип , 65 64 байта

Оценка составляет 62 байта кода + 2 для -rsфлагов.

Flg{O{{(zy*t+#a-1)X!Y'*Na&2-#a%2}MJa@`[\w*]+`}MlRM''^sX2O". "}

Попробуйте онлайн!

объяснение

-rФлаг читает все строки стандартного ввода и сохраняет их список в g. -sФлаг устанавливает формат вывода списков в пространстве-отделенной.

Самый простой способ прочитать этот код извне:

Flg{...}                   For each line l in g, do:

O{...}MlRM''^sX2O". "      Translate a paragraph into a sentence of plaintext:
       lRM''               Remove apostrophe characters
            ^sX2           Split on "  " into sentences
 {...}M                    Map the below function to each sentence
O                          Output the result list, space-separated, without newline
                O". "      Output that string, without newline

{...}MJa@`[\w*]+`          Translate a sentence into a word of plaintext:
       a@`[\w*]+`          Find all matches of regex (runs of alphanumeric and *)
{...}MJ                    Map the below function to each word and join into string

(zy*t+#a-1)X!Y'*Na&2-#a%2  Translate a word into a letter of plaintext:
      #a-1                 Length of word minus 1
  y*t+                     Add 10 or 20 if y is set (see below)
(z        )                Use that number to index into lowercase alphabet
              '*Na&        Count * characters in word, logical AND with...
                   2-#a%2  2 if word is even length, 1 if odd
             Y             Yank that value into y, to modify the following word
           X!              String multiply the character by not(y)
                           If y is truthy, the word had italics, and we get ""
                           If y is falsy, the word had no italics, and we get a letter

Python 2,7, 390 342 341 339 335 байт:

from re import*
def F(i):
 W=X="";S,s=split,sub;D='[^\w\s*]';Q=lambda c,t:len(s(D,X,c.group()).split()[t])
 for m in S('\W\n',s(D+"*\w*\*\w+\*.*?(?=\s) \w+",lambda v:"a"*([20,10][Q(v,0)%2]+Q(v,1)),s("'",X,s("--"," ",i)))):
  for g in S('\W  ',m):
   for q in S('\W',g):
    W+=chr(64+len(q))
   W+=" "
  W=W[:-1]+". "
 print s("@",X,W)

Принимает ввод в формате:

F('''Multi or Single-lined String''')

Можно играть в гольф намного больше, что я буду делать всякий раз, когда у меня будет такая возможность.

Repl.it со всеми тестовыми примерами!

Объяснение:

Использует огромные возможности встроенных регулярных выражений Python для расшифровки ввода. Это фундаментальный процесс, через который проходит функция для каждого входа:

1. Во-первых, все --заменяются одним пробелом, и каждый апостроф удаляется. Затем все слова, содержащие выделенные курсивом компоненты и идущее за ним слово, сопоставляются в одной строке и заменяются 10 + len(second word)числом последовательных as, если длина первого слова равна odd, и 20 + len(second word)последовательными as в противном случае. Это использует следующее регулярное выражение:

   [^\w\s*]*\w*\*\w+\*.*?(?=\s) \w+

   Например, если у нас есть предложение Perpendicular l*ou*nging calms., l*ou*nging calmsбудет заменено на aaaaaaaaaaaaaaaaaaaaaaaaa, или 25 aс, так как l*ou*ngingимеет четное количество символов и calmsимеет 5 20+5=25..

2. Теперь вновь модифицированный ввод разделяется на каждый знак пунктуации, за которым следует newline ( \n), чтобы получить абзацы, затем каждый абзац разделяется на каждую пунктуацию, за которой следуют 2 пробела, чтобы получить предложения, и, наконец, каждое предложение разделяется на слова любая пунктуация, включая пробел. Затем для каждого слова (включая серии последовательных aсимволов s) мы добавляем в строку Wбукву, соответствующую кодовой точке 64Unicode (кодовой точке Unicode символа перед символом A, который является @), плюс len(word). Затем мы добавляем один пробел Wпосле того, как все слова предложения были исчерпаны, а когда все предложения в абзаце исчерпаны, мы добавляем .после него один пробел.

3. Наконец, после прохождения всего ввода Wвыводится stdoutкак расшифрованное сообщение.

PHP, 196 байт

<?preg_match_all("#[\w*']+|  |$#m",$_GET[s],$m);foreach($m[0]as$s){if(!$s||$s=="  ")echo!$s?". ":" ";else{$l=$p+64+strlen(str_replace("'","",$s));if(!$p=strstr($s,"*")?20-$l%2*10:0)echo chr($l);}}

Если бы я мог предположить, что есть только один апостроф в середине слова 194 байта

<?preg_match_all("#[\w*]+(<?=')[\w*]+|[\w*]+|  |$#m",$_GET[s],$m);foreach($m[0]as$s){if(!$s||$s=="  ")echo!$s?". ":" ";else{$l=$p+64+strlen($s);if(!$p=strstr($s,"*")?20-$l%2*10:0)echo chr($l);}}

PHP, 231 226 228 байт

для начала

<?preg_match_all("#([\w\*']+)([^\w\*']*)#",$argv[1],$m,2);foreach($m as list(,$a,$b)){$e=strlen(strtr($a,["'"=>""]))+$d;if(!$d=strstr($a,'*')?$e%2*10:0)echo chr($e+64),strpos(".$b","
")?". ":(strpos(".$b","  ")?" ":"");}echo".";

Сохранить в файл, rund php <scriptpath> <text>. Избегайте перевода строки в тексте, чтобы он работал в оболочке.