Джиммі ці масиви вниз


23

Мій колега, Джиммі , якийсь новичок C / C ++. Він також є повільним учнем. Тепер, щоб бути справедливим, його код завжди складається, але у нього є справді неохайні звички. Наприклад, всім відомо, що ви можете визначити масив так:

int spam[] = {4, 8, 15, 16, 23, 42};

Усі, хто є, крім Джиммі. Він переконаний, що єдиний спосіб створити масив такий:

int spam[6];
spam[0] = 4;
spam[1] = 8;
spam[2] = 15;
spam[3] = 16;
spam[4] = 23;
spam[5] = 42;

Я продовжую фіксувати це для нього в перегляді коду, але він не дізнається. Тому мені потрібно, щоб ви написали інструмент, який автоматично робить це для нього, коли він виконує завдання¹.

Змагання

Я хочу, щоб ви написали або повну програму, або функцію, яка приймає багаторядковий рядок як вхідний і виводить більш компактну версію масиву C. Вхід завжди буде відповідати цьому формату, включаючи пробіл:

identifier_one identifier_two[some_length];
identifier_two[0] = some_number;
identifier_two[1] = some_number;
identifier_two[2] = some_number;
...
identifier_two[some_length - 1] = some_number;

Коротше кажучи, вхід завжди буде дійсним та чітко визначеним C. Детальніше:

Усі ідентифікатори будуть складатися з просто літер та підкреслень. Довжина завжди буде принаймні одна, і ніколи не буде відсутніх та не введених індексів. Ви також можете припустити, що індекси в порядку. Наприклад:

foo bar[3];
bar[0] = 1
bar[2] = 9;

foo bar[1];
bar[0] = 1;
bar[1] = 3;

і

foo bar[3];
bar[2] = 9;
bar[0] = 1
bar[1] = 3

усі недійсні дані та можуть спричинити невизначену поведінку у вашому поданні. Ви також можете припустити, що всі числа будуть дійсними десятковими числами, негативними чи додатними. На вході не буде сторонніх пробілів. Вихід завжди повинен відповідати цьому формату, включаючи пробіл:

identifier_one identifier_two[] = {n1, n2, n3, ...};

Ось деякі зразкові дані:

Input:
spam eggs[10];
eggs[0] = 0;
eggs[1] = 4;
eggs[2] = 8;
eggs[3] = -3;
eggs[4] = 3;
eggs[5] = 7;
eggs[6] = 888;
eggs[7] = 555;
eggs[8] = 0;
eggs[9] = -2;

Output:
spam eggs[] = {0, 4, 8, -3, 3, 7, 888, 555, 0, -2};

Input:
char ans[2];
ans[0] = 52;
ans[1] = 50;

Output:
char ans[] = {52, 50};

Input:
blah_blah quux[1];
quux[0] = 105;

Output:
blah_blah quux[] = {105};

Ви можете приймати введення та вихід у будь-якому розумному форматі, наприклад, STDIN / STDOUT, аргументи функції та повернене значення, читання та запис файлів тощо. Застосовуються стандартні лазівки. Найкоротша відповідь у байтах виграє!


¹Це пасивно-агресивна і жахлива ідея. Ви не отримали від мене цієї ідеї.


8
Мої вибачення Джиммі
DJMcMayhem


@DLosc Ага, саме це використовує Джиммі у своєму сценарії попереднього вчинення!
Бергі

9
Звичайно, що Джиммі - не гольфіст.
jimmy23013

Цей виклик справді загримів моїх Джиммі .
DanTheMan

Відповіді:


8

Vim, 43 36 байт

Вам не потрібно давати сценарію Джиммі, просто навчіть його користуватися належним текстовим редактором. (буквальна віддача за ясність)

:%s/.*=//|%s/;\n/,/<cr><cr>
3wcf ] = {<esc>
$s};

Приємно! У цьому конкретному випадку <C-a>він коротший t], що трохи забавно. Крім того, я думаю, що вам технічно потрібні 2, <cr>оскільки він вимагає підтвердження.
DJMcMayhem


Крім того, norm df=коротшеs/.*=//g
DJMcMayhem

1
Крім того, 3wC] = {<esc>коротше, ніж <C-a>di]$s = {<esc>.
DJMcMayhem

1
@Geobits Де ваша відповідь Emacs?
Ніл

7

CJam, 43 36 байт

qN/('[/~;"[] = {"@{S/W=W<}%", "*"};"

Приклад онлайн

Пояснення:

qN/                                     |Read all lines to array
   ('[/~;                               |slice first line left of [
         "[] = {"                       |add formatting to stack
                 @                      |rotate to remaining lines
                  {      }%             |for each line in array
                   S/W=                 |split after last space
                       W<               |remove last character (;)
                           ", "*        |insert ", " to array
                                "};"    |add formatting

Велика подяка Мартіну Ендеру за вдосконалення моєї першої відповіді CJam.


6

JavaScript (ES6), 65 64 63 байт

s=>`${s.split`[`[0]}[] = {${s.match(/-?\d+(?=;)/g).join`, `}};`

5

Сітківка , 30 28 байт

Кількість байтів передбачає кодування ISO 8859-1.

\d+];¶.+ 
] = {
;¶.+=
,
;
};

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

Пояснення

Ми будемо використовувати такий приклад:

spam eggs[4];
eggs[0] = 0;
eggs[1] = 4;
eggs[2] = 8;
eggs[3] = -3;

1 етап

\d+];¶.+ 
] = {

Зверніть увагу, що на першому рядку є пробіл.

Ми почнемо з зіставлення числа, наступного за ];і передачею рядків, а потім все до останнього пробілу в наступному рядку. Цей матч можна знайти лише в кінці першого рядка (із-за ];). Все це замінено на ] = {. Тобто, він перетворює наш приклад:

spam eggs[] = {0;
eggs[1] = 4;
eggs[2] = 8;
eggs[3] = -3;

2 етап

;¶.+=
,

Тепер ми узгоджуємо все, починаючи з ;вершини до =наступного рядка, і заміняємо на ,. Це перетворює рядок у:

spam eggs[] = {0, 4, 8, -3;

3 етап

;
};

Все , що залишилося фіксуючи кінець , і ми робимо це, замінивши єдиний залишився ;з };:

spam eggs[] = {0, 4, 8, -3};

5

Юлія, 112 108 105 байт

f(s)=string(split(s,'[')[1],"[] = {",join([m[1] for m in [eachmatch(r"= *(-?\d+)",s)...]],", "),"};")

Пояснення

string(                                                         # build output string
split(s,'[')[1],                                                # get declaration (e.g. spam eggs)
"[] = {",                                                       # add [] = {
join(                                                           # collect numbers
    [m[1] for m in [eachmatch(r"= *(-?\d+)",s)...]],            # regex out (signed) numbers
    ", "),                                                      # and join comma separated
"};"                                                            # add };
)                                                               # close string(

Збережені байти замінили збирання (everymatch ()) на [everymatch () ...] і на коротший регулярний вираз


Привіт, Ласкаво просимо до PPCG! Це виглядає як чудова перша відповідь. +1 від мене. Оскільки у виклику зазначено " Ви можете взяти свій вхід і вихід у будь-якому розумному форматі ", ви можете видалити пробіл після роздільника коми через eachmatchфункцію-виклик для менш гарного виводу та -1 байт. Я ніколи не програмував у Джулії сам, але вам може здатися ця публікація цікавою для читання: Поради щодо гольфу в Джулії . Знову ласкаво просимо і насолоджуйтесь своїм перебуванням. :)
Кевін Круїссен

1
велике спасибі за ваші добрі слова :) PPCG, здавалося, цікаво розглянути, тому я подумав, що спробую. Вибрав Джулію на цю відповідь, оскільки її ще не було
nyro_0

Використання matchall, ймовірно, буде коротшим, ніж бризки eachmatch.
Олексій А.

Я спробував використовувати matchall спочатку, але це не дозволить мені використовувати групи регулярних виразів (частина в дужках, що мене особливо цікавить) на відміну від кожного матчу. (або я просто не зміг його знайти в документації?)
nyro_0

3

Луа, 121 байт.

function g(s)print(s:gmatch('.-%[')()..'] = {'..s:gsub('.-\n','',1):gsub('.-([%d.-]+);\n?','%1, '):gsub(',%s+$','};'))end

Пояснив

function g(s)
    print(                              -- Print, Self Explaintry.
        s:gmatch('.-%[')()..'] = {'     -- Find the 'header', match the first line's class and assignment name (everything up to the 'n]') and append that. Then, append ] = {.
                                        -- In the eggs example, this looks like; 'spam eggs[] = {' now
        ..                              -- concatenate...
        s:gsub('.-\n','',1)             -- the input, with the first line removed.
        :gsub('.-([%d.-]+);\n?','%1, ') -- Then that chunk is searched, quite boringly, a number followed by a semicolon, and the entire string is replaced with an array of those,
                                        -- EG, '1, 2, 3, 4, 5, 6, '
        :gsub(',%s+$','};')          -- Replace the final ', ' (if any) with a single '};', finishing our terrifying combination
    )
end

3

Пакетна, 160 байт

@echo off
set/ps=
set s=%s:[=[] = {&rem %
set r=
:l
set t=
set/pt=
if "%t%"=="" echo %r%};&exit/b
set t=%t:* =%
set r=%r%%s%%t:~2,-1%
set s=, 
goto l

Примітка: рядок set s=,закінчується пробілом. Здійснює введення даних STDIN. Цей дивний рядок 3 приймає вхід (наприклад, int spam[6];і змінює [на [] = {&remрезультат, set s=int spam[] = {&rem 6];який потім інтерпретується як два твердження, set s=int spam[] = {і rem 6];останній з яких є коментарем. Потім для кожного рядка ми видаляємо текст до першого простору (тому що ви можете не використовуйте =у шаблоні, а відповідність не жадібно) та витягуйте значення.


3

C, 121 байт

n=2;main(i){for(;putchar(getchar())^91;);for(printf("] = {");~scanf("%*[^=]%*c%d",&i);n=0)printf(", %d"+n,i);puts("};");}

3

Пітон 112 111

Дуже прямо для мене, будь ласка, підкажіть будь-яке вдосконалення, яке вам спадає на думку.

def f(l):
 a,*b=l.split('\n')
 return a[:a.index('[')]+'[] = {'+', '.join(r.split(' = ')[1][:-1]for r in b)+'};'


# TEST

lines = """spam eggs[10];
eggs[0] = 0;
eggs[1] = 4;
eggs[2] = 8;
eggs[3] = -3;
eggs[4] = 3;
eggs[5] = 7;
eggs[6] = 888;
eggs[7] = 555;
eggs[8] = 0;
eggs[9] = -2;"""
print (f(lines))
assert f(lines) == 'spam eggs[] = {0, 4, 8, -3, 3, 7, 888, 555, 0, -2};'

Швидким поглядом я можу побачити, що в ній є марний пробіл [:-1] for.
Yytsi

2

05AB1E , 31 30 28 байт

žh-|vy#¤¨ˆ\}¨… = ¯ïžuDÀÀ‡';J

Пояснення

žh-¨                            # remove numbers and ";" from first input
    |v      }                   # for each of the rest of the inputs
      y#                        # split on spaces
        ¤¨                      # take the last element (number) minus the last char (";") 
          ˆ\                    # store in global array and throw the rest of the list away
             … =                # push the string " = "
                 ¯ï             # push global array and convert to int
                   žuDÀÀ‡       # replace square brackets of array with curly ones
                         ';     # push ";"
                           J    # join everything and display

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

Збережено байт завдяки Аднану


žuDÀÀзамість „[]„{}збереження байта :).
Аднан

@Adnan: Правильно, хороший улов!
Емінья

2

Java 7, 159 158 149 154 байт

String c(String[]a){a[0]=a[0].split("\\d")[0]+"] = {\b";for(String i:a)a[0]+=i.split("= [{]*")[1];return a[0].replace(";",", ").replaceFirst("..$","};");}

Кілька байтів збережено завдяки @cliffroot .

Невикористаний і тестовий код

Спробуйте тут.

class M{
  static String c(String[] a){
    a[0] = a[0].split("\\d")[0] + "] = {\b";
    for(String i : a){
      a[0] += i.split("= [{]*")[1];
    }
    return a[0].replace(";", ", ").replaceFirst("..$", "};");
  }

  public static void main(String[] a){
    System.out.println(c(new String[]{ "spam eggs[10];", "eggs[0] = 0;", "eggs[1] = 4;",
      "eggs[2] = 8;", "eggs[3] = -3;", "eggs[4] = 3;", "eggs[5] = 7;", "eggs[6] = 888;",
      "eggs[7] = 555;", "eggs[8] = 0;", "eggs[9] = -2;" }));
    System.out.println(c(new String[]{ "char ans[2]", "ans[0] = 52;", "ans[1] = 50;" }));
    System.out.println(c(new String[]{ "blah_blah quux[1];", "quux[0] = 105;" }));
  }
}

Вихід:

spam eggs[] = {0, 4, 8, -3, 3, 7, 888, 555, 0, -2};
char ans[] = {52, 50};
blah_blah quux[] = {105};

1
кілька байтів збереженоString c(String[]a){a[0]=a[0].split("\\d")[0]+"]={ \b";for(String i:a)a[0]+=i.split("=[{]*")[1];return a[0].replace(';',',').replaceFirst(".$","};");}
cliffroot

@cliffroot Дякую! Дійсно кілька приємних хитрощів, як повторне використання параметра Stringв параметрі та заміна останнього знака "};");замість an "")+"};";.
Кевін Круїйсен

2

Perl, 42 + 2 ( -0p) = 44 байти

s%\d+].*%] = {@{[join",",/(-?\d+);/g]}};%s

Потреби -pта -0прапори бігати. Наприклад :

perl -0pe 's%\d+].*%] = {@{[join",",/(-?\d+);/g]}};%s' <<< "blah_blah quux[1];
quux[0] = 105;"

1

Желе , 27 байт

Ỵ©ḢḟØDṖ“ = {”®Ḳ€Ṫ€Ṗ€j⁾, ⁾};

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

Пояснення

Ỵ         Split into lines
 ©Ḣ       Take the first one, store the others in ®
   ḟØD    Remove digits
      Ṗ   Remove trailing ;

“ = {”    Print a literal string

®         Recall the remaining lines
 Ḳ€       Split each into words
   Ṫ€     Keep each last word
     Ṗ€   Remove each trailing ;

j⁾,       Join by “, ”
    ⁾};   Literal “};”


1

Java, 106 байт

Струнні маніпуляції на Java - це пекло, як завжди.

a->a[0].join("",a).replaceAll(";\\w+\\[\\d+\\] = ",", ").replaceAll("\\d+\\], ","] = {").replace(";","};")

Це чистий зворотній відповідь. Зробіть єдине з'єднане String, а потім виконайте, replaceXxxпоки не буде нормально.

Тестування та незагострення:

import java.util.function.Function;

public class Main {

  public static void main(String[] args) {
    Function<String[], String> f = a ->
        String.join("", a)                          // I think this would join. Not sure, though. Golfed into a[0].join because static members are accessible from instances.
            .replaceAll(";\\w+\\[\\d+\\] = ", ", ") // replace with regex
            .replaceAll("\\d+\\], ", "] = {")       // replace with regex
            .replace(";", "};");                    // replace no regex

    String[] spam = {
      "int spam[6];",
      "spam[0] = 4;",
      "spam[1] = 8;",
      "spam[2] = 15;",
      "spam[3] = 16;",
      "spam[4] = 23;",
      "spam[5] = 42;"
    };
    test(f, spam, "int spam[] = {4, 8, 15, 16, 23, 42};");

    String[] eggs = {
      "spam eggs[10];",
      "eggs[0] = 0;",
      "eggs[1] = 4;",
      "eggs[2] = 8;",
      "eggs[3] = -3;",
      "eggs[4] = 3;",
      "eggs[5] = 7;",
      "eggs[6] = 888;",
      "eggs[7] = 555;",
      "eggs[8] = 0;",
      "eggs[9] = -2;"
    };
    test(f, eggs, "spam eggs[] = {0, 4, 8, -3, 3, 7, 888, 555, 0, -2};");

    String[] ans = {
      "char ans[2];",
      "ans[0] = 52;",
      "ans[1] = 50;"
    };
    test(f, ans, "char ans[] = {52, 50};");

    String[] quux = {
      "blah_blah quux[1];",
      "quux[0] = 105;"
    };
    test(f, quux, "blah_blah quux[] = {105};");

  }

  static void test(Function<String[], String> f, String[] input, String expected) {
    System.out.printf("Result:   %s%nExpected: %s%n", f.apply(input), expected);
  }
}

0

Желе , 33 байти

ỴḊḲ€Ṫ€K⁾;,yṖ“{“};”j
ỴḢḟØDṖ,⁾ =,ÇK

TryItOnline

Як?

ỴḊḲ€Ṫ€K⁾;,yṖ“{“};”j - Link 1, parse and reform the values, same input as the Main link
Ỵ                   - split on line feeds
 Ḋ                  - dequeue (remove the first line)
  Ḳ€                - split each on spaces
    Ṫ€              - tail each (get the numbers with trailing ';')
      K             - join on spaces
       ⁾;,          - ";,"
          y         - map (replace ';' with ',')
           Ṗ        - pop (remove the last ',')
            “{“};”  - list of strings ["{","};"]
                  j - join (making "{" + "n0, n1, ,n2, ..." + "};")

ỴḢḟØDṖ,⁾ =,ÇK - Main link, takes one argument, the multiline string
Ỵ             - split on line feeds
 Ḣ            - head (just the first line)
   ØD         - digits yield "0123456789"
  ḟ           - filter out
     Ṗ        - pop (remove the trailing ';')
      ,   ,   - pair
       ⁾ =    - the string " ="
           Ç  - call the previous Link (1)
            K - join on spaces (add the space after the '=')

Вниз виборця - що з цим погано?
Джонатан Аллан


0

JavaScript, 125 байт

Я знаю, що це довше, ніж інші, але я дуже хотів використовувати eval. Задля розваги.

f=function(s){m=/^(\w+ )(\w+).*?(;.*)/.exec(s)
eval("var "+m[2]+"=new Array()"+m[3]+'alert(m[1]+m[2]+"={"+eval(m[2])+"};")')}

Щоб запустити, вставте тут :

s='int spam[6];\
spam[0] = 4;\
spam[1] = 8;\
spam[2] = 15;\
spam[3] = 16;\
spam[4] = 23;\
spam[5] = 42;'
f=function(s){m=/^(\w+ )(\w+).*?(;.*)/.exec(s)
eval("var "+m[2]+"=new Array()"+m[3]+'alert(m[1]+m[2]+"={"+eval(m[2])+"};")')}
f(s)

0

Хакс, 234 байт

function R(L:Array<String>){var S=L[0];var W=S.indexOf(" ");var T=S.substr(0,W),M=S.substring(W+1,S.indexOf("["));var r=[for(i in 1...L.length)L[i].substring(L[i].lastIndexOf(" ")+1,L[i].length-1)].join(', ');return'$T $M[] = {$r};';}

Довгі імена функцій вбили це: D

Спробуйте випробування тут !


0

V , 25 , 24 байти

3wC] = {òJd2f $s, òhC};

Спробуйте в Інтернеті! Він містить недрукований <esc>символ, тож ось шістнадцятковий набір:

0000000: 3377 435d 203d 207b 1bf2 4a64 3266 2024  3wC] = {..Jd2f $
0000010: 732c 20f2 6843 7d3b                      s, .hC};

Пояснення:

3w                              "Move forward 3 words
  C     <esc>                   "Delete everything until the end of the line, and enter this text:
   ] = {                        "'] = {'
             ò         ò        "Recursively:
              J                 "  Join these two lines (which enters a space)
               d                "  Delete everything until you
                2f              "  (f)ind the (2)nd space
                   $            "  Move to the end of this line
                    s           "  Delete a character, and enter:
                     ,          "  ', '
                                "
                        h       "Move one character to the left
                         C      "Delete everything until the end of the line, and enter this text:
                          };    "'};'
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.