도전

당신의 임무는 소름 끼치는 (예 : 할로윈) 미로를 통해 모험가를 움직여 애니메이션을 만드는 것입니다. Adve는 •; 그는 성격이 유동적이기 때문에 다른 인물로 대표되는 것을 신경 쓰지 않습니다.

Adve를 애니메이션하기 위해 각 프레임을 인쇄합니다. 프레임은 현재 위치가있는지도입니다. Adve는 매 턴마다 한 칸 앞으로 움직이며 역 추적하지 않습니다. 그는 첫 번째 줄에서 시작하여 마지막 줄에서 끝납니다.

입력

구분 기호 또는 문자열 배열이있는 문자열과 같은 합리적인 형식입니다. 입력이 가능한 경로가 하나만 포함 된 3 * 3보다 큰 맵이라고 가정 할 수 있습니다. 존재하는 유일한 문자는 #및 입니다.

산출

프레임.

미로 예 ( ok ... 미로 )

여기에 Adve가없는지도가 있습니다. 첫 번째 프레임과 마지막 프레임은이 빈 맵입니다 (이 맵은 9x15입니다).

### #####
##  #####
## ######
##      #
####### #
#   ### #
# # #   #
# #   ###
# #######
#    ####
#### ####
####  ###
##### ###
##### ###
##### ###

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

이에 대한 정확한 출력은 여기 (37 프레임) 에서 확인할 수 있습니다 .

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

펄, 84 바이트

30 바이트 정도 골프를 즐길 수있는 올바른 방향으로 안내해 주신 @Ton Hospel 에게 감사드립니다 !

바이트 수에는 82 바이트의 코드와 -0p플래그가 포함됩니다.

/.*/;say y/A/ /r;s/&(.{@{+}})? /A$1&/s||s/ (.{@{+}})?&/&$1A/s||s/ /&/?redo:y;A&;  

마지막 공백은 두 개이며 마지막 줄 바꿈은 없습니다 (그렇지 않으면 작동하지 않습니다).

Adve가 나가는 데 필요한 모든 프레임을 출력으로 미로를 입력으로 가져옵니다. 후자는 utf8이 아니므로 펄은 기본적으로 utf8을 사용하지 않기 때문에 Adve는 a &대신에 •있습니다. -0pE플래그로 실행하십시오 :

perl -0pE '/.*/;say y/A/ /r;s/&(.{@{+}})? /A$1&/s||s/ (.{@{+}})?&/&$1A/s||s/ /&/?redo:y;A&;  ' <<< "### #####
##  #####
## ######
##      #
####### #
#   ### #
# # #   #
# #   ###
# #######
#    ####
#### ####
####  ###
##### ###
##### ###"

눈을 위해 , 나는 또한이 애니메이션 버전을 만들었습니다. 약간 더 길지만 각 인쇄와 수면 사이의 터미널을 0.15 초간 지우면 Adve가 실제로 움직이는 것처럼 보일 것입니다.

perl -0nE 'system(clear);/.*/;say y/A/ /r;select($,,$,,$,,0.15);s/&(.{@{+}})? /A$1&/s||s/ (.{@{+}})?&/&$1A/s||s/ /&/?redo:say"\e[H",y/A&/  /r' <<< "### #####
##  #####
## ######
##      #
####### #
#   ### #
# # #   #
# #   ###
# #######
#    ####
#### ####
####  ###
##### ###
##### ###"

자바 스크립트 (ES6), 137

(1 바이트 절약 @ETHproductions)

m=>(o=>{for(p=m.search` `-o,r=[m];[d,o/d,-o/d].some(q=>1/m[d=q,q+=p]?p=q:0);r.push(q.join``))(q=[...m])[p]=0})(d=1+m.search`
`)||[...r,m]

덜 골프

m=>{
  d = o = 1+m.search`\n`; // offset to next row and starting direction
  p = m.search` `-o; // starting position, 1 row above the first
  for( r=[m]; // r is the output array, start with empty maze
       // try moving in 3 directions (no back)
       // if no empty cell found, we have exit the maze
       [d,o/d,-o/d].some(q => 1/m[d=q,q+=p]? p=q : 0);
       r.push(q.join``) // add current frame
     )
     q=[...m], q[p] = 0; // build frame, '0' used to mark Adve position
  return [...r,m] // add last frame with maze empty again
}

테스트

F=
m=>(o=>{for(p=m.search` `-o,r=[m];[d,o/d,-o/d].some(q=>1/m[d=q,q+=p]?p=q:0);r.push(q.join``))(q=[...m])[p]=0})(d=1+m.search`\n`)||[...r,m]

function go() {
  var i=I.value,r=F(i),
      frame=x=>(x=r.shift())&&(O.textContent=x,setTimeout(frame,100))
  frame()
}

go()

#I { width:10em; height: 19em; font-size:10px}
#O { white-space:pre; font-family: monospace; font-size:10px; vertical-align: top; padding: 4px}

<table><tr><td>
<textarea id=I>### #####
##  #####
## ######
##      #
####### #
#   ### #
# # #   #
# #   ###
# #######
#    ####
#### ####
####  ###
##### ###
##### ###
##### ###
</textarea><button onclick='go()'>go</button></td><td id=O></td></tr></table>