MATLAB, 360 363 290 304 295 Bytes
Lesen Sie am Ende des Beitrags, wie Sie den alten Code mit Octave testen können.
Dieser Code übernimmt den Namen des Elements (einschließlich Kalium usw.) und zeigt die Ausgabe im ASCII-Format an, sobald sich die Regeln geändert haben.
f=input('');e=1;a=['CPACxxSAMSNxxxxxBLHxCKACSPSAMNNFONCBBLHH';'aorhxxilaoexxxxxeiexa rl ilgae eie '];for s=a;n=s(s~=32);if strncmpi(n,f,nnz(n));break;end;e=mod(e,20)+1;end;s=spiral(10);p=[8,18,33,28,23,39,60,53,46,95];p=[p;p+1];o=s*0;o(ismember(s,p(1:21-e)))='x';o(45:46)=a(:,e+20);char(o')
Die Regeln haben sich geändert, seit ich den Code geschrieben habe, um eine ASCII-Ausgabe zu erfordern. Ich habe meinen Code dazu auf Kosten von 14 Bytes aktualisiert. Ich habe 9 Bytes gespart, indem ich die Umformung () losgeworden bin und nur diea Matrix von Anfang an in die richtige Form gebracht habe.
Hier ist eine Erklärung, wie es funktioniert:
%Get the name - actually we only need at most the first two characters, but the whole thing will do
f=input('');
e=1;
%This bit makes a map which allows us to find the element (including with
%the names like Kalium. All of the elements appear twice, with the actual
%symbols being the second set. The first set gets all those whose names are
%either more than one character, or don't begin with the first two
%characters of the short for (e.g. Sodium). The string is reshaped into a
%2x40 array. 'Natrium' is a pain in the neck as it as it would get caught
%by 'N' for 'Nitrogen'. I have reversed the element order - so that all the
%ones beginning with N come before N. Some maths is done later on to
%correct for the number of electrons - basically 21-e so 1 becomes 20.
a=['CPACxxSAMSNxxxxxBLHxCKACSPSAMNNFONCBBLHH';'aorhxxilaoexxxxxeiexa rl ilgae eie '];
%For each group of 2 in the array of elements
for s=a
%Remove any spaces from the name
n=s(s~=32);
%Do a comparison of the first one or two characters of the requested string
if (strncmpi(n,f,nnz(n)))
%break once the element is found
break;
end
%If not this element add another electron. We wrap around after 20 as there are two copies of each
e=mod(e,20)+1;
end
%e is now number of electrons
%Generate an array of points for each electron
s=spiral(10);
p=[8,18,33,28,23,39,60,53,46,95];p=[p;p+1];
%make an output array
o=s*0;
%Plot all the points in is up to and including the number of electrons (see the notes above for why 21-e)
o(ismember(s,p(1:21-e)))='x';
%And add the text in the centre - we extract the element name from the second group appearance in the 'a' array, hence adding 20.
o(45:46)=a(:,e+20);
%Display the result
char(o')
Dies ist die Ausgabe für Wasserstoff (ignorieren Sie die Punkte, sie sollen verhindern, dass die Linien entfernt werden, wenn Sie hier anzeigen):
.
.
.
.
xH .
.
.
.
.
.
Und hier ist die Ausgabe für Calcium.
.
xx .
xx .
.
xxxCa xxx.
xxx xxx.
.
xx .
xx .
.
Und die Ausgabe für Natrium, die jetzt richtig funktioniert (vor Natrium würde es zu Stickstoff führen!).
.
x .
xx .
.
xxNa x .
xx x .
.
xx .
.
.
Die neue Version des Codes funktioniert nicht mit Octave, da es spiral()nur in MATLAB vorhanden ist.
Sie können den alten Code jedoch mit dem Octave-Online-Interpreter testen :
f=input('');e=1;a=['CPACxxSAMSNxxxxxBLHxCKACSPSAMNNFONCBBLHH';'aorhxxilaoexxxxxeiexa rl ilgae eie '];for s=a;n=s(s~=32);if strncmpi(n,f,nnz(n));break;end;e=mod(e,20)+1;end;u=14:(34-e);r=floor(u/8);t=u*pi/4;polar(t,r,'o');text(0,0,a(:,e+20)','horizontalalignment','c')
Führen Sie das aus, und geben Sie eine Zeichenfolge wie "Wasserstoff" (einschließlich der Anführungszeichen) ein. Sobald dies erledigt ist, müssen Sie auf die Schaltfläche zum Erweitern des Diagramms klicken (sieht aus wie ein kleines Diagrammsymbol in der oberen rechten Ecke des Interpreters), damit es das Ganze anzeigt. In Octave werden leider Linien hinzugefügt, die die Punkte verbinden, was in MATLAB nicht der Fall ist. Aber zumindest können Sie die Logik dahinter testen. Wie gesagt, dies ist immer noch eine grafische Ausgabe, aber Sie bekommen eine Vorstellung davon, wie die Elemente nachgeschlagen werden.
