MATL , 23 바이트

tt&n:qt&+&y\tb+&y\b*+Q(

그만큼 (0,0)점은 위 도전 텍스트의 예와 같이 남아 있습니다.

온라인으로 사용해보십시오!

설명

MATL의 행렬은 두 개의 인덱스 대신 단일 인덱스로 인덱스 할 수 있습니다. 이것을 선형 인덱싱 이라고 하며 열 주요 순서를 사용합니다. 이것은 다음 4 × 4 행렬로 설명되며, 각 항목의 값이 선형 지수와 일치합니다.

1   5   9  13
2   6  10  14
3   7  11  15
4   8  12  16

챌린지에서 매핑을 구현하는 두 가지 유사한 방법이 있습니다.

1. 선형 인덱스에서 Arnold의 역 매핑 을 나타내는 인덱싱 행렬을 작성하고 이를 사용 하여 원래 행렬에서 값 을 선택 합니다. 4 × 4의 경우, 인덱싱 행렬은

    1  8 11 14
   15  2  5 12
    9 16  3  6
    7 10 13  4
   

   예를 들어 x = 2 5에서 원본 을 말하면 y = 1은 x = 3, y = 2가됩니다. 이 작업을 참조 인덱싱 이라고 합니다 . 인덱싱 매트릭스를 사용하여 원래 매트릭스에서 선택할 요소를 알려줍니다. 이것은 functon )이며, 기본 구성에서 두 개의 입력을받습니다.

2. 선형 인덱스에 대한 Arnold의 직접 매핑 을 나타내는 인덱싱 매트릭스 를 작성 하고 이를 사용 하여 값을 원래 매트릭스 에 씁니다 . 4 × 4의 경우, 인덱싱 행렬은

    1 10  3 12
    6 15  8 13
   11  4  9  2
   16  5 14  7
   

   엔트리 것을 말하고 , X = 2, Y 새로운 매트릭스 = 1은 선형 인덱스 항목에 덮어 것 10인, X = 3, Y = 2. 이를 할당 색인 이라고 합니다 . 색인 행렬, 데이터 행렬 및 원본 행렬을 사용하고 지정된 인덱스에서 원본 행렬에 데이터를 씁니다. 이것은 (기본 설정에서 세 개의 입력을받는 function 입니다.

방법 1은 더 간단하지만 방법 2는 더 짧았습니다.

tt     % Take the input implicitly and push two more copies
&n     % Get its size as two (equal) numbers: N, N
:qt    % Push range [0  1 ... N-1] twice. This represents the original x values
&+     % Matrix of all pairwise additions. This represents x+y
&y     % Push a copy of N onto the top of the stack
\      % Modulo. This is the new y coordinate: y_new
t      % Push another copy
b+     % Bubble up the remaining copy of [0 1 ... N-1] and add. This is 2*x+y
&y     % Push a copy of N onto the top of the stack
\      % Modulo. This is the new x coordinate: x_new
b*+    % Bubble up the remaining copy of N, multiply, add. This computes
       % x_new*N+y_new, which is the linear index for those x_new, y_new
Q      % Add 1, because MATL uses 1-based indexing
(      % Assigmnent indexing: write the values of the original matrix into
       % (another copy of) the original matrix at the entries given by the
       % indexing matrix. Implicitly display the result

답변

(n=MapIndexed[RotateLeft[#,1-#2]&,#]&)@*n

Table[#2[[Mod[2x-y-1,#]+1,Mod[y-x,#]+1]],{x,#},{y,#}]&

def f(a):exec'a=[l[-i:]+l[:-i]for i,l in enumerate(zip(*a))];'*2;return a

def f(a,n):exec'a=[l[-i:]+l[:-i]for i,l in enumerate(zip(*a))];'*2*n;return a

m#n|r<-[0..n-1]=[[m!!mod(2*y-x)n!!mod(x-y)n|x<-r]|y<-r]

lambda M:eval("[r[-i:]+r[:-i]for i,r in enumerate(zip(*"*2+"M))]))]")

[r[-i:]+r[:-i]for i,r in enumerate(zip(*[r[-i:]+r[:-i]for i,r in enumerate(zip(*M))]))]

lambda M,n:[[M[(2*j-i)%n][(i-j)%n]for i in range(n)]for j in range(n)]

v=getPixel((x+y)%w,(2*y+x)%h)