задача

Дан массив неотрицательных целых чисел a определите минимальное количество прыжков вправо, необходимое для перехода «вне» массива, начиная с позиции 0 или возврата нуля / нуля, если это невозможно сделать.

Скачок из индекса iопределяется как увеличение индекса массива не более чем на a[i].

Прыжок снаружи скачок , где индекс в результате скачки iнаходится вне границ для массива, поэтому для индексации 1 на основе i>length(a), а также для индексации 0 на основе, i>=length(a).

Пример 1

Рассмотрим Array = [4,0,2,0,2,0]:

Array[0] = 4 -> You can jump 4 field
Array[1] = 0 -> You can jump 0 field
Array[2] = 2 -> You can jump 2 field
Array[3] = 0 -> You can jump 0 field
Array[4] = 2 -> You can jump 2 field
Array[5] = 0 -> You can jump 0 field

Кратчайший путь путем «прыжка» для выхода за пределы имеет длину 2:

Мы можем прыгать, у 0->2->4->outsideкоторого есть длина, 3но 0->4->outsideесть длина, 2поэтому мы возвращаемся 2.

Пример 2

Предположим Array=[0,1,2,3,2,1]:

Array[0] = 0 -> You can jump 0 fields
Array[1] = 1 -> You can jump 1 field
Array[2] = 2 -> You can jump 2 field
Array[3] = 3 -> You can jump 3 field
Array[4] = 2 -> You can jump 2 field
Array[5] = 1 -> You can jump 1 field

В этом случае невозможно выйти за пределы массива, поэтому мы должны вернуть ноль / ноль или любое недетерминированное значение, подобное ∞.

Пример 3

Предположим Array=[4]:

Array[0] = 4 -> You can jump 4 field

Мы можем напрямую перейти с индекса 0 за пределы массива всего одним прыжком, поэтому мы возвращаемся 1.

Редактировать:

Из-за нескольких вопросов о возвращаемом значении: Возврат ∞полностью действителен, если нет возможности сбежать. Потому что, если есть шанс, мы можем определить это число.

Это код-гольф , поэтому выигрывает самый короткий код в байтах!

Шелуха , 9 байт

Γö→▼Mo₀↓ŀ

Возвращает, Infкогда решения не существует. Попробуйте онлайн!

объяснение

Возвращаемые значения Husk по умолчанию здесь пригодятся.

Γö→▼Mo₀↓ŀ  Implicit input: a list, say [2,3,1,1]
Γ          Deconstruct into head H = 2 and tail T = [3,1,1]
 ö         and feed them into this function:
        ŀ   Range from 0 to H-1: [0,1]
    Mo      For each element in range,
       ↓    drop that many element from T: [[3,1,1],[1,1]]
      ₀     and call this function recursively on the result: [1,2]
   ▼        Take minimum of the results: 2
  →         and increment: 3

Если входной список пуст, то Γне может его деконструировать, поэтому он возвращает целочисленное значение по умолчанию, 0. Если первый элемент равен 0, то результатом Mo₀↓ŀявляется пустой список, для которого ▼возвращается бесконечность.

Haskell , 70 58 байт

f[]=0
f(0:_)=1/0
f(x:s)=minimum[1+f(drop k$x:s)|k<-[1..x]]

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

РЕДАКТИРОВАТЬ: -12 байт благодаря @Esolanging Fruit и OP за решение разрешить бесконечность!

Возвращает, Infinityкогда нет решения, которое делает решение намного проще. Поскольку мы можем двигаться только вперед, fпросто смотрит на начало списка, удаляет 1<=k<=xэлементы из списка и повторяется. Затем мы просто добавляем 1 к каждому решению найденных рекурсивных вызовов и берем минимум. Если голова равна 0, результатом будет бесконечность (поскольку мы не можем двигаться, решения не существует). Так как 1+Infinity==Infinityэтот результат будет возвращен звонящим. Если список пуст, это означает, что мы оставили массив, поэтому мы возвращаем стоимость 0.

Python 2 , 124 байта

def f(a):
 i={0};l=len(a)
 for j in range(l):
	for q in{0}|i:
	 if q<l:i|=set(range(q-a[q],q-~a[q]))
	 if max(i)/l:return-~j

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

-11 байт благодаря мистеру Xcoder
-12 байт благодаря мистеру Xcoder и Роду

APL (Dyalog Classic) нгн / апл , 18 байт

РЕДАКТИРОВАТЬ: переключился на мою собственную реализацию APL, потому что Dyalog не поддерживает бесконечности, и автор задачи не позволяет конечным числам действовать как «ноль»

⊃⊃{⍵,⍨1+⌊/⍺↑⍵}/⎕,0

Попробуйте онлайн! попробуйте это на демонстрационной странице ngn / apl

возвращается без решения⌊/⍬ ∞

Haskell , 45 байт

(1%)
0%_=1/0
a%(h:t)=min(1+h%t)$(a-1)%t
_%_=0

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

Выходы Infinityкогда невозможно. Вспомогательный левый аргумент %отслеживает, сколько еще пробелов мы можем переместить в нашем текущем прыжке.

Perl 5 , 56 53 байта

Включает +1в себя дляa

perl -aE '1until-@F~~%v?say$n:$n++>map\@v{$_-$F[-$_]..$_},%v,0'  <<< "4 0 2 0 2 0"; echo

Просто код:

#!/usr/bin/perl -a
1until-@F~~%v?say$n:$n++>map\@v{$_-$F[-$_]..$_},%v,0

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

Perl 5 , 80 байт

sub f{$_[0]>=@_||1+((sort{$a?$b?$a-$b:-1:1}map f(@_[$_..$#_]),1..$_[0])[0]||-1)}

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

Желе , 32 байта

ṛ/ṆȧJ’Ṛ
Rḟ"ÇƤZ$$Tị$Œp+\€Ṁ<Li0ȧ@Ḣ

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

Это слишком долго ...

Желе , 19 18 байт

<LḢ
ḊßÐƤṁḢḟ0‘Ṃµ1Ç?

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

объяснение

<LḢ  Helper link. Input: array
<    Less than
 L   Length
  Ḣ  Head - Returns 0 if its possible to jump out, else 1

ḊßÐƤṁḢḟ0‘Ṃµ1Ç?  Main link. Input: array
            Ç   Call helper link
             ?  If 0
           1      Return 1
                Else
          µ       Monadic chain
Ḋ                   Dequeue
 ßÐƤ                Recurse on each suffix
     Ḣ              Head of input
    ṁ               Mold, take only that many values
      ḟ0            Filter 0
        ‘           Increment
         Ṃ          Minimum

JavaScript ES6 , 118 байт

(x,g=[[0,0]])=>{while(g.length){if((s=(t=g.shift())[0])>=x.length)return t[1];for(i=0;i++<x[s];)g.push([s+i,t[1]+1])}}

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

Выполняет поиск в массиве в ширину, чтобы найти кратчайший путь.

C (gcc) , 80 байтов

f(A,l,M,j,r)int*A;{M=~0;for(j=0;l>0&&j++<*A;)if(M<1|M>(r=f(A+j,l-j)))M=r;A=-~M;}

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

Юлия 0,6 , 79 байт

Возвращает количество прыжков или, Infесли вы не можете убежать. Рекурсивно посмотрите на первый элемент и либо вернитесь, Infлибо в 1зависимости от того, сможете ли вы убежать, в противном случае добавьте 1к кратчайшему решению для усеченных массивов, представляющих каждый допустимый переход. Поток управления осуществляется с помощью двух троичных операторов, таких как test1 ? ontrue1 : test2 ? ontrue2 : onfalse2.

f(a,n=endof(a))=a[1]<1?Inf:a[1]>=n?1:1+minimum(f(a[z:min(z+a[1],n)]) for z=2:n)

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

C # (.NET Core) , 97 байт

f=l=>{for(int c=l.Count,s=0,j=l[0];j>0;s=f(l.GetRange(j,c-j--)))if(s>0|j>=c)return s+1;return 0;}

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

Возвращает 0, если путь не найден.

объяснение

f = 
    l =>                                      //The list of integers
    {
        for (
            int c = l.Count,                  //The length of the list
                s = 0,                        //Helper to keep track of the steps of the recursion
                j = l[0];                     //The length of the jump, initialize with the first element of the list
                j > 0;                        //Loop while the jump length is not 0
                s = f(l.GetRange(j, c - j--)) //Recursive call of the function with a sub-list stating at the current jump length. 
                                              //Then decrement the jumplength. 
                                              //Returns the number of steps needed to jump out of the sup-list or 0 if no path was found. 
                                              //This is only executed after the first run of the loop body.
            )
        {
            if (j >= c |                      //Check if the current jump lengt gets you out of the list. 
                                              //If true return 1 (s is currently 0). OR
                s > 0 )                       //If the recursive call found a solution (s not 0) 
                                              //return the number of steps from the recursive call + 1
                return s + 1;
        }
        return 0;                             //If the jump length was 0 return 0 
                                              //to indicate that no path was found from the current sub-list.
    }

Python 2 , 83 73 72 байта

^{-10 спасибо @ user202729
-1 благодаря @JonathanFrech}

lambda a:a and(a[0]and-~min(f(a[k+1:])for k in range(a[0]))or 1e999)or 0

Попробуйте онлайн! Возвращает бесконечность для нулевого значения.