Compito

Dato un array di numeri interi non negativi a, determinare il numero minimo di salti a destra necessari per saltare "all'esterno" dell'array, iniziando dalla posizione 0 o restituendo zero / null se non è possibile farlo.

Un salto dall'indice iè definito come un aumento dell'indice dell'array al massimo a[i].

Un salto all'esterno è un salto in cui l'indice risultante dal salto iè fuori limite per l'array, quindi per l'indicizzazione basata su 1 i>length(a)e per l'indicizzazione basata su 0 i>=length(a).

Esempio 1

Considera 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

Il percorso più breve "saltando" per uscire dai limiti ha una lunghezza 2:

Potremmo saltare da 0->2->4->outsidecui ha lunghezza 3ma 0->4->outsideha lunghezza 2quindi torniamo 2.

Esempio 2

Supponiamo che 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

In questo caso, è impossibile saltare fuori dall'array, quindi dovremmo restituire uno zero / null o qualsiasi valore non deterministico come ∞.

Esempio 3

Supponiamo che Array=[4]:

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

Possiamo saltare direttamente dall'indice 0 all'esterno dell'array, con un solo salto, quindi torniamo 1.

Modificare:

A causa di più domande sul valore di ritorno: il reso ∞è totalmente valido, se non c'è possibilità di scappare. Perché, se esiste una possibilità, possiamo definire quel numero.

Questo è code-golf , quindi vince il codice più corto in byte!

Buccia , 9 byte

Γö→▼Mo₀↓ŀ

Restituisce Infquando non esiste alcuna soluzione. Provalo online!

Spiegazione

I valori di ritorno predefiniti di Husk sono utili qui.

Γö→▼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

Se l'elenco di input è vuoto, Γnon è possibile decostruirlo, quindi restituisce il valore intero predefinito, 0. Se il primo elemento è 0, il risultato di Mo₀↓ŀè un elenco vuoto, in cui ▼restituisce infinito.

Haskell , 70 58 byte

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

Provalo online!

EDIT: -12 byte grazie a @Esolanging Fruit e all'OP per aver deciso di consentire l'infinito!

Restituisce Infinityquando non esiste una soluzione che la rende molto più semplice. Dal momento che possiamo solo andare avanti, fguarda in testa alla lista e lascia cadere gli 1<=k<=xelementi dalla lista e ricorre. Quindi aggiungiamo solo 1 a ciascuna soluzione trovata per le chiamate ricorsive e prendiamo il minimo. Se la testa è 0 il risultato sarà infinito (poiché non possiamo muoverci non c'è soluzione). Poiché 1+Infinity==Infinityquesto risultato verrà riportato ai chiamanti. Se l'elenco è vuoto significa che abbiamo lasciato l'array, quindi restituiamo un costo pari a 0.

Python 2 , 124 byte

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

Provalo online!

-11 byte grazie a Mr. Xcoder
-12 byte grazie a Mr. Xcoder e Rod

APL (Dyalog Classic) ngn / apl , 18 byte

EDIT: passato alla mia implementazione di APL perché Dyalog non supporta gli infiniti e l'autore della sfida non consente ai numeri finiti di agire come "null"

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

Provalo online! provalo nella pagina demo di ngn / apl

ritorna per nessuna soluzione⌊/⍬ ∞

Haskell , 45 byte

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

Provalo online!

Emette Infinityquando impossibile. L'argomento ausiliario di sinistra per %tracciare quanti più spazi possiamo spostare nel nostro attuale hop.

Perl 5 , 56 53 byte

Include +1pera

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

Solo il codice:

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

Provalo online!

Perl 5 , 80 byte

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

Provalo online!

Gelatina , 32 byte

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

Provalo online!

È troppo lungo ...

Gelatina , 19 18 byte

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

Provalo online!

Spiegazione

<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 byte

(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])}}

Provalo online!

Esegue una prima ricerca della gamma per trovare il percorso più breve.

C (gcc) , 80 byte

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;}

Provalo online!

Julia 0.6 , 79 byte

Restituisce il numero di salti o Infse non puoi scappare. Guarda ricorsivamente il primo elemento e ritorna Info 1dipende da se riesci a scappare, altrimenti aggiungi 1alla soluzione più breve per le matrici troncate che rappresentano ciascun salto valido. Il flusso di controllo è fatto con due dichiarazioni ternarie come 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)

Provalo online!

C # (.NET Core) , 97 byte

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;}

Provalo online!

Restituisce 0 se non è stato trovato alcun percorso.

Spiegazione

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 byte

^{-10 grazie a @ user202729
-1 grazie a @JonathanFrech}

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

Provalo online! Restituisce infinito per un valore nullo.