도전

문자의 제곱 행렬 (1 바이트 인쇄 가능한 ASCII 문자)이 주어지면 행렬의 각 “링”을 반대 방향으로 회전하십시오.

예를 들어 보자.

1 2 3 4 5
6 7 8 9 A
B C D E F
G H I J K
L M N O P

그런 다음 가장 바깥 쪽 링을 시계 방향으로 90도 회전합니다.

1 2 3 4 5    L G B 6 1
6       A    M       2
B       F => N       3
G       K    O       4
L M N O P    P K F A 5

두 번째 링은 시계 반대 방향으로 90도 회전합니다.

7 8 9    9 E J
C   E => 8   I
H I J    7 C H

최종 링은 시계 방향으로 90도 회전하지만 단일 숫자이므로 (이 예에서는 문자) 영향을받지 않습니다.

최종 결과는 다음과 같습니다.

L G B 6 1
M 9 E J 2
N 8 D I 3
O 7 C H 4
P K F A 5

매트릭스의 측면 길이가 균등 한 경우 가장 안쪽 링은 2×2 정사각형이며 계속 회전해야합니다.

입력

합리적인 표준 형식의 목록 목록. 예를 들어, 줄 바꿈으로 구분 된 공백으로 구분 된 문자열 또는 공백으로 구분 된 문자열 목록은 허용되지만 행렬 주위의 고리로 표시되는 값 목록은 허용되지 않습니다. 문자가 반드시 고유하지는 않습니다.

산출

합리적인 표준 형식의 목록 목록. 입력과 동일한 규칙입니다.

테스트 사례

1 2 3    7 4 1
4 5 6 => 8 5 2
7 8 9    9 6 3

1 2 3 4 5 6    Y S M G A 1
A B C D E F    Z E K Q W 2
G H I J K L => ! D O I V 3
M N O P Q R    @ C P J U 4
S T U V W X    # B H N T 5
Y Z ! @ # $    $ X R L F 6

크레딧

각 요소를 시계 반대 방향으로 한 위치 (90도 아님)로 회전 시키는 관련 문제에 크게 영향을받습니다 .

답변

(cycle[t.r,r.t,r.t,r.t]?)
(g:h)?(a:b)=g$a:h?t(r b)
_?a=a
r=reverse;t=zipWith(:)`foldr`repeat[]

def f(x):l=len(x)-1;r=range(l+1);return[[[x[l-i][j],x[i][l-j]][min(i,j,l-i,l-j)%2]for i in r]for j in r]

r=Reverse;(l=Length[s=#];Table[s[[i+1;;l-i,i+1;;l-i]]=r/@r@s[[i+1;;l-i,i+1;;l-i]],{i,⌊l/2⌋}];r/@Transpose@s)&

@(a){k=a;k(x=2:end-1,x)=0;a=rot90(a);a(m)=rot90(a,-2)(m=~mod(bwdist(+k,'ch'),2));a}{5}