Ice Golf Challenge

24

Цель этой задачи - написать программу или функцию, которая возвращает наименьшее количество ударов, необходимых для прохождения данного курса.

вход

  • Макет курса может быть принят любым подходящим способом и форматом, который вы предпочитаете. (чтение из консоли, передача в качестве входного параметра, чтение из файла или любого другого, многострочная строка, строковый массив, двумерный символьный / байтовый массив).
  • Начальная позиция мяча и лунки также может быть передана в качестве входных данных, ее не нужно анализировать с входных данных. В тест-кейсах они включены в курс, чтобы убедиться, что нет никакой путаницы относительно фактической позиции.
  • Вы можете переназначить входные символы во что-то другое, если они по-прежнему распознаются как отдельные символы (например, печатаемые символы ASCII).

Выход

  • Программа должна возвращать наименьший возможный балл (наименьшее количество ударов, необходимых для достижения дыры) для любого курса, переданного в качестве ввода в разумном формате (строка, целое число, число с плавающей запятой или хайку, описывающие результат)
  • Если курс невозможно пройти , вернитесь -1(или любое другое ложное значение по вашему выбору, которое не будет возвращено для пройденного курса).

Пример:

В этом примере позиции обозначены как 0, X / Y, слева направо, сверху вниз, но вы можете использовать любой формат, который вам нравится, так как результат в любом случае полностью независим от формата.

Входные данные:

###########
#     ....# 
#      ...# 
#  ~    . # 
# ~~~   . # 
# ~~~~    # 
# ~~~~    # 
# ~~~~  o # 
# ~~~~    # 
#@~~~~    # 
###########

Ball (Start-Position): 1/9
Hole (End-Position):   8/7

Выход:

8

Пример курса

Правила и поля

Курс может состоять из следующих полей:

  • '@' Ball - начало курса
  • 'o' Дыра - цель курса
  • '#' Стена - мяч остановится, когда ударится о стену
  • '~' Вода - нужно избегать
  • '.' Песок - мяч немедленно остановится на песке
  • ' ' Лед - мяч будет продолжать скользить, пока не достигнет чего-то

Основные правила и ограничения игры:

  • Мяч не может двигаться по диагонали, только влево, вправо, вверх и вниз.
  • Мяч не остановится перед водой, только перед стенами, на песке и в отверстии.
    • Выстрелы в воду недопустимы / невозможны
    • Мяч останется в лунке, а не пропустит его, как на льду
  • Курс всегда прямоугольный.
  • Курс всегда ограничен водой или стенами (проверка границ не требуется).
  • Всегда есть ровно один мяч и одна лунка.
  • Не все курсы можно обыграть.
  • Может быть несколько путей, которые приводят к одному и тому же (наименьшему) количеству баллов.

Лазейки и условия победы

  • Стандартные лазейки запрещены
  • Программы должны прекратить
  • Вы не можете придумать дополнительные правила (удары по мячу так сильно, что он пропускает воду, отскакивает от стены, прыгает по песчаным полям, изгибается по углам и т. Д.)
  • Это , поэтому выигрывает решение с наименьшим количеством символов.
  • Решения должны быть в состоянии обработать все предоставленные тестовые примеры, если это невозможно из-за ограничений используемого языка, укажите это в своем ответе.

Контрольные примеры

Курс № 1 (2 удара)

####
# @#
#o~#
####

Курс № 2 (невозможно)

#####
#@  #
# o #
#   #
#####

Курс № 3 (3 удара)

~~~
~@~
~.~
~ ~
~ ~
~ ~
~ ~
~.~
~o~
~~~

Курс № 4 (2 удара)

#########
#~~~~~~~#
#~~~@~~~#
##  .  ##
#~ ~ ~ ~#
#~. o .~#
#~~~ ~~~#
#~~~~~~~#
#########

Курс № 5 (невозможно)

~~~~~~~
~...  ~
~.@.~.~
~...  ~
~ ~ ~.~
~ . .o~
~~~~~~~

Больше тестовых случаев:

https://pastebin.com/Azdyym00

Манфред Радлвиммер
источник
1
Связанный: Один , Два .
AdmBorkBork
Если мы используем двумерный байтовый массив в качестве входных данных, разрешено ли нам использовать пользовательское отображение для символов?
Арно
@Arnauld Не уверен, что обычный консенсус в отношении этого здесь, но я бы сказал, что все в порядке, пока ввод по-прежнему узнаваем. Я обновил раздел ввода .
Манфред Радлвиммер
Если ввести пункт назначения напрямую, можем ли мы требовать, чтобы местом назначения был символ «песочный»?
l4m2
@ l4m2 Конечно, это будет соответствовать всем другим правилам.
Манфред Радлвиммер

Ответы:

6

JavaScript (ES6), 174 байта

Принимает входные данные в синтаксисе керлинга карри ([x, y])(a), где x и y - это 0-индексированные координаты начальной позиции, а a [] - матрица целых чисел, где 0= ice, 1= wall, 2= sand, 3= hole и 4= water

Возвращает, 0если нет решения.

p=>a=>(r=F=([x,y],n,R=a[y],c=R[x])=>R[c&(R[x]=4)|n>=r||[-1,0,1,2].map(d=>(g=_=>(k=a[v=Y,Y+=d%2][h=X,X+=~-d%2])||g())(X=x,Y=y)>3?0:k>2?r=-~n:F(k>1?[X,Y]:[h,v],-~n)),x]=c)(p)|r

Попробуйте онлайн!

комментарии

p => a => (                       // given the starting position p[] and the matrix a[]
  r =                             // r = best result, initialized to a non-numeric value
  F = (                           // F = recursive function taking:
    [x, y],                       //   (x, y) = current position
    n,                            //   n = number of shots, initially undefined
    R = a[y],                     //   R = current row in the matrix
    c = R[x]                      //   c = value of the current cell
  ) =>                            //
    R[                            // this will update R[x] once the inner code is executed
      c & (R[x] = 4) |            //   set the current cell to 4 (water); abort if it was
      n >= r ||                   //   already set to 4 or n is greater than or equal to r
      [-1, 0, 1, 2].map(d =>      //   otherwise, for each direction d:
        (g = _ => (               //     g = recursive function performing the shot by
          k = a[                  //         saving a backup (h, v) of (X, Y)
            v = Y, Y += d % 2][   //         and updating (X, Y) until we reach a cell
            h = X, X += ~-d % 2]) //         whose value k is not 0 (ice)
          || g()                  //   
        )(X = x, Y = y)           //     initial call to g() with (X, Y) = (x, y)
        > 3 ?                     //     if k = 4 (water -> fail):
          0                       //       abort immediately
        :                         //     else:
          k > 2 ?                 //       if k = 3 (hole -> success):
            r = -~n               //         set r to n + 1
          :                       //       else:
            F(                    //         do a recursive call to F():
              k > 1 ?             //           if k = 2 (sand):
                [X, Y]            //             start the next shots from the last cell
              :                   //           else (wall):
                [h, v],           //             start from the last ice cell
              -~n                 //           increment the number of shots
            )                     //         end of recursive call
      ), x                        //   end of map(); x = actual index used to access R[]
    ] = c                         // restore the value of the current cell to c
)(p) | r                          // initial call to F() at the starting position; return r
Arnauld
источник
5

Python 3 , 273 байта

def p(g,c,d,k=0):
	while 1>k:c+=d;k=g.get(c,9)
	return-(k==2)or c-d*(k==3)
def f(g):
	c={q for q in g if g.get(q,9)>4};I=0;s=[c]
	while all(g.get(q,9)-4for q in c):
		c={k for k in{p(g,k,1j**q)for k in c for q in range(4)}if-~k}
		if c in s:return-1
		s+=[c];I+=1
	return I

Попробуйте онлайн!

-41 байт благодаря ovs
-1 байт благодаря Джонатану Фреху

HyperNeutrino
источник
Не if k+1может быть if-~k?
Джонатан Фрех
@JonathanFrech да, спасибо
HyperNeutrino
2

C #, 461 418 байт

Это просто неконкурентная эталонная реализация, чтобы (надеюсь) возродить эту проблему:

Гольф от Кевина Круйссена

int P(string[]C){int w=C[0].Length,i=0,l=c.Length;var c=string.Join("",C);var h=new int[l];for(var n=new List<int>();i<l;n.Add(i++))h[i]=c[i]!='@'?int.MaxValue:0;for(i=1;;i++){var t=n;n=new List<int>();foreach(int x in t){foreach(int d in new[]{-1,1,-w,w}){for(int j=x+d;c[j]==' ';j+=d);if(c[j]=='#'&h[j-d]>s){h[j-d]=s;n.Add(j-d);}if(c[j]=='.'&h[j]>s){h[j]=s;n.Add(j);}if(c[j]=='o')return s;}}if(n.Count<1)return -1;}}

Ungolfed

int IceGolf(string[] course)
{
    // Width of the course
    int w = course[0].Length;

    // Course as single string
    var c = string.Join("", course);

    // Array of hits per field
    var hits = new int[c.Length];

    // Fields to continue from
    var nextRound = new List<int>();

    // Initialize hits
    for (int i = 0; i < hits.Length; i++)
    {
        if (c[i] != '@')
            // All fields start with a high value
            hits[i] = Int32.MaxValue;
        else
        {
            // Puck field starts with 0
            hits[i] = 0;
            nextRound.Add(i);
        }
    }

    for (int s = 1; ; s++)
    {
        // clear the fields that will be used in the next iteration
        var thisRound = nextRound;
        nextRound = new List<int>();

        foreach (int i in thisRound)
        {
            // test all 4 directions
            foreach (int d in new[] { -1, 1, -w, w })
            {
                int j = i+d;

                // ICE - slide along
                while (c[j] == ' ')
                    j += d;

                // WALL - stop on previous field
                if (c[j] == '#' && hits[j-d] > s)
                {
                    hits[j-d] = s;
                    nextRound.Add(j-d);
                }

                // SAND - stop
                if (c[j] == '.' && hits[j] > s)
                {
                    hits[j] = s;
                    nextRound.Add(j);
                }

                // HOLE return strikes
                if (c[j] == 'o')
                    return s;
            }
        }

        // No possible path found
        if (nextRound.Count == 0)
            return -1;
    }
}

Попробуйте онлайн

Манфред Радлвиммер
источник
1
Гольф немного больше: int P(string[]C){int w=C[0].Length,i=0,l=c.Length;var c=string.Join("",C);var h=new int[l];for(var n=new List<int>();i<l;n.Add(i++))h[i]=c[i]!='@'?int.MaxValue:0;for(i=1;;i++){var t=n;n=new List<int>();foreach(int x in t){foreach(int d in new[]{-1,1,-w,w}){for(int j=x+d;c[j]==' ';j+=d);if(c[j]=='#'&h[j-d]>s){h[j-d]=s;n.Add(j-d);}if(c[j]=='.'&h[j]>s){h[j]=s;n.Add(j);}if(c[j]=='o')return s;}}if(n.Count<1)return -1;}}(418 байт). Кроме того, не могли бы вы добавить TIO-ссылку с тестовым кодом?
Кевин Круйссен
Спасибо за ссылку TIO. Код, который я предоставил выше, не работал, поэтому я исправил его и добавил в игру еще три байта. Попробуйте онлайн 415 байт . (Вам придется снова добавить свой огромный тестовый пример из текущего TIO. Я не смог вставить ссылку в этом комментарии, потому что ссылка была слишком большой в этом тестовом примере ...; p)
Кевин Круйссен,