Einführung

In der Chemie gibt es eine Art von Erweiterung, die .xyz-Erweiterung ( https://en.wikipedia.org/wiki/XYZ_file_format ), die in jeder Zeile ein chemisches Element und die Koordinaten in der Ebene des Elements druckt. Dies ist für Chemiker sehr nützlich, um chemische Verbindungen zu verstehen und die Verbindungen in 3D zu visualisieren. Ich dachte, es würde Spaß machen , mit einer .xyz-Datei die chemische Formel auszudrucken.

Herausforderung

Drucken Sie bei einer .xyz-Datei die chemische Formel der Verbindung in einer beliebigen Programmiersprache in der kleinstmöglichen Anzahl von Bytes . Hinweis:

• Ursprünglich sollte die Eingabe als Datei erfolgen. Wie ich bereits erwähnt habe, schränkt dies die Herausforderung ein. Daher können Sie annehmen, dass die Eingabe eine Liste / ein Array von Zeichenfolgen ist, die jeweils eine Zeile der .xyz-Datei darstellen.
• Es gibt keine Einschränkungen bei der Reihenfolge der Elemente.
• Jedes Element sollte mit einem Unterstrich "_" gedruckt werden, der das Element und die Häufigkeit seines Auftretens begrenzt
• Die ersten beiden Zeilen einer .xyz-Datei sind die Anzahl der Elemente und eine Kommentarzeile (beachten Sie dies).

Beispiel für Ein- und Ausgabe

Angenommen, Sie haben eine Datei p.xyz , die Folgendes enthält (wobei die erste Zeile die Anzahl der Elemente und die zweite einen Kommentar enthält):

5  
A mystery chemical formula...  
Ba      0.000   0.000  0.000  
Hf      0.5     0.5    0.5  
O       0.5     0.5    0.000  
O       0.5     0.000  0.5  
O       0.000   0.5    0.5  

Ausgabe:
Ba_1Hf_1O_3

Testen

Ein schneller Test ist mit dem genannten Beispiel. Ein gründlicherer Test ist der folgende: Da die Testdatei Tausende von Zeilen umfasst, werde ich die .xyz-Datei freigeben:
https://gist.github.com/nachonavarro/1e95cb8bbbc644af3c44

Pyth - 18 Bytes

sjL\__MrShMcR;ttQ8

Probieren Sie es hier online aus .

Japt, 21 Bytes

U=¢m¸mg)â £X+'_+Uè_¥X

Testen Sie es online! Die Eingabe erfolgt als Array von Zeichenfolgen (die wie im Link formatiert werden können).

Ungolfed und Erklärung

U=¢   m¸  mg)â £    X+'_+Uè_  ¥ X
U=Us2 mqS mg)â mXYZ{X+'_+UèZ{Z==X

          // Implicit: U = input array of strings
Us2       // Slice off the first two items of U.
mqS mg    // Map each item by splitting at spaces, then taking the first item.
U=    )   // Set U to the result.
â mXYZ{   // Uniquify, then map each item X to:
UèZ{Z==X  //  Count the number of items Z in U where Z == X.
X+'_+     //  Prepend X and an underscore.
          // Implicit output

AWK, 44

NR>2{a[$1]++}END{for(i in a)printf i"_"a[i]}

Probieren Sie es online aus.

Shell + GNU Utilities, 67

sed '1d;2d;s/ .*//'|sort|uniq -c|sed -Ez 's/\s*(\S+) (\S+)/\2_\1/g'

Probieren Sie es online aus.

Mathematica, 79 53 Bytes

StringRiffle[Tally@StringExtract[#[[3;;]],1],"","_"]&

Ziemlich einfach.