Taksówka w San Francisco

Jesteś kierowcą taksówki w San Francisco. Jak to typowe dla kierowców taksówek, poruszasz się po siatce, w której jedynymi prawidłowymi kierunkami, które możesz przesunąć, są lewo, prawo, góra i dół. Jednak San Fransisco jest bardzo pagórkowaty, więc odległość między dwoma sąsiednimi skrzyżowaniami niekoniecznie jest taka sama. Mówiąc dokładniej, odległość między skrzyżowaniem na wysokości ai sąsiednim skrzyżowaniem na wysokości bbędzie wynosić 1 + |a - b|. Twoim celem jest znalezienie wszystkich najkrótszych ścieżek od miejsca początkowego w lewym górnym rogu mapy do miejsca docelowego w prawym dolnym rogu.

Wejście

Dwuwymiarowa siatka całkowitych wysokości w dowolnym formacie jest najbardziej dogodna (tablica dwuwymiarowa, tablica jednowymiarowa o szerokości i / lub wysokości itp.).

Wynik

Sekwencja kierunków podróży, aby dotrzeć do prawego dolnego rogu wejścia od lewego górnego rogu w możliwie najkrótszej odległości, biorąc pod uwagę odległość między dwoma sąsiednimi przecięciami wysokości ai bjest podana wzorem 1 + |a - b|. Jeśli istnieje wiele rozwiązań, wypisywane są wszystkie rozwiązania.

Chociaż używam U, D, L, i Rna górę, w dół, w lewo iw prawo w poniższych przykładach programu może stosować dowolne cztery odrębne ciągi do reprezentowania kierunków tak długo, jak jest ona zgodna z nich i na wszystkich wejściach.

Przykłady

Input:
0 3 0 0 0
0 2 0 2 0
0 0 0 3 0
Output:
D D R R U U R R D D

Input:
3
Output:
<empty>

Input:
11 11 11
11 11 11
11 11 11
Output:
R R D D
R D R D
R D D R
D R R D
D R D R
D D R R

Input:
7 8 1 -1 0
4 4 6 -1 7
3 4 4  2 8
2 5 2 -1 2
Output:
D R D R R D R
D R D R D R R

To jest golf golfowy, więc wygrywa odpowiedź z najkrótszą liczbą bajtów.

JavaScript (ES6), 228 212 200 194 bajtów

a=>w=>(B=1/0,(F=(r,p,s,b=a[p])=>p-a.length+1?1/b&&([...a[p]='RDUL'].map((c,d)=>d|p%w<w-1&&d-3|p%w&&F(r+c,P=p+[1,w,-w,-1][d],s+1+Math.abs(b-a[P]))),a[p]=b):R=s>B?R:s<B?(B=s,r):R+' '+r)('',0,0),R)

Wejście

Jednowymiarowa tablica ai szerokość ww składni curry(a)(w)

Wynik

Rozdzielona spacjami lista rozwiązań, takich jak "DRDRRDR DRDRDRR"

Sformatowane i skomentowane

a => w => (                            // given an array 'a' and a width 'w'
  B = 1 / 0,                           // B = best score so far, initialized as +Infinity
  (                                    //
    F = (                              // F = recursive function with:
      r,                               //   - r = current path (string)
      p,                               //   - p = current position in grid
      s,                               //   - s = current score
      b = a[p]                         //   - b = backup of current cell
    ) =>                               //
    p - a.length + 1 ?                 // if we haven't reached our destination:
      1 / b && (                       //   if the current cell is valid:
        [...a[p] = 'RDUL']             //     invalidate the current cell
        .map((c, d) =>                 //     for each possible direction:
          d | p % w < w - 1 &&         //       check right boundary
          d - 3 | p % w &&             //       check left boundary
          F(                           //       do a recursive call with:
            r + c,                     //         - new direction appended to the path
            P = p + [1, w, -w, -1][d], //         - updated position
            s + 1 + Math.abs(b - a[P]) //         - updated score
          )                            //
        ),                             //
        a[p] = b                       //     restore current cell value
      )                                //
    :                                  // else:
      R = s > B ?                      //   if the current score is worse than B:
        R                              //     keep the previous solution
      : s < B ?                        //   if the current score is better than B:
        (B = s, r)                     //     update best score / store path as new solution
      : R + ' ' + r                    //   if it's just as good: append path to solution
  )('', 0, 0),                         // initial call to F with r = '', p = 0, s = 0
  R                                    // return solution
)                                      //

Przypadki testowe

let f =

a=>w=>(B=1/0,(F=(r,p,s,b=a[p])=>p-a.length+1?1/b&&([...a[p]='RDUL'].map((c,d)=>d|p%w<w-1&&d-3|p%w&&F(r+c,P=p+[1,w,-w,-1][d],s+1+Math.abs(b-a[P]))),a[p]=b):R=s>B?R:s<B?(B=s,r):R+' '+r)('',0,0),R)

console.log(f([
  0, 3, 0, 0, 0,
  0, 2, 0, 2, 0,
  0, 0, 0, 3, 0
])(5));

console.log(f([
  3
])(1));

console.log(f([
  11, 11, 11,
  11, 11, 11,
  11, 11, 11
])(3));

console.log(f([
  7, 8, 1, -1, 0,
  4, 4, 6, -1, 7,
  3, 4, 4,  2, 8,
  2, 5, 2, -1, 2
])(5));