도전

Marks and Spencers를 돌아 다니면서 상점 주변에 에어컨 장치가 무작위로 배치 된 것을 발견했습니다. 시원하게 유지하고 싶을 때 에어컨 장치에서 너무 오랫동안 떨어져 있지 않고 상점 전체를 돌아 다니는 가장 쉬운 방법이 무엇인지 궁금했습니다.

지도가 주어지면 에어컨 장치와의 거리를 가능한 짧게 유지하면서 (AC 장치가 벽의 다른쪽에 있더라도) 전체지도를 돌아 다니는 방법을 찾아야합니다.

지도

지도는 원하는 방식으로 제공 될 수 있으며 다음 기호를 사용합니다.

+ is a corner of a wall
| is a east/west facing wall
- is a north/south facing wall
X is an air conditioning unit
S is the start and end point

예제 맵은 다음과 같습니다.

+------S---+
|   X      |
| ---+-+ X |
|    |X|   |
| ---+ +---+
|   X      |
+----------+

또는

+---+--+
| X |  |
|   |  +-----+------+
|   | X      | X    |
|     ---+       |  S
|   |    |  X    |  |
|   |  +-+-------+--+
| X    |
+------+

전체지도를 여행한다는 것은 모든 빈 공간과 에어컨을 통과한다는 의미입니다. 벽을 통과 할 수 없으며 직각으로 만 이동할 수 있습니다. 지도가 항상 직사각형 인 것은 아닙니다.

AC 장치와의 거리를 최대한 짧게 유지하는 것이 모든 시간 간격의 합입니다.

통과는 출입을 의미합니다.

원하는 방식으로 경로를 출력 할 수 있습니다. 예를 들면 다음과 같습니다.

• 경로가 포함 된 맵 출력
• (예를 들어 나침반 포인트 연속적으로 출력 경로 NNSESW)

Windows 용 PowerShell , 376 367 바이트

게으른 사람처럼 모든 선반에 가지 않고 상점의 에어컨에서 에어컨으로 옮깁니다. 나는 모든 에어컨을 방문하는 가게 전체를 여행했다고 생각합니다.

$f={param($m,$d,$o=@{})$w=(($l=$m-split"
")|% le*|sort)[-1]
$m=($l|% *ht $w)-join"
"
if(!$o.$m-or$o.$m-ge$d-and$m-match'(?s)X.*S|S.*X'){$o.$m=$d++
$n=-split")X(S )X(.{$w}S S)X( S.{$w})X("|%{sls "(?s)^(.*$_.*)$" -inp $m -a|% m*|%{($_.Groups-replace'S',' ')[1,2]-join'S'}}
$d=(($n+,($m-replace"(?s)(?<=S(.{$w})?) | (?=(.{$w})?S)",'S')*!$n)|%{&$f $_ $d $o}|sort)[0]}+$d}

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

풀림 :

$f={
    param($map,$distance,$o=@{})
    $lines = $map-split"`n"
    $width = ($lines|% length|sort)[-1]
    $map = ($lines|% padRight $width)-join"`n"                              # to rectangle

    if(!$o.$map -or $o.$map-ge$distance -and $map-match'(?s)X.*S|S.*X'){
        $o.$map = $distance++                                               # store a map to avoid recalculations
        $n = -split")X(S )X(.{$width}S S)X( S.{$width})X("|%{               # search a nearest X in 4 directions
            select-string "(?s)^(.*$_.*)$" -InputObject $map -AllMatches|% Matches|%{
                ($_.Groups-replace'S',' ')[1,2]-join'S'                     # start a new segment (reset all S and replace the nearest X by S)
            }
        }
        $stepMore = $map-replace"(?s)(?<=S(.{$w})?) | (?=(.{$w})?S)",'S'
        $n += ,$stepMore*!$n                                                # add a step if X was not found
        $distance=($n|%{&$f $_ $distance $o}|sort)[0]                       # recursive repeat
    }

    +$distance
}