Các thách thức

Đưa ra một đầu vào số nguyên, trả về số Fibonacci đầu tiên có chứa đầu vào bên trong cùng với chỉ số của số Fibonacci đó (các chỉ số bắt đầu từ 0 hoặc 1 - tùy theo bạn, nhưng vui lòng đề cập đến câu trả lời của bạn). Ví dụ, nếu được đưa vào đầu vào là 12, chương trình sẽ trả về 26: 121393là 12 được tìm thấy trong số ( 12 1393) và nó nằm ở chỉ số 26 của các số Fibonacci.

Ví dụ

Đưa ra đầu vào:

45

Chương trình của bạn sẽ xuất ra:

33: 3524578

Đầu vào:

72

Đầu ra:

54: 86267571272

Đầu vào:

0

Đầu ra:

0: 0

Đầu vào:

144

Đầu ra:

12: 144

Chấm điểm

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất trong mỗi ngôn ngữ sẽ thắng.

Thạch , 10 byte

0ÆḞ©w¥1#;®

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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 byte

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

Hãy thử trực tuyến!

Perl 6 , 30 byte

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

Hãy thử trực tuyến!

firstlà một hàm trả về phần tử đầu tiên của chuỗi vượt qua kiểm tra và nó thuận tiện lấy một :kvtrạng từ chỉ cho nó trả về cả khóa (chỉ mục) và giá trị khớp.

Hàng loạt, 104 byte

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

Hoạt động n=0..45do phạm vi số học nguyên của Batch giới hạn. Giải thích: Batch không có kiểm tra đối sánh tích hợp, nhưng nó có một toán tử có thể thay thế các chuỗi ký tự bằng các chuỗi ký tự khác, vì vậy, ví dụ if "%s:l=%"=="%s%"là đúng nếu %s%không trống nhưng không chứa l. Việc sử dụng callsau đó là một mẹo để thay thế %1(đầu vào) vào toán tử thay thế, tuy nhiên callkhông hoạt động trên các câu lệnh luồng điều khiển nên việc gán tạm thời trung gian là cần thiết.

Thạch , 15 byte

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

Hãy thử trực tuyến!

Javascript ES6, 68 ký tự

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

Kiểm tra:

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 byte

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)

Biểu tượng cảm xúc , 133 byte

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

Hãy thử trực tuyến!

APL Dyalog, 39 byte

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

Sử dụng đệ quy đuôi. Đừng thử 72, nó sẽ làm hỏng máy của bạn vì tính toán lại trên tất cả các cuộc gọi.

Hãy thử trực tuyến!

Toán học, 119 byte

1 chỉ mục

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

Hãy thử trực tuyến!

Trên thực tế , 13 byte

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

Hãy thử trực tuyến!

Giải trình:

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

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

Đệ quy tiêu chuẩn để tạo Fibnums, nhưng thay vì chấm dứt dựa trên n, chấm dứt khi bkhớp với biểu thức chính quy x. Điều này thực sự hoạt động tốt đáng ngạc nhiên. Tôi giả định rằng việc sử dụng regex với số sẽ đòi hỏi rất nhiều rắc rối khi chuyển chúng thành chuỗi, nhưng điều đó dường như không cần thiết :)

Điều này cũng phải vượt qua đệ quy 1 bước, bằng cách kiểm tra bthay vì avà sau đó trừ 1đi n. Điều này là để đảm bảo f(0)hoạt động đúng.

Điều này không thành công cho hầu hết các giá trị khi đầu vào vượt quá 1001, vì tối đa. Nếu chúng tôi thay thế avà bcho các vấn đề lớn, điều này hoạt động cho các đầu vào cao hơn (thử nghiệm hiện tại là tại 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 byte

-1 byte bởi Step Hen

-3 byte bởi 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 byte

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

Hãy thử trực tuyến!

Lấy đầu vào là một số nguyên, trả về một chuỗi với đầu ra.

Haskell , 84 byte

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

Hãy thử trực tuyến!

PHP, 80 byte

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

Kịch bản khá đơn giản, chỉ đơn giản là lưu trữ các điều khoản hiện tại và tiếp theo của chuỗi trong $ a và $ b trong suốt. Để cho phép số hạng 0 bằng 0, $ a và $ b ban đầu được gán các giá trị cho số hạng thứ 1 (1) và số hạng 0 (0) tương ứng.

Cả hai giá trị được tính toán lại trong một biểu thức, đó là hai phép gán trong một; có hiệu quả:

$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

Nếu giá trị đầu vào khớp với đầu của thuật ngữ, hàm strpose () sẽ trả về 0 (là falsey và sẽ cho âm sai), nhưng trong Thế giới kỳ diệu của PHP, mặc dù false == 0là đúng và false < 0là sai, false < -1là đúng! Và do đó, sử dụng so sánh này tiết kiệm năm byte so với !==false.

Japt , 17 14 byte

Đã lưu 3 byte nhờ @JustinMariner

_ŬøU}a@[XMgX]

Hãy thử trực tuyến!

Giải trình

_Ŭø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 byte

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

Hãy thử trực tuyến!

Sử dụng $b[0] = 0;và $b[1] = 1;bắt đầu chuỗi sợi

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

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

Hãy thử trực tuyến!

PHP , 93 byte

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

Vòng lặp đơn giản thông qua chuỗi Fibonacci. Việc kiểm tra số đầu vào của chúng tôi được thực hiện trong strpos(" $a[$i]","$argv[1]"); không gian thêm là vì strpossẽ trả về false-y nếu tìm thấy 'kim' ở đầu chuỗi. Chúng tôi kết thúc nếu đầu vào được tìm thấy và lặp lại chuỗi yêu cầu.

Hãy thử trực tuyến!

Lisp thông thường, 105 byte

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

Hãy thử trực tuyến!