El reto

Dada una entrada entera, devuelve el primer número de Fibonacci que contiene la entrada dentro de sí mismo junto con el índice de ese número de Fibonacci (índices que comienzan en 0 o 1, hasta usted, pero mencione cuál en su respuesta). Por ejemplo, si se le da la entrada de 12, el programa volvería 26: 121393ya que 12 se encuentra dentro del número ( 12 1393) y está en el índice 26 de los números de Fibonacci.

Ejemplos

Dada la entrada:

45

Su programa debería generar:

33: 3524578

Entrada:

72

Salida:

54: 86267571272

Entrada:

0

Salida:

0: 0

Entrada:

144

Salida:

12: 144

Puntuación

Este es el código de golf , por lo que gana la respuesta más corta en cada idioma.

Jalea , 10 bytes

0ÆḞ©w¥1#;®

Pruébalo en línea!

Cómo funciona

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 bytes

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

Pruébalo en línea!

Perl 6 , 30 bytes

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

Pruébalo en línea!

firstes una función que devuelve el primer elemento de una secuencia que pasa una prueba, y convenientemente toma un :kvadverbio que le dice que devuelva tanto la clave (índice) como el valor coincidente.

Lote, 104 bytes

@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%

Funciona n=0..45debido al rango limitado de la aritmética de enteros de Batch. Explicación: Batch no tiene una prueba de coincidencia incorporada, pero tiene un operador que puede reemplazar cadenas literales con otras cadenas literales, por lo que, por ejemplo, if "%s:l=%"=="%s%"es verdadero si %s%no está vacío pero no contiene l. El uso de calles entonces un truco para sustituir %1(la entrada) en el operador de reemplazo, sin embargo call, no funciona en las declaraciones de flujo de control, por lo que es necesaria una asignación temporal intermedia.

Jalea , 15 bytes

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

Pruébalo en línea!

Javascript ES6, 68 caracteres

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

Prueba:

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 bytes

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)

Emojicode , 133 bytes

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

Pruébalo en línea!

Dyalog APL, 39 bytes

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

Usando la recursión de la cola. No intente 72, romperá su máquina porque está recalculando fibonacci en todas las llamadas.

Pruébalo en línea!

Mathematica, 119 bytes

1 indexado

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

Pruébalo en línea!

En realidad , 13 bytes

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

Pruébalo en línea!

Explicación:

╗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 bytes

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

La recursión estándar para generar Fibnums, pero en lugar de terminar en base a n, termina cuando bcoincide con la expresión regular x. Esto realmente funciona sorprendentemente bien. Supuse que usar expresiones regulares con números requeriría mucha molestia al convertirlos en cadenas, pero eso no parece ser necesario :)

Esto también tiene que sobrepasar la recursión por 1 paso, mediante la comprobación en blugar de ay después restando 1de n. Esto es para asegurarse de que f(0)funcione correctamente.

Esto falla para la mayoría de los valores cuando la entrada excede 1001, debido a maxint. Si reemplazamos ay bpara bigints, esto funciona para entradas más altas (las pruebas actuales están en 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 bytes

-1 byte por paso gallina

-3 bytes por 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 bytes

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

Pruébalo en línea!

Toma la entrada como un entero, devuelve una cadena con la salida.

Haskell , 84 bytes

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

Pruébalo en línea!

PHP, 80 bytes

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

El guión es bastante sencillo, simplemente almacena los términos actuales y siguientes de la secuencia en $ a y $ b en todo momento. Para permitir el término 0 de 0, a $ a y $ b se les asignan inicialmente los valores para el término -1 (1) y el término 0 (0) respectivamente.

Ambos valores se recalculan en una sola expresión, que son dos asignaciones en una; efectivamente:

$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

Si el valor de entrada coincide con el comienzo del término, la función strpos () devolverá 0 (que es falsey y daría un falso negativo), pero en el mundo Wonderphul de PHP, aunque false == 0es verdadero y false < 0es falso, ¡ false < -1es verdadero! Y así, el uso de esta comparación ahorra cinco bytes en comparación con !==false.

Japt , 17 14 bytes

Guardado 3 bytes gracias a @JustinMariner

_ŬøU}a@[XMgX]

Pruébalo en línea!

Explicación

_Ŭø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 , 163 141 bytes

<?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]);?>

Pruébalo en línea!

Usos $b[0] = 0;y $b[1] = 1;para el inicio de la secuencia fib

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

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

Pruébalo en línea!

PHP , 93 bytes

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

Bucle simple a través de la secuencia de Fibonacci. La verificación de nuestro número de entrada se realiza en strpos(" $a[$i]","$argv[1]"); el espacio extra se debe a strposque devolverá falso-y si la 'aguja' se encuentra al comienzo de la cadena. Terminamos si se encuentra la entrada y hacemos eco de la cadena requerida.

Pruébalo en línea!

Lisp común, 105 bytes

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

Pruébalo en línea!