Jimmy te tablice w dół

23

Mój współpracownik, Jimmy, jest nowy w C / C ++. Jest także trochę powolnym uczniem. Teraz, żeby być uczciwym, jego kod zawsze się kompiluje, ale ma kilka naprawdę niechlujnych nawyków. Na przykład wszyscy wiedzą, że możesz zdefiniować tablicę w następujący sposób:

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

Wszyscy, z wyjątkiem Jimmy'ego. Jest przekonany, że jedynym sposobem na utworzenie tablicy jest:

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

Ciągle go naprawiam w przeglądzie kodu, ale się nie nauczy. Potrzebuję więc napisać narzędzie, które zrobi to za niego automatycznie, gdy się zaangażuje¹.

Wyzwanie

Chcę, abyś napisał pełny program lub funkcję, która pobiera ciąg danych wielowierszowych jako dane wejściowe i wyświetla bardziej zwartą wersję tablicy C. Dane wejściowe zawsze będą miały ten format, łącznie z białymi znakami:

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;

Krótko mówiąc, dane wejściowe zawsze będą prawidłowe i dobrze zdefiniowane C. Bardziej szczegółowo:

Wszystkie identyfikatory będą się składały z samych liter i znaków podkreślenia. Długość zawsze będzie wynosić co najmniej jeden i nigdy nie będzie żadnych brakujących lub poza granicami indeksów. Możesz także założyć, że indeksy są w porządku. Na przykład:

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

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

i

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

wszystkie są nieprawidłowymi danymi wejściowymi i mogą powodować nieokreślone zachowanie w zgłoszeniu. Możesz również założyć, że wszystkie liczby będą prawidłowymi liczbami dziesiętnymi, ujemnymi lub dodatnimi. Wejście nie będzie miało obcych przestrzeni. Dane wyjściowe powinny zawsze mieć ten format, łącznie z białymi znakami:

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

Oto kilka przykładowych danych:

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};

Możesz przyjmować dane wejściowe i wyjściowe w dowolnym rozsądnym formacie, takim jak STDIN / STDOUT, argumenty funkcji i wartość zwracana, odczytywanie i zapisywanie plików itp. Obowiązują standardowe luki. Najkrótsza odpowiedź w bajtach wygrywa!


¹ Jest to pasywno-agresywny i okropny pomysł. Ty nie nie dostać ten pomysł ode mnie.

DJMcMayhem
źródło
8
Przepraszam Jimmy'ego
DJMcMayhem
6
Związane z.
DLosc
@DLosc Ach, tego właśnie używa Jimmy w swoim skrypcie przed zatwierdzeniem!
Bergi,
9
Oczywiście, że Jimmy nie jest golfistą.
jimmy23013,
To wyzwanie naprawdę zaszokowało moje Jimmies .
DanTheMan

Odpowiedzi:

8

Wigor, 43 36 bajtów

Nie musisz dawać Jimmy'emu skryptu, po prostu naucz go, jak używać odpowiedniego edytora tekstu. (dosłowne zwroty dla jasności)

:%s/.*=//|%s/;\n/,/<cr><cr>
3wcf ] = {<esc>
$s};
m-chrzan
źródło
Miły! W tym konkretnym przypadku <C-a>jest krótszy niż t], co jest zabawnym małym hakiem. Myślę też, że technicznie potrzebujesz 2, <cr>ponieważ prosi o potwierdzenie.
DJMcMayhem
Odpowiedzi Vima na standardowe wyzwania golfa powinny być oceniane w bajtach.
Martin Ender
Jest także norm df=krótszy niżs/.*=//g
DJMcMayhem
1
Jest także 3wC] = {<esc>krótszy niż <C-a>di]$s = {<esc>.
DJMcMayhem
1
@Geobits Gdzie jest odpowiedź Emacsa?
Neil
7

CJam, 43 36 bajtów

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

Przykład online

Wyjaśnienie:

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

Ogromne podziękowania dla Martina Endera za ulepszenia mojej pierwszej odpowiedzi CJam.

Linus
źródło
6

JavaScript (ES6), 65 64 63 bajtów

s=>`${s.split`[`[0]}[] = {${s.match(/-?\d+(?=;)/g).join`, `}};`
Huntro
źródło
5

Siatkówka , 30 28 bajtów

Liczba bajtów zakłada kodowanie ISO 8859-1.

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

Wypróbuj online!

Wyjaśnienie

Jako przykład wykorzystamy następujące dane wejściowe:

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

Scena 1

\d+];¶.+ 
] = {

Zauważ, że w pierwszym wierszu jest spacja.

Zaczynamy od dopasowania liczby za ];i linii, a następnie wszystkiego do ostatniego miejsca w następnym wierszu. To dopasowanie można znaleźć tylko na końcu pierwszego wiersza (z powodu ];). Wszystko to zostało zastąpione przez ] = {. Oznacza to, że przekształca nasze przykładowe dane wejściowe na:

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

Etap 2

;¶.+=
,

Teraz możemy dopasować wszystko od ;góry do =następnego wiersza i zastąpić ,. To przekształca ciąg do:

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

Etap 3

;
};

Wszystko, co pozostało jest ustalenie końca i robimy to poprzez zastąpienie jedyne ;z };:

spam eggs[] = {0, 4, 8, -3};
Martin Ender
źródło
5

Julia, 112 108 105 bajtów

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

Wyjaśnienie

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(

Zapisane bajty poprzez zastąpienie metody collect (eachmatch ()) wartością [eachmatch () ...] i krótszym wyrażeniem regularnym

nyro_0
źródło
Cześć, witamy w PPCG! To wygląda na świetną pierwszą odpowiedź. +1 ode mnie Ponieważ wyzwanie mówi „ Możesz przyjmować dane wejściowe i wyjściowe w dowolnym rozsądnym formacie ”, możesz usunąć spację po separatorze przecinków w eachmatchwywołaniu funkcji, aby uzyskać mniej ładny wynik i -1 bajt. Nigdy sam nie programowałem w Julii, ale ten post może Cię zainteresować: Porady dotyczące gry w golfa w Julii . Ponownie witamy i życzymy miłego pobytu. :)
Kevin Cruijssen
1
dziękuję bardzo za miłe słowa :) PPCG wydawało się zabawne, więc pomyślałem, że spróbuję. Wybrałem Julię dla tej odpowiedzi, ponieważ nie była jeszcze dostępna
nyro_0
Używanie matchallbyłoby prawdopodobnie krótsze niż rozpryskiwanie eachmatch.
Alex A.
próbowałem najpierw użyć matchall, ale nie pozwala mi to na użycie grup wyrażeń regularnych (części w nawiasach, którymi jestem szczególnie zainteresowany) w przeciwieństwie do każdego dopasowania. (czy po prostu nie mogłem tego znaleźć w dokumentacji?)
nyro_0,
3

Lua, 121 bajtów.

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

Wyjaśnił

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
ATaco
źródło
3

Partia, 160 bajtów

@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

Uwaga: linia set s=,kończy się spacją. Pobiera dane wejściowe na STDIN. Ta dziwna linia 3 pobiera dane wejściowe (np. int spam[6];I zmienia wynik na, [w [] = {&remwyniku set s=int spam[] = {&rem 6];którego następnie interpretowane są jako dwie instrukcje, set s=int spam[] = {a rem 6];ta ostatnia jest komentarzem. Następnie dla każdej linii usuwamy tekst do pierwszej spacji (ponieważ możesz użyj =wzorca, a dopasowanie nie jest zachłanne) i wyodrębnij wartość.

Neil
źródło
3

C, 121 bajtów

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

Python 112 111

Dla mnie bardzo proste, proszę zasugerować wszelkie usprawnienia, które przychodzą mi do głowy.

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};'
Caridorc
źródło
Po szybkim spojrzeniu widzę, że na stronie jest bezużyteczny biały znak [:-1] for.
Yytsi
2

05AB1E , 31 30 28 bajtów

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

Wyjaśnienie

ž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

Wypróbuj online!

Oszczędność bajtu dzięki Adnanowi

Emigna
źródło
žuDÀÀzamiast „[]„{}zapisuje bajt :).
Adnan
@Adnan: Racja, dobry chwyt!
Emigna,
2

Java 7, 159 158 149 154 bajtów

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("..$","};");}

Wiele bajtów zapisanych dzięki @cliffroot .

Kod niepoznany i testowy:

Wypróbuj tutaj.

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;" }));
  }
}

Wydajność:

spam eggs[] = {0, 4, 8, -3, 3, 7, 888, 555, 0, -2};
char ans[] = {52, 50};
blah_blah quux[] = {105};
Kevin Cruijssen
źródło
1
zapisano kilka bajtówString 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 Thanks! Rzeczywiście, kilka fajnych sztuczek, takich jak ponowne użycie Stringparametru in i zastąpienie ostatniego znaku "};");zamiast zamiast "")+"};";.
Kevin Cruijssen
2

Perl, 42 + 2 (-0p ) = 44 bajty

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

Potrzebuje -pi -0flagi do uruchomienia. Na przykład :

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

Galaretka , 27 bajtów

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

Wypróbuj online!

Wyjaśnienie

Ỵ         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 “};”
Lynn
źródło
1

sed 51

1s,\[.*,[] = {,
:
N
s,\n.*= ,,
s/;/, /
$s/, $/};/
t
Riley
źródło
1

Java, 106 bajtów

Jak zwykle manipulowanie ciągami w Javie to piekło.

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

To jest czysta odpowiedź regularna. Zrób pojedynczy konkatenowany String, a następnie wykonaj, replaceXxxaż będzie w porządku.

Testowanie i niestosowanie:

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);
  }
}
Olivier Grégoire
źródło
0

Galaretka , 33 bajty

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

TryItOnline

W jaki sposób?

ỴḊḲ€Ṫ€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 '=')
Jonathan Allan
źródło
Down wyborca ​​- co jest z tym nie tak?
Jonathan Allan
0

JavaScript, 125 bajtów

Wiem, że jest dłuższy niż inne, ale naprawdę chciałem go użyć eval . Dla żartu.

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

Aby uruchomić, wklej tutaj :

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)
mbomb007
źródło
0

Haxe, 234 bajty

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ługie nazwy funkcji zabiły to: D

Wypróbuj testcases tutaj !

Yytsi
źródło
0

V , 25 , 24 bajtów

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

Wypróbuj online! Zawiera on <esc>znak, którego nie można wydrukować , więc oto zrzut heksowy:

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

Wyjaśnienie:

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:
                          };    "'};'
DJMcMayhem
źródło