Расширение кронштейна!

36

Ваша задача состоит в том, чтобы расширить некоторые скобки во входных данных программы, как показано ниже:

  1. Найдите строку s между двумя соответствующими скобками [и ], с одной цифрой n после закрывающей скобки.
  2. Снимите скобки.
  3. Замените s на себя, повторяя n раз. (Если n равно 0, просто удалите s .)
  4. Переходите к шагу 1 до тех пор, пока на входе не останется подходящих скобок.

Дополнительные правила и разъяснения:

  • Вы примете ввод и дадите вывод любым допустимым способом.
  • Конечный перевод строки в выводе разрешен.
  • Вам нужно только обрабатывать печатный ASCII на входе.
  • Вы можете предположить, что все скобки совпадают, т.е. вы никогда не получите ввод []]]]или [[[[].
  • Вы можете предположить, что после каждой закрывающей скобки ]есть цифра.

Тестовые случаи:

Input                -> Output
[Foo[Bar]3]2         -> FooBarBarBarFooBarBarBar
[one]1[two]2[three]3 -> onetwotwothreethreethree
[three[two[one]1]2]3 -> threetwoonetwoonethreetwoonetwoonethreetwoonetwoone
[!@#[$%^[&*(]2]2]2   -> !@#$%^&*(&*($%^&*(&*(!@#$%^&*(&*($%^&*(&*(
[[foo bar baz]1]1    -> foo bar baz
[only once]12        -> only once2
[only twice]23456789 -> only twiceonly twice3456789
[remove me!]0        -> 
before [in ]2after   -> before in in after

Поскольку это , выигрывает самый короткий ответ на каждом языке. Удачи!

MD XF
источник
13
Вы должны опубликовать еще одно задание, чтобы сжать строку обратно в ее кратчайший формат
Джо Кинг,
Стоит ли прямо указывать, что ваша строка sникогда не должна содержать других скобок? Например, попытка решить проблему [Foo[Bar]3]2путем расширения строки в Foo[Bar3 раза приведет к Foo[BarFoo[BarFoo[Bar]2
неверному
@BradC, все зависит от того, как вы решите реализовать задачу.
MD XF
Означает ли это, что есть два правильных ответа на [a[b]2c[d]2e]2? Вы получаете abbcddeabbcddeрасширение bи dсначала, но ababcdbcdedbabcdbcdedeрасширение a[bи d]2eсначала.
BradC

Ответы:

13

Гема , 17 знаков

[#]?=@repeat{?;#}

Образец прогона:

bash-4.4$ gema '[#]?=@repeat{?;#}' <<< '[three[two[one]1]2]3'
threetwoonetwoonethreetwoonetwoonethreetwoonetwoone
manatwork
источник
Вау, поговорим о поиске подходящего языка для работы!
MD XF
Или правильная работа для языка. Многие проблемы пришлось пропустить, потому что рекурсивный аргумент не был достаточно гибким.
Манатворк
Принимая это сейчас, потому что я не вижу, как это будет биться, но это будет неприемлемо в маловероятном случае.
MD XF
7

Haskell , 101 96 байт

fst.(""%)
infix 4%
s%']':d:r=(['1'..d]>>s,r)
s%'[':r|(t,q)<-""%r=s++t%q
s%x:r=s++[x]%r
s%e=(s,e)

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

-5 байт благодаря BMO !

Laikoni
источник
4
Декларация исправления для (%)вас спасает 1 байт и ['1'..d]еще 4, смотрите это .
მოიმო
3
@BMO Хорошо, я не ожидал, что объявление исправления когда-нибудь будет полезно для игры в гольф кода. Я думаю, что вы должны добавить это к вопросу советов.
Лайкони
7

Perl 5 , 34 33 29 + 1 ( -p) = 30 байт

s/.([^[]*?)](.)/$1x$2/e&&redo

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

Сократите это с помощью @Shaggy и @TonHospel.

Xcali
источник
3
Я не знаю, жемчужина, но повтор кажется великолепным!
officialaimm
Я думаю, что вы должны быть в состоянии сохранить байт, не избегая ].
Лохматый
1
Я не знаю , Perl , но это , кажется , на работу в течение 30 + 1 байт.
Мохнатый
2
Эти 29 + 1 также работают: perl -pe 's/.([^[]*?)](.)/$1x$2/e&&redo'иperl -pe 's/.([^][]*)](.)/$1x$2/e&&redo'
Тон Хоспел
5

Japt v2 , 21 20 19 байт

Сохранено 2 байта благодаря @Shaggy

e/.([^[]*?)](./@YpZ

Проверьте это онлайн!

eявляется рекурсивной заменой, которая делает одну замену за раз, пока больше не будет совпадений. В этом случае совпадения регулярного выражения /\[([^[]*?)](\d)/gзаменяются на <внутренний текст>, повторяемый <цифра> раз, пока совпадений больше нет.

В соответствии с тем, что я планировал ( здесь ), это регулярное выражение должно в конечном итоге быть как минимум на 3 2 байта короче:

‹[“⁽[»₋”]“.›
ETHproductions
источник
2
Поскольку мы « можем предположить, что после каждой закрывающей скобки ]есть цифра », вы можете заменить (\dна (..
лохматый
Вы также можете заменить \[на.
Shaggy
@ Шэгги Хорошо, спасибо!
ETHproductions
4

JavaScript, 71 67 66 байт

У меня было 54-байтовое решение, но оно было испорчено вторым тестовым примером! :(

f=s=>s!=(x=s.replace(/.([^[]*?)](.)/,(_,y,z)=>y.repeat(z)))?f(x):x

Тестовые случаи

f=s=>s!=(x=s.replace(/.([^[]*?)](.)/,(_,y,z)=>y.repeat(z)))?f(x):x
o.innerText=`[Foo[Bar]3]2
[one]1[two]2[three]3
[three[two[one]1]2]3
[!@#[$%^[&*(]2]2]2
[[foo bar baz]1]1
[only once]12
[only twice]23456789
[remove me!]0
before [in ]2after`.split`\n`.map(x=>x.padEnd(22)+`:  `+f(x)).join`\n`
<pre id=o></pre>

мохнатый
источник
4

Python 3 , 110, 93, 92 байта

import re
f=lambda s:f(re.sub(r'\[([^][]+)\](.)',lambda m:m[1]*int(m[2]),s))if'['in s else s

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

-17 байт благодаря pizzapants184 -1 байт благодаря Кевину Круйссену

Габор Фекете
источник
1
-17 байт в Python 3 с индексацией re.match и проверкой подстроки in.
pizzapants184
1
-1 байт, изменив (\d)на (.), потому что мы знаем, что за квадратной скобкой ]всегда следует цифра.
Кевин Круйссен
4

Scala , 173 байта

l.foreach{x=>def r(c:String):String={val t="""\[([^\[\]]*)\](.)""".r.unanchored;c match{case t(g,h)=>r(c.replaceAllLiterally(s"[$g]$h",g*h.toInt));case _=>c}};println(r(x))}

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

Expanded:

l.foreach { x =>
  def remove(current: String): String = {
    val test ="""\[([^\[\]]*)\](.)""".r.unanchored
    current match {
      case test(g, h) => remove(current.replaceAllLiterally(s"[$g]$h", g * h.toInt))
      case _ => current
    }
  }

  println(remove(x))
}

Старое решение

Scala , 219 215 213 212 199 байтов

l.foreach{x=>def r(c:String):String={"""\[([^\[\]]*)\](.)""".r.findFirstMatchIn(c).map{x=>val g=x.group(1);val h=x.group(2).toInt;r(c.replaceAllLiterally(s"[$g]$h",g*h))}.getOrElse(c)};println(r(x))}

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

Expanded:

l.foreach { x =>
  def remove(current: String): String = {
    """\[([^\[\]]*)\](.)""".r.findFirstMatchIn(current).map { x =>
      val g = x.group(1)
      val h = x.group(2).toInt
      remove(current.replaceAllLiterally(s"[$g]$h", g * h))
    }.getOrElse(current)
  }
  println(remove(x))
}

Где l - это список строк, которые мы будем обрабатывать.

Спасибо Кевину Круйссену за -1 байт

Пошел с 212 по 199, убрав неиспользуемый параметр, не обратил внимания.

Shikkou
источник
4
Добро пожаловать в PPCG! Попробуйте интерпретатор Scala от Tio в tio.run/#scala и посмотрите, можете ли вы отправить ссылку для ответа, чтобы другие могли попробовать ее в Интернете. :)
officialaimm
2
Спасибо! Я отредактировал ответ, чтобы включить ссылку. Надеюсь, это нормально, как верхний колонтитул, код и нижний колонтитул объявлены для правильной подачи.
Сиккоу
1
Привет, добро пожаловать в PPCG! Отличный первый ответ, +1 от меня. Я думаю, что вы можете сохранить 1 байт, изменив (\d)на (.), потому что мы знаем, что за квадратной скобкой ]всегда следует цифра.
Кевин Круйссен
3

Сложено , 39 38 байт

Сэкономили 1 байт благодаря Shaggy, отыграли регулярное выражение!

['\[([^[\]]+)](.)'{.y x:x#~y*}recrepl]

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

Просто рекурсивно заменяет регулярное выражение '\[([^[\]]+)](.)' на правило повторения.

Конор О'Брайен
источник
Я думаю, что вы можете сохранить байт, не избежав последнего ].
Мохнатый
3

Питон 3, 155 148 101 97 байт

def f(x):
 a=x.rfind('[')
 if~a:b=x.find(']',a);x=f(x[:a]+x[a+1:b]*int(x[b+1])+x[b+2:])
 return x

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

Спасибо HyperNeutrino и Mego за -47 байтов и user202729 за -4 байта.

Маниш Кунду
источник
Сделайте это одной def f(x):a=x.rfind('[');b=x.find(']',a);return f(x[:a]+x[a+1:b]*int(x[b+1])+x[b+2:])if~a else x
строкой,
3

JavaScript - 77 75 72 байта

f=a=>a.replace(/(.*)\[([^[]*?)](.)(.*)/,(a,b,c,d,e)=>f(b+c.repeat(d)+e))

Изменить: обновленное регулярное выражение с рекомендацией Shaggy

Отрывок:

max890
источник
2
Добро пожаловать в PPCG! Вы можете уменьшить это до 70 байтов , настроив свой RegEx.
Лохматый
Да, 72 байта, очевидно, извините; Я забыл сосчитать f=!
лохматый
2

QuadR с аргументом, 30 28 байт

\[[^[]+?].
∊(⍎⊃⌽⍵M)⍴⊂1↓¯2↓⍵M

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

\[[^[]+?]. заменить " [не [вещи"] символ» с

¯2↓⍵M уронить последние два символа M ATCH ( « ]цифра„)
1↓ упадет первый символ (“ [»)
 Вложите следует рассматривать как единое целое
(... )⍴г eshape длину:
⌽⍵M обратный M ATCH
 выбрать первую (цифру)
 оценки
е NLIST ( Свести)

 повторять до тех пор, пока больше не произойдет никаких изменений


Эквивалентная функция Dyalog APL составляет 47 байт:

'\[[^[]+?].'R{∊(⍎⊃⌽⍵.Match)⍴⊂1↓¯2↓⍵.Match}⍣≡

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

Адам
источник
2

Java 8, 250 249 241 239 байт

s->{for(;s.contains("[");)for(int i=0,j,k;i<s.length();)if(s.charAt(i++)==93){String t="",r=t;for(j=k=s.charAt(i)-48;j-->0;)t+=s.replaceAll(r="(.*)\\[([^\\]]+)\\]"+k+"(.*)","$2");s=k<1?t:s.replaceFirst(r,"$1$3").replace("",t);}return s;}

-2 байта благодаря @JonathanFrech ( код содержит два непечатаемых символа ASCII, что можно увидеть в TIO-ссылке ниже).

Вздох ... Java с регулярным выражением настолько чертовски ограничена .. Я просто процитирую себя из другого ответа здесь:

Заменить WWWWна 222Wлегко в Java, но 4Wнет. Если бы только в Java был способ использовать группу захвата для регулярных выражений для чего-то. Получение длины с "$1".length(), замена самого совпадения на "$1".replace(...), преобразование совпадения в целое число с new Integer("$1")помощью или использование что-то похожее на Retina (то есть, s.replaceAll("(?=(.)\\1)(\\1)+","$#2$1"))или JavaScript (то есть s.replaceAll("(.)\\1+",m->m.length()+m.charAt(0))) было бы моей вещью номер 1, которую я хотел бы видеть в Java в будущем, чтобы принести пользу программированию ..>.> Я думаю, что это 10-й раз, когда я ненавижу, что Java не может сделать что-нибудь с совпадением группы захвата ..
Цитата отсюда.

Объяснение:

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

s->{                           // Method with String as both parameter and return-type
  for(;s.contains("[");)       //  Loop as long as the String contains a block-bracket
    for(int i=0,j,k;i<s.length();)
                               //   Inner loop over the characters of the String
      if(s.charAt(i++)==93){   //    If the current character is a closing block-bracket:
        String t="",r=t;       //     Create two temp-Strings, starting empty
        for(j=k=s.charAt(i)-48;//     Take the digit after the closing bracket
            j-->0;)            //     Loop that many times:
          t+=s.replaceAll(r="(.*)\\[([^\\]]+)\\]"+k+"(.*)","$2");
                               //      Append `t` with the word inside the block brackets
        s=k<1?                 //     If the digit was 0:
           t                   //      Replace the input with an empty String as well
          :                    //     Else:
           s.replaceFirst(r,"$1$3").replace("",t);}
                               //      Replace the word between brackets by `t`,
                               //      and remove the digit
  return s;}                   //  Return the modified input-String as result
Кевин Круйссен
источник
1
Я думаю, что вы можете использовать действительно ASCII, хотя непечатный символ, чтобы сохранить два байта . (Ваше решение действительно занимает 241 байт, 239 символов.)
Джонатан Фрех
@JonathanFrech Спасибо! Искал 1-байтовый символ за пределами диапазона печати ASCII. Не думал об использовании непечатаемых ..
Кевин Круйссен
2

С, 407 368 байт

Спасибо Джонатану Фреху за сохранение байтов.

игра в гольф (файл скобка.c):

i,j,k,l,n;char*f(a,m)char*a;{for(i=0;a[i];++i){a[i]==91&&(j=i+1);if(a[i]==93){k=a[i+1]-48;if(!k){for(l=i+2;l<m;)a[++l-i+j-4]=a[l];a=realloc(a,m-3);return f(a,m-3);}for(l=j;l<i;)a[~-l++]=a[l];for(l=i+2;l<m;)a[++l-4]=a[l];m-=3;n=m+~-k*(i---j--);a=realloc(a,n);for(l=i;l<m;)a[l+++~-k*(i-j)]=a[l];for(m=0;m<k;++m)for(l=j;l<i;)a[l+++m*(i-j)]=a[l];return f(a,n);}}return a;}

разучился с программой:

#include <stdlib.h>
#include <stdio.h>

// '[' = 133
// ']' = 135
// '0' = 48

i, j, k, l, n;

char* f(a,m) char*a;
{
  for (i=0; a[i]; ++i) {
    a[i]==91&&(j=i+1);

    if (a[i]==93) {
      k=a[i+1]-48;

      if (!k) {
        for (l=i+2; l<m; )
          a[++l-i+j-4] = a[l];

        a = realloc(a,m-3);
        return f(a,m-3);
      }
      for (l=j;l<i;)
        a[~-l++] = a[l];
      for (l=i+2; l<m; )
        a[++l-4] = a[l];
      m -= 3;
      n = m+~-k*(i---j--);
      a = realloc(a,n);

      for (l=i; l<m; )
        a[l+++~-k*(i-j)] = a[l];
      for (m=0; m<k; ++m)
        for (l=j; l<i;)
          a[l+++m*(i-j)] = a[l];

      return f(a,n);
    }
  }
  return a;
}

int main()
{
  char c[]="[Foo[Bar]3]2";
  char *b;

  char cc[]="[remove me!]0";
  char *bb;

  char ccc[]="[only once]12";
  char *bbb;

  b=malloc(13);
  bb=malloc(14);
  bbb=malloc(14);

  for (i=0; i<13; ++i)
    b[i] = c[i];

  for (i=0; i<14; ++i)
    bb[i] = cc[i];

  for (i=0; i<14; ++i)
    bbb[i]=ccc[i];

  printf("%s\n", f(b, 13));
  printf("%s\n", f(bb, 14));
  printf("%s\n", f(bbb, 14));

  return 0;
}

Скомпилировано с gcc 5.4.1, gcc bracket.c

Tsathoggua
источник
1
368 байт .
Джонатан Фрех
387 с необходимым включением (для realloc). Я сделаю чистое обновление (с ungolfed версией) позже. Спасибо
Цатоггуа,
Если вы используете GCC, я думаю, что компилятор попытается угадать определение обоих mallocи realloc, в том числе stdlib.h, самостоятельно.
Джонатан Фрех
Я этого не знал. Хорошая особенность для игры в гольф кода. Спасибо.
Цатоггуа
2

Красный , 147 байт

f: func[t][a: charset[not"[]"]while[parse t[any a some[remove["["copy h any a"]"copy d a](insert/dup v: copy""h to-integer d)insert v | skip]]][]t]

Ungolfed:

f: func [t][
    a: charset [not "[]"]                          ; all chars except [ and ]
    while [ parse t [                              ; repeat while parse is returning true
        any a                                      ; 0 or more chars other than [ and ]
        some [                                     ; one or more block:
            remove ["[" copy h any a "]" copy d a] ; remove the entire block, store the
                                                   ; substring between the [] in h,
                                                   ; the digit into d
            (insert/dup v: copy "" h to-integer d) ; makes d copies of h 
            insert v                               ; and inserts them in place 
            | skip ]                               ; skip if no match
        ]                                       
    ][]                                            ; empty block for 'while'
    t                                              ; return the modified string
]

Я начал изучать диалект Parse Red только вчера, поэтому я уверен, что мой код можно улучшить и дальше. Parse несравненно более многословен, чем regex, но он очень понятный, гибкий и читаемый и может свободно смешиваться с остальным языком Red.

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

Гален Иванов
источник
1

Желе , 30 байт

œṡ”]µḢUœṡ”[ẋ€1¦Ṫ©Ḣ$FṚ;®
Çċ”]$¡

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


Объяснение.


œṡ”]µḢUœṡ”[ẋ€1¦Ṫ©Ḣ$FṚ;®    Helper link 1, expand once.
                           Assume input = "ab[cd]2ef".

œṡ      Split at first occurence of
  ”]      character "]".
    µ   Start new monadic chain. Value = "ab[cd","2ef".

Ḣ       ead. "ab[cd"
 U      Upend. "dc[ba"
  œṡ”[  Split at first occurence of "[". | "dc","ba".

ẋ€        Repeat ...
  1¦        the element at index 1...
          by ...
    Ṫ Ḣ$    the ead of the ail of ...
          the input list ("ab[cd","2ef") (that is, 2)

          The command  also pop the head '2'. The remaining
            part of the tail is "ef".
     ©    Meanwhile, store the tail ("ef") to the register.

          Current value: "dcdc","ba"
FṚ        Flatten and everse. | "abcdcd"
  ;®      Concatenate with the value of the register. "abcdcdef"

Çċ”]$¡    Main link.

 ċ”]$     Count number of "]" in the input.
     ¡    Repeatedly apply...
Ç           the last link...
            that many times.
user202729
источник
1

C, 381 байт

Компактная версия:

while(1){int t=strlen(i);int a,c=-1;char*w;char*s;char*f;while(c++<t){if(i[c]==']'){int k=c-a;w=calloc((k--),1);memcpy(w,&i[a+1],k);s=calloc((t-c-1),1);memcpy(s,&i[c+2],t-c-2);i[a]=0;int r=i[c+1]-48;if(r==0){f=calloc(t,1);sprintf(f,"%s%s",i,s);}else{f=calloc((t+k),1);sprintf(f,"%s%s[%s]%d%s",i,w,w,r-1,s);}free(i);i=f;break;}else if(i[c]=='[')a=c;}free(w);free(s);if(c>=t)break;}

Полная версия:

#include <string.h>
#include <stdio.h>
#include <stdlib.h>

void proceed(char* input)
{
  while(1)
  {
    int t=strlen(input);
    int start,cursor=-1;
    char* word;
    char* suffix;
    char* final;
    while(cursor++<t)
    {
      if(input[cursor]==']')
      {
        int wordlength = cursor-start;
        word=calloc((wordlength--),sizeof(char));
        memcpy(word, &input[start+1], wordlength );
        suffix=calloc((t-cursor-1),sizeof(char));
        memcpy( suffix, &input[cursor+2], t-cursor-2 );
        input[start]='\0';
        int rep=input[cursor+1]-'0';
        if(rep==0)
        {
          final=calloc(t,sizeof(char));
          sprintf(final,"%s%s",input,suffix);
        }
        else
        {
          final=calloc((t+wordlength+5),sizeof(char));
          sprintf(final,"%s%s[%s]%d%s",input,word,word,rep-1,suffix);
        }
        free(input);
        input=final;
        break;
      }
      else if(input[cursor]=='[')
        start=cursor;
    }
    free(word);
    free(suffix);

    if(cursor>=t)break;
  }
}

int main()
{
  char* input=calloc(256,sizeof(char));
  sprintf(input,"a[[toto]2b]2[ana]3");
  printf("in : %s\n",input);
  proceed(input);
  printf("out: %s\n",input);
  return 0;
}
raphchar
источник
3
Добро пожаловать в PPCG!
Лохматый
1
Добро пожаловать на сайт! Обратите внимание, что представления C должны быть полными программами или функциями, а не просто фрагментами.
MD XF
1

Python, 80 байт

import re
b=re.sub
s=lambda x:eval(b(r"\](.)",r"')*\1+'",b(r"\[","'+('","%r"%x)))

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

s("[Foo[Bar]3]2")Обращенные [Foo[Bar]3]2к ''+('Foo'+('Bar')*3+'')*2+''и оценивается.

Сбой при вводе с кавычками в скобках (например [']3)

ugoren
источник
Я отклонил этот ответ, так как вопрос требует обработки любого печатного ASCII на входе, а этот ответ - нет. Сообщите мне, если вы это исправите, и я с удовольствием отзову свой голос.
День