Bei einer Zahl n, Output eine geordnete Liste von 1-basierten Indizes fallen entweder auf der Diagonalen einer n*nquadratischen Matrix.

Beispiel:

Für eine Eingabe von 3:

Das Quadrat soll sein:

1 2 3
4 5 6
7 8 9

Nun wählen wir alle die Indizes vertreten durch \, /oder X( #oder nicht-diagonalen Positionen abgelehnt werden)

\ # /
# X #
/ # \

Die Ausgabe muss sein:

[1,3,5,7,9]

Testfälle:

1=>[1]
2=>[1,2,3,4]
3=>[1,3,5,7,9]
4=>[1,4,6,7,10,11,13,16]
5=>[1,5,7,9,13,17,19,21,25]

Es wird keine akzeptierte Antwort geben. Ich möchte den kürzesten Code für jede Sprache wissen.

Oktave , 28 Bytes

@(n)find((I=eye(n))+flip(I))

Anonyme Funktion, die eine Zahl eingibt und einen Spaltenvektor von Zahlen ausgibt.

Probieren Sie es online!

JavaScript (ES6), 48 Byte

Gibt eine durch Bindestriche getrennte Liste von Ganzzahlen als Zeichenfolge aus.

f=(n,k=n*n)=>--k?f(n,k)+(k%~-n&&k%-~n?'':~k):'1'

Formatiert und kommentiert

f = (n, k = n * n) => // given n and starting with k = n²
  --k ?               // decrement k; if it does not equal zero:
    f(n, k) + (       //   return the result of a recursive call followed by:
      k % ~-n &&      //     if both k % (n - 1) and
      k % -~n ?       //             k % (n + 1) are non-zero:
        ''            //       an empty string
      :               //     else:
        ~k            //       -(k + 1) (instantly coerced to a string)
    )                 //   end of iteration
  :                   // else:
    '1'               //   return '1' and stop recursion

Testfälle

f=(n,k=n*n)=>--k?f(n,k)+(k%~-n&&k%-~n?'':~k):'1'

;[1,2,3,4,5].forEach(n => console.log(n, '->', f(n)))

R , 38 35 34 38 Bytes

3 Byte gespeichert, als ich mich an die Existenz der whichFunktion erinnerte ..., 1 Byte dank @Rift gespeichert

d=diag(n<-scan());which(d|d[n:1,])

+4 Byte für das Argument, ec=Twenn es von als vollständiges Programm aufgerufen wirdsource()

Probieren Sie es online!

Erläuterung:

n<-scan()            # take input
d=diag(n);           # create an identity matrix (ones on diagonal, zeros elsewhere)
d|d[n:1,]            # coerce d to logical and combine (OR) with a flipped version
which([d|d[n:1,]])   # Find indices for T values in the logical expression above

Gelee , 8 Bytes

⁼þ`+Ṛ$ẎT

Probieren Sie es online!

Verwendet Luis Mendos Algorithmus für seine MATL-Antwort.

Oktave , 41 37 Bytes

Dies funktioniert übrigens auch in MATLAB. Keine hinterhältige Octave-spezifische Funktionalität :)

@(x)unique([x:x-1:x^2-1;1:x+1:x*x+1])

Probieren Sie es online!

Erläuterung:

Anstatt eine quadratische Matrix zu erstellen und die beiden Diagonalen zu finden, habe ich gedacht, ich berechne die Diagonalen stattdessen direkt. Dies war 17 Bytes kürzer! =)

@(x)                                   % Anonymous function that takes 'x' as input
    unique(...                   ...)  % unique gives the unique elements, sorted
           [x:x-1:x^2-1                % The anti-diagonal (is that the correct word?)
                       ;               % New row
                        1:x+1:x*x+1])  % The regular diagonal

So sieht es aus, ohne unique:

ans =    
    6   11   16   21   26   31
    1    8   15   22   29   36

_{Ja, ich hätte wahrscheinlich die Reihenfolge der Diagonalen umkehren sollen, um sie menschenfreundlicher zu machen.}

MATL , 6 Bytes

XytP+f

Probieren Sie es online!

Erläuterung

Gleicher Ansatz wie meine Octave-Antwort.

Betrachten Sie die Eingabe 3als Beispiel.

Xy   % Implicit input. Identity matrix of that size
     % STACK: [1 0 0;
               0 1 0;
               0 0 1]
t    % Duplicate
     % STACK: [1 0 0
               0 1 0
               0 0 1],
              [1 0 0
               0 1 0
               0 0 1]
P    % Flip vertically
     % STACK: [1 0 0
               0 1 0
               0 0 1],
              [0 0 1
               0 1 0
               1 0 0]
+    % Add
     % STACK: [1 0 1
               0 2 0
               1 0 1]
f    % Linear indices of nonzero entries. Implicit display  
     % STACK:[1; 3; 5; 7; 9]

Die lineare Indizierung ist spaltenweise und basiert auf 1. Weitere Informationen finden Sie im Abschnitt zu Länge 12 hier .

Python 2 , 54 53 Bytes

lambda n:[i+1for i in range(n*n)if i%-~n<1or i%~-n<1]

Probieren Sie es online!

Oktave, 68 54 Bytes

Vielen Dank an @Stewie Griffin für die Einsparung von 14 Bytes!

@(x)unique([diag(m=reshape(1:x^2,x,x)),diag(flip(m))])

Probieren Sie es online!

MATLAB, 68 Bytes

x=input('');m=reshape([1:x*x],x,x);unique([diag(m) diag(flipud(m))])

Erläuterung:

@(x)                               % Anonymous function
m=reshape([1:x*x],x,x);            % Create a vector from 1 to x^2 and
                                   % reshape it into an x*x matrix.
diag(m)                            % Find the values on the diagonal.
diag(flip(m))                      % Flip the matrix upside down and
                                   % find the values on the diagonal.
unique([])                         % Place the values from both diagonals
                                   % into a vector and remove duplicates.

Mathematica, 42 Bytes

Union@Flatten@Table[{i,#+1-i}+i#-#,{i,#}]&

Probieren Sie es online!

@ KellyLowder Golf es bis zu ..

Mathematica, 37 Bytes

##&@@@Table[{i-#,1-i}+i#,{i,#}]⋃{}&

und @alephalpha warf den Tisch weg!

Mathematica, 34 Bytes

Union@@Range[{1,#},#^2,{#+1,#-1}]&

Proton , 41 Bytes

n=>[i+1for i:0..n*n if!(i%-~n)or!(i%~-n)]

Probieren Sie es online!

MATL , 14 Bytes

U:GeGXytPY|*Xz

Probieren Sie es online!

C (GCC) , 65 58 Bytes

-7 Bytes dank Titus!

f(n,i){for(i=0;i<n*n;i++)i%-~n&&i%~-n||printf("%d ",i+1);}

Probieren Sie es online!

C # (.NET Core) , 97.83 Byte

f=>{var s="[";for(int i=0;i<n*n-1;)s+=i%-~n<1|i++%~-n<1?i+",":"";return s+n*n+"]";}

Probieren Sie es online!

Die Änderung hier basiert auf der Verschiebung zwischen den zu findenden Zahlen. Die zwei Schichten, die bei 0 beginnen, sind n-1und n+1, wenn also n=5, die Zahlen für n-1wären 0,4,8,12,16,20und für n+1wären 0,6,12,18,24. Wenn Sie diese kombinieren und 1-Indizierung (anstelle von 0-Indizierung) geben, erhalten Sie 1,5,7,9,13,17,19,21,25. Der Offset von nwird durch bitweise Negation (bitweise Komplementoperation) erreicht, wobei ~-n==n-1und-~n==n+1 .

Alte Version

f=>{var s="[";for(int i=0;i<n*n-1;i++)s+=(i/n!=i%n&&n-1-i/n!=i%n?"":i+1+",");return s+$"{n*n}]";}

Probieren Sie es online!

Bei diesem Ansatz werden die Spalten- und Zeilenindizes verwendet, um zu bestimmen, ob sich die Zahlen auf den Diagonalen befinden. i/ngibt den Zeilenindex an undi%n den Spaltenindex an.

Nur das Zahlenarray zurückgeben

Wenn davon ausgegangen wird, dass die Erstellung nur des Zahlenfelds zu den Bytekosten beiträgt, könnte auf der Grundlage des Vorschlags von Dennis.Verweij (using System.Linq; zusätzliche 18 Byte) :

C # (.NET Core) , 66 + 18 = 84 Byte

x=>Enumerable.Range(1,x*x).Where(v=>~-v%~-x<1|~-v%-~x<1).ToArray()

Probieren Sie es online!

Javascript, 73 Bytes

alte Version

n=>[...Array(y=n*n).keys(),y].filter(x=>(--x/n|0)==x%n||(x/n|0)==n-x%n-1)

Dank @Shaggy 10 Bytes gespart

n=>[...Array(n*n)].map((_,y)=>y+1).filter(x=>!(--x%-~n&&x%~-n))

Zum ersten Mal Golf spielen! Ich hoffe, ich habe es nicht zu sehr vermasselt.

let f=n=>[...Array(n*n)].map((_,y)=>y+1).filter(x=>!(--x%-~n&&x%~-n));
[1,2,3,4,5].forEach(n=>console.log(f(n)))

Pyth , 20 bis 18 Bytes

^{( Hier ist die ursprüngliche Version .)}

hMf|<%ThQ1<%TtQ1U*

Test Suite.

Pyth , 18 Bytes

hMf>1*%ThQ%T|tQ1U*

Test Suite.

Perl 5 , 56 + 1 (-n) = 57 Bytes

!(($_+1+$_/$,)%$,&&$_%($,+1))&&say++$_ for 0..($,=$_)**2

Probieren Sie es online!

Java (OpenJDK 8) , 71 Byte

n->{for(int i=0;i<n*n;i++)if(i%-~n<1||i%~-n<1)System.out.println(i+1);}

Probieren Sie es online!

Antwort von Port of Scottinet .

Japt , 16 Bytes

Kann nicht besser aussehen, aber ich bin mir sicher, dass es möglich ist. Musste 2 Bytes für die unnötige Anforderung opfern, dass wir 1-Indexierung verwenden.

²õ f@´XvUÉ ªXvUÄ

Probier es aus

Oktave, 32 Bytes

@(n)find((m=abs(--n:-2:-n))==m')

Probieren Sie es online!

PHP, 56 54 + 1 Bytes

+1 Byte für -RFlag

for(;$z**.5<$n=$argn;$z++)$z%-~$n&&$z%~-$n||print~+$z;

druckt Zahlen, denen Bindestriche vorangestellt sind. Laufen Sie als Pipe mit -nRoder probieren Sie es online aus .

erfordert PHP 5.6 oder höher für den **Operator.
Fügen Sie ein Byte für älteres PHP hinzu: Ersetzen Sie ;$z**.5<$n=$argndurch $z=$argn;$z<$n*$n.

Ruby, 45 Bytes

->n{(n*n).times{|i|i%-~n>0&&i%~-n>0||p(i+1)}}

Arbeitet intern als null indiziert. wenn Schecks iModulo n+1oder n-10, wenn dies der Fall druckt i+1.