Görev

Negatif olmayan bir tamsayı dizisi verildiğinde, dizinin a"dışına" atlamak, 0 konumundan başlayarak veya mümkün değilse sıfır / null döndürmek için gereken minimum sağa atlama sayısını belirleyin.

Dizinden atlama , idizi dizininde en fazla artış olarak tanımlanır a[i].

Bir sıçrama dış atlama kaynaklanan göstergesi bir atlama iyani 1 tabanlı bir dizin için, dışı sınırları dizisi için i>length(a), ve 0 tabanlı dizin için i>=length(a).

örnek 1

Şunları düşünün 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

Sınırların dışına çıkmak için "zıplayarak" en kısa yolun uzunluğu vardır 2:

Biz atlama olabilir 0->2->4->outsidehangi uzunluğa sahiptir 3fakat 0->4->outsideuzunluğa sahiptir 2dönmek böylece 2.

ÖRNEK 2

Varsayalım 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

Bu durumda, dizinin dışına atlamak imkansızdır, bu nedenle sıfır / null veya herhangi bir deterministik olmayan değer döndürmeliyiz ∞.

ÖRNEK 3

Varsayalım Array=[4]:

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

Dizinin dışından 0 dizininden doğrudan tek bir atlama ile atlayabiliriz, bu yüzden geri döneriz 1 .

Düzenle:

Dönüş değeri hakkında birden fazla soru nedeniyle: İade ∞ Kaçış şansı yoksa tamamen geçerlidir. Çünkü bir şans varsa, o sayıyı tanımlayabiliriz.

Bu kod golf , bu yüzden bayt içindeki en kısa kod kazanır!

Kabuk , 9 bayt

Γö→▼Mo₀↓ŀ

InfÇözüm olmadığında geri döner. Çevrimiçi deneyin!

açıklama

Husk'un varsayılan dönüş değerleri burada işe yarar.

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

Giriş listesi boşsa, Γyapıyı yapılandıramaz, bu nedenle varsayılan tamsayı 0 değerini döndürür. İlk öğe 0 ise, bunun sonucu, sonsuzluğu döndüren Mo₀↓ŀboş bir listedir ▼.

Haskell , 70 58 bayt

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

Çevrimiçi deneyin!

DÜZENLEME: @Esolanging Fruit ve sonsuzluğa izin vermeye karar verdikleri OP sayesinde -12 bayt!

InfinityÇözümü çok daha basit hale getiren bir çözüm olmadığında geri döner. Sadece ileriye doğru hareket edebildiğimiz için fsadece listenin başına bakar ve 1<=k<=xöğeleri listeden bırakır ve tekrarlar. Daha sonra, her bir çözüme, özyinelemeli çağrıları bulduğumuz 1'i ekliyoruz ve minimumunu alıyoruz. Kafa 0 ise sonuç sonsuz olacaktır (hareket edemediğimiz için çözüm yoktur). Yana 1+Infinity==Infinitybu sonuç arayanlar geri taşınacaktır. Liste boşsa, diziden ayrıldığımız anlamına gelir, bu nedenle 0 maliyeti döndürürüz.

Python 2 , 124 bayt

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

Çevrimiçi deneyin!

Bay Xcoder sayesinde -11 bayt
Bay Xcoder ve Rod sayesinde -12 bayt

APL (Dyalog Classic) ngn / apl , 18 bayt

DÜZENLEME: Dyalog sonsuzlukları desteklemediğinden ve meydan okuma yazarı sonlu sayıların "boş" olarak davranmasına izin vermediği için kendi APL uygulamama geçtim

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

Çevrimiçi deneyin! ngn / apl demo sayfasında deneyin

çözüm için geri dönüş yok⌊/⍬ ∞

Haskell , 45 bayt

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

Çevrimiçi deneyin!

Infinityİmkansız olduğunda çıktılar . %Mevcut atlamada kaç boşluk daha hareket edebileceğimizi izleyen yardımcı sol argüman .

Perl 5 , 56 53 bayt

içerir +1içina

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

Sadece kod:

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

Çevrimiçi deneyin!

Perl 5 , 80 bayt

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

Çevrimiçi deneyin!

Jöle , 32 bayt

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

Çevrimiçi deneyin!

Bu çok uzun ...

Jöle , 19 18 bayt

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

Çevrimiçi deneyin!

açıklama

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

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

Çevrimiçi deneyin!

En kısa yolu bulmak için dizinin ilk genişliğini arar.

C (gcc) , 80 bayt

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

Çevrimiçi deneyin!

Julia 0.6 , 79 bayt

Atlama sayısını veya Infkaçamıyorsanız döndürür . İlk öğeye tekrar tekrar bakın ve geri dönün Infya 1da kaçabileceğinize bağlı olarak, aksi takdirde 1her geçerli atlamayı temsil eden kesik diziler için en kısa çözüme ekleyin . Kontrol akışı iki üçlü ifadeyle yapılır 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)

Çevrimiçi deneyin!

C # (.NET Core) , 97 bayt

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

Çevrimiçi deneyin!

Hiçbir yol bulunmazsa 0 değerini döndürür.

açıklama

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 bayt

^{@ User202729 sayesinde -10 teşekkürler @JonathanFrech
sayesinde -1}

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

Çevrimiçi deneyin! Boş bir değer için sonsuzluğu döndürür.