요약

이 과제의 목표는 프랑스어로 taquin 이라고도 하는 15 퍼즐 / 슬라이딩 퍼즐 의 실행 취소 된 이미지 버전을 만드는 것 입니다.

세부:

다음과 같이 구성된 입력이 제공됩니다.

• 이미지,
• 정수 n,
• 타 정수 r,

프로그램 또는 기능 또는 기타 적합한 것은 입력과 동일한 이미지 ( 예 : 동일한 크기 및 형식)를 출력해야 하지만 다음과 같은 프로세스를 거쳤습니다.

1. 이미지를 n²사각형 으로 나누고
2. 그 직사각형 중 하나를 무작위로 제거하십시오.
3. 점 (2.)의 영향을받는 선 / 열 에서 임의의 수의 인접한 직사각형을 이동하여 생성 된 구멍이 채워지고이 선 / 열에서 다른 구멍이 생성됩니다. 0블랭크가 모서리 또는 모서리에있는 경우이 숫자가 될 수 있습니다 .

(3) r번 반복하십시오 .

설명 :

• 3 단계에서 선에서 사각형을 이동 한 경우 다음 반복에서 열의 사각형을 이동해야합니다.
• 직사각형을 한 단계 씩 왼쪽에서 오른쪽으로 이동 한 경우 다음 행 단계에서 오른쪽에서 왼쪽으로 이동해야합니다 (열과 관련하여 위에서 아래로, 아래에서 위로).
• n사진 측면의 길이를 나누도록 선택되어 있다고 가정 할 수 있습니다 .

마지막 요점 :

.gif전체 과정을 보여주는 애니메이션 은 매우 환영합니다.

다음 그림 ( 1024x768)을 모델 과 함께 사용 n=16하고 r=100모델로 사용 하는 것이 좋습니다. 물론 관련성이 있고 SE의 규칙을 준수 하는 한 다른 그림을 사용할 수 있습니다 .

하는 것으로 표준 허점 정책이 적용됩니다.

이것은 code-golf 이므로 짧은 제출이 승리합니다!

일례가 요청되었으므로, 여기에, "손"만든 하나 n=4및r=1

1 단계와 2 단계

3 단계 : 왼쪽 방향으로 두 개의 직사각형

수학, 246 바이트

ImageAssemble@(n=Nest)[k=RandomInteger;q=Reverse;({t,r}=1~k~2;q[o=n[q/@#&,#,r]&@*(n[#&,#,t]&)])[o@#/.{a___,b:_~RepeatedNull~k[Position[o@#,i][[1,2]]-1],i,c___}:>{a,i,b,c}]&,MapAt[(i=#~ImageAdd~1)&,#~ImagePartition~Scaled[1/#2],{1,#2}~k~2],#3]&

익명의 기능. Mathematica의 Transpose연산자에 해당하는 U + F3C7을 포함 합니다. 이 함수는 Image객체를 가져 와서 객체를 반환 Image합니다.

샘플 애니메이션, n=16및r=100

5000 회 반복 후 :

(더 큰 버전을 보려면 이미지를 클릭하십시오)

설명

초기화

n=Nest

에 Nest기능 (반복 작업)을 저장하십시오 n.

k=RandomInteger;q=Reverse;

가게 RandomInteger의 기능 k및 Reverse함수를 q.

이미지 나누기

#~ImagePartition~Scaled[1/#2]

입력 이미지를 (두 번째 입력) ^ 2 타일로 분할하십시오.

{1,#2}~k~2

RandomInteger1과 두 번째 입력 사이에 두 개의을 생성하십시오 . 이것은 임의의 타일을 선택합니다.

MapAt[(i=#~ImageAdd~1)&, ..., {1,#2}~k~2]

타일을 흰색으로 만듭니다. 에 저장하십시오 i.

타일 ​​이동

{t,r}=1~k~2

0에서 1까지의 두 개의 임의 정수를 생성 t하고 r각각 및에 저장합니다 . 방향을 임의로 선택합니다.

o=n[q/@#&,#,r]&@*(n[#&,#,t]&)

기능 정의 o:의 구성

1. 입력 t시간을 바꾸는 함수 .
2. 각 행을 반전시키는 함수 r.

영형@#

o입력에 적용하십시오 .

Position[o@#,i][[1,2]]

i(흰색 이미지) 의 열을 찾습니다 .

k[ ... -1]

1을 빼고 0과 그 숫자 사이의 임의의 정수를 찾으십시오. 이것은 움직일 타일 수를 무작위로 선택합니다.

o@#/.{a___,b:_~RepeatedNull~ ... ,i,c___}:>{a,i,b,c}

상기 타일 수가 i(흰색 이미지) 이전에 나타나면 , 그 장소를 바꾸십시오.

(... q[o= ... ])[ ... ]

o기능을 반대로하여 위의 작업 결과에 적용하십시오. 이미지를 반전 시키거나 바꿉니다.

루핑 및 이미지 어셈블리

(n=Nest)[ ... ,#3]

위 과정 (세번째 입력)을 반복하십시오.

ImageAssemble@

이미지를 정리하십시오.