MATL , 15 byte
X>ttq*QwoEqGd*+
Cobalah online!
Kumpulkan dan cetak sebagai matriks
Bagaimana?
Sunting: Teknik yang sama dengan jawaban @ Doorknob, baru tiba dengan berbeda.
Perbedaan antara elemen diagonal spiral adalah urutan aritmatika . Jumlah dari syarat ini adalah (dengan rumus AP biasa). Jumlah ini, bertambah 1, memberikan elemen diagonal pada posisi .n n ( n - 1 ) ( n , n )0,2,4,6,8,…nn(n−1)(n,n)
Mengingat , kami menemukan maksimum dari keduanya, yang merupakan "lapisan" dari spiral yang dimiliki titik ini. Kemudian, kami menemukan nilai diagonal dari lapisan itu sebagai . Untuk layer genap, nilai at adalah , untuk layer ganjil .v = n ( n - 1 ) + 1 ( x , y ) v + x - y v - x + y(x,y)v=n(n−1)+1(x,y)v+x−yv−x+y
X> % Get the maximum of the input coordinates, say n
ttq* % Duplicate that and multiply by n-1
Q % Add 1 to that. This is the diagonal value v at layer n
wo % Bring the original n on top and check if it's odd (1 or 0)
Eq % Change 1 or 0 to 1 or -1
Gd % Push input (x, y) again, get y - x
* % Multiply by 1 or -1
% For odd layers, no change. For even layers, y-x becomes x-y
+ % Add that to the diagonal value v
% Implicit output
Alternatif solusi 21 byte:
Pdt|Gs+ttqq*4/QJb^b*+
Cobalah online!
Mengumpulkan dan mencetak sebagai matriks
Dari hal di atas, kita tahu bahwa fungsi yang kita inginkan adalah
f=m∗(m−1)+1+(−1)m∗(x−y)
di mana .m=max(x,y)
Beberapa perhitungan dasar akan menunjukkan bahwa satu ekspresi untuk maks dua angka adalah
m=max(x,y)=x+y+abs(x−y)2
Memasukkan satu ke yang lain, kami menemukan bahwa satu bentuk alternatif untuk adalah:f
f=(x−y)⋅ik+14((k−2)⋅k)+1
di mana .k=abs(x−y)+x+y
Ini adalah fungsi yang diterapkan oleh solusi.