Meydan okuma

Bir tamsayı girdisi verildiğinde, kendi içinde girişi içeren ilk Fibonacci numarasını, bu Fibonacci sayısının indeksiyle birlikte (0 veya 1'den başlayan indeksler size döner, ancak lütfen cevabınızda hangisini belirtiniz). Örneğin, 12 girişi verilirse, program 26: 121393( 12 1393) sayısı içinde 12 bulunduğu ve Fibonacci sayılarının 26 indeksinde olduğu için geri dönecektir .

Örnekler

Girdi verildiğinde:

45

Programınızın çıktısı:

33: 3524578

Giriş:

72

Çıktı:

54: 86267571272

Giriş:

0

Çıktı:

0: 0

Giriş:

144

Çıktı:

12: 144

puanlama

Bu kod golf , bu yüzden her dilde en kısa cevap kazanır.

Jöle , 10 bayt

0ÆḞ©w¥1#;®

Çevrimiçi deneyin!

Nasıl çalışır

0ÆḞ©w¥1#;®  Main link. Argument: n

0           Set the return value to 0.
       #    Call the second link to the left with arguments k = 0, 1, 2, ... until
      1     one match has been found.
     ¥        Combine the two links to the left into a dyadich chain.
 ÆḞ             Compute the k-th Fibonacci number...
   ©              and copy it to the register.
    w           Yield 1 if n occurs inside the Fibonacci number, 0 otherwise.
         ®  Yield the value stored in the register.
        ;   Concatenate the index and the Fibonacci number.

Python 2 , 56 bayt

f=lambda n,i=0,a=0,b=1:`n`in`a`and(i,a)or f(n,i+1,b,a+b)

Çevrimiçi deneyin!

Perl 6 , 30 bayt

{first :kv,/$_/,(0,1,*+*...*)}

Çevrimiçi deneyin!

firstbir testi geçen bir dizinin ilk öğesini döndüren bir işlevdir ve ona :kvhem anahtarı (dizin) hem de eşleşen değeri döndürmesini söyleyen bir zarf alır .

Toplu, 104 bayt

@set/an=x=0,y=1
:l
@call set t=%%x:%1=%%
@if "%t%"=="%x%" set/an+=1,x+=y,y=x-y&goto l
@echo %n%: %x%

Batch'ın n=0..45tamsayı aritmetiğinin sınırlı aralığı nedeniyle çalışır . Açıklama: Toplu işte yerleşik bir eşleşme testi yoktur, ancak değişmez dizeleri diğer değişmez dizelerle değiştirebilen bir işleç vardır, bu nedenle örneğin boş değilse ancak içermiyorsa if "%s:l=%"=="%s%"doğrudur . Bu durumda, kullanımı , değiştirme operatörünün yerine (girdi) ikame etmek için bir hiledir , ancak kontrol akış ifadeleri üzerinde çalışmaz, bu nedenle bir ara geçici atama gereklidir.%s%lcall%1call

Jöle , 15 bayt

³DẇÆḞ¬
0‘Ç¿µ,ÆḞ

Çevrimiçi deneyin!

Javascript ES6, 68 karakter

n=>eval('for(q=x=0,y=1;!`${x}`.match(n);++q)[x,y]=[y,x+y];q+": "+x')

Ölçek:

f=n=>eval('for(q=x=0,y=1;!`${x}`.match(n);++q)[x,y]=[y,x+y];q+": "+x')
console.log([45,72,0,144].map(f).join`
`)

Python 3, 76 bayt

f=lambda n,l=[1,0]:str(n)in str(l[1])and(len(l)-2,l[1])or f(n,[l[0]+l[1]]+l)

Emoji kodu , 133 bayt

🐖🔢🍇🍮a 0🍮b 1🍮i 0🔁☁️🔍🔡a 10🔡🐕10🍇🍮b➕a b🍮a➖b a🍮i➕1i🍉😀🔡i 10😀🔡a 10🍉

Çevrimiçi deneyin!

Dyalog APL, 39 bayt

{⍺←0⋄∨/(⍕⍵)⍷⍕x←1∧+∘÷/0,⍺/1:⍺,x⋄(1+⍺)∇⍵}

Kuyruk özyineleme kullanma. 72 denemeyin, makinenizi kıracak çünkü her çağrıda fibonacci yeniden hesaplıyor.

Çevrimiçi deneyin!

Mathematica, 119 bayt

1 endeksli

(T=ToString;If[(h=#)==0,"0:0",a=#&@@Select[k=T/@(Array[Fibonacci,9#]),StringContainsQ[#,T@h]&];Min@Position[k,a]":"a])&

Çevrimiçi deneyin!

Aslında 13 bayt

╗1⌠F$╜@c⌡╓i;F

Çevrimiçi deneyin!

Açıklama:

╗1⌠F$╜@c⌡╓i;F
╗              save input in register 0
 1⌠F$╜@c⌡╓     smallest non-negative integer n where the following function returns truthy:
   F$            nth Fibonacci number, stringified
     ╜@c         count occurrences of input
          i;F  flatten the list, duplicate the index, and push the Fibonacci number at that index

R, 65 bayt

f=function(x,n=1,a=1,b=0)`if`(grepl(x,b),c(b,n-1),f(x,n+1,a+b,a))

Fibnums oluşturmak için standart özyineleme, ancak regex ile eşleştiğinde sona ermek yerine sona nerer . Bu aslında şaşırtıcı derecede iyi çalışıyor. Ben regex sayısal olarak kullanmanın onları dizeleri dönüştürmek güçlük gerektireceğini varsaydı, ancak bu gerekli görünmüyor :)bx

Bu aynı zamanda kontrol ederek, 1 adım Özyinelemeyi aşmasına sahiptir byerine ave sonra substracting 1gelen n. Bu, f(0)düzgün çalıştığından emin olmak içindir.

Bu 1001, maksint nedeniyle giriş aşıldığında çoğu değer için başarısız olur . Değiştirirsek ave bbigints için, bu daha yüksek girişler için çalışır (akım testi şu şekildedir x = 11451)

f=function(x,n=1,a=gmp::as.bigz(1),b=gmp::as.bigz(0))`if`(grepl(x,b),c(b,n-1),f(x,n+1,a+b,a))

JavaScript ES6, 79 78 75 bayt

Adım Hen ile -1 bayt

-3 bayt / Neil

i=>eval('d=a=b=1;while(!~(a+"").indexOf(i)){c=b;b=a+b;a=c;‌​d++};d+": "+a')

C # (.NET Core) , 99 bayt

n=>{int a=0,b=1,c,d=0;for(;b.ToString().IndexOf(n.ToString())<0;c=a,a=b,b+=c,d++);return d+": "+b;}

Çevrimiçi deneyin!

Girdiyi tamsayı olarak alır, çıktı ile bir dize döndürür.

Haskell , 84 bayt

import Data.List
f=0:scanl(+)1f
g n=filter(isInfixOf(show n).show.snd)(zip[0..]f)!!0

Çevrimiçi deneyin!

PHP, 80 bayt

<?php for($a=1,$b=$n=0;strpos($a=-$a+$b=$a+$b,"$argv[1]")<-1;$n++);echo"$n: $a";

Betik oldukça basittir, dizinin şu anki ve sonraki terimlerini $ a ve $ b'de saklar. 0'ın 0 terimine izin vermek için, başlangıçta sırasıyla 1. terim (1) ve 0 terim (0) için değerler atanır.

Her iki değer de tek bir ifadede yeniden hesaplanır, bu bir birinde iki ödevdir; etkili bir şekilde:

$b = $a + $b; // The next term is the sum of the two previous terms
$a = $b - $a; // The current term is now recalculated from the next and the previous

Girdi değeri terimin başlangıcıyla eşleşirse, strpos () işlevi 0 döndürür (bu falseydir ve yanlış negatif verir), ancak PHP'nin Wonderphul Dünyasında false == 0doğru ve false < 0yanlış olmasına rağmen false < -1doğrudur! Böylece, bu karşılaştırmayı kullanmak beş bayt tasarruf sağlar !==false.

Japt , 17 14 bayt

@JustinMariner sayesinde 3 bayt kaydedildi

_ŬøU}a@[XMgX]

Çevrimiçi deneyin!

açıklama

_ŬøU}a@[XMgX]      Implicit: U = input integer
      a@            For each integer X in [0, 1, 2, ...]:
        [XMgX]        take [X, Fibonacci(X)].
_    }a             Return the first pair where
 Å                    all but the first item
  ¬                   joined on the empty string (simply returns Fibonacci(X) as a string)
   øU                 contains U.
                    Implicit: output result of last expression

PHP , 163141 bayt

<?php $x=fgets(STDIN);$b=[0,1];if($x<1)$b=[0];for(;($c=count($b)-1)&&strpos($b[$c],$x)===false;){$b[]=$b[$c]+$b[$c-1];}die($c.': '.$b[$c]);?>

Çevrimiçi deneyin!

Fib dizisinin kullanımı $b[0] = 0;ve $b[1] = 1;başlangıcı için

Perl 5 , 67 + 1 (-p) = 68 bayt

@f=(0,1);push@f,$f[-1]+$f[-2]while($f[-2]!~/$_/);$_=--$#f." $f[-1]"

Çevrimiçi deneyin!

PHP , 93 bayt

for($a[0]=$a[1]++;!strpos(" $a[$i]","$argv[1]");$a[$i+2]=$a[$i+1]+$a[$i++]);echo"$i: $a[$i]";

Fibonacci dizisi boyunca basit döngü. Giriş numaramızın kontrolü şu şekilde yapılır strpos(" $a[$i]","$argv[1]"); strposdize başlangıcında 'iğne' bulunursa , fazladan boşluk false-y döndürecektir. Giriş bulunursa sonlandırır ve gerekli dizeyi yankılarız.

Çevrimiçi deneyin!

Ortak Lisp, 105 bayt

(lambda(x)(do((a 0 b)(b 1(+ a b))(i 0(1+ i)))((search(#1=format()"~a"x)(#1#()"~a"a))(#1#()"~a: ~a"i a))))

Çevrimiçi deneyin!