Thử thách

Bạn phải viết một chương trình lấy một số nguyên dương nlàm đầu vào và xuất ra nsố Fibonacci thứ (được rút ngắn là Fib # trong suốt) có chứa nFib # thứ dưới dạng một phép trừ. Đối với mục đích của thử thách này, chuỗi Fibonacci bắt đầu bằng một1 .

Dưới đây là một số ví dụ mà bạn có thể sử dụng làm trường hợp thử nghiệm hoặc làm ví dụ để làm rõ thách thức (đối với trường hợp sau, vui lòng để lại nhận xét bên dưới giải thích những gì bạn thấy không rõ ràng).

n=1
Fib#s: 1
       ^1 1st Fib# that contains a 1 (1st Fib#)
Output: 1

n=2
Fib#s: 1, 1
       ^1 ^2 2nd Fib# that contains a 1 (2nd Fib#)
Output: 1

n=3
Fib#s: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233
             ^1              ^2                   ^3 3rd Fib# that contains a 2 (3rd Fib#)
Output: 233

n=4
Output: 233

n=5
Output: 6765

n=6
Output: 28657

n=7
Output: 1304969544928657

n=8
Output: 14472334024676221

n=9
Output: 23416728348467685

n=10
Fib#s: 1, ..., 34, 55, 89, ..., 63245986, 102334155, 165580141, ..., 2880067194370816120, 4660046610375530309
                   ^1                     ^2         ^3                                   ^10 10th Fib# that contains a 55 (10th Fib#)
Output: 4660046610375530309

Như mọi khi, đây là môn đánh gôn , vì vậy hãy tính số byte thấp nhất có thể.

Nếu có gì đó khó hiểu / không rõ ràng, vui lòng để lại nhận xét.

(Thử thách này dựa trên một thử thách khác mà tôi đã đăng: In số nguyên tố thứ n có chứa n )

Haskell , 85 84 byte

CHỈNH SỬA:

• -1 byte: Laikoni rút ngắn l.
• Typo ( x>=scho x<=s) giải thích.

f mất một Int và trả về a String.

l=0:scanl(+)1l
m=show<$>l
f n|x<-m!!n=[y|y<-x:m,or[x<=s|s<-scanr(:)""y,x++":">s]]!!n

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

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

• l là danh sách vô hạn của các số Fibonacci, được định nghĩa đệ quy là tổng một phần của 0:1:l . Nó bắt đầu với 0vì danh sách được lập chỉ mục 0. mlà cùng một danh sách được chuyển đổi thành chuỗi.
• Trong f :
  • n là số đầu vào và x là (chuỗi của) nsố Fibonacci thứ.
  • Trong phần hiểu danh sách bên ngoài, ylà một số Fibonacci được kiểm tra xem nó có chứa xdưới dạng một chuỗi con hay không. Các ys đi qua được thu thập trong danh sách và được lập chỉ mục với cuối cùng!!n để đưa ra đầu ra. Một phần bổ sung xđược thêm vào các bài kiểm tra để tiết kiệm hai byte khi sử dụng!!(n-1) ở cuối.
  • Để tránh đếm ys nhiều lần, các bài kiểm tra của từngy được gói orvà một cách hiểu danh sách khác.
  • Trong danh sách bên trong hiểu, s lặp đi lặp lại qua các hậu tố của y.
  • Để kiểm tra xem có phải xlà tiền tố của hay không s, chúng tôi kiểm tra xem x<=svà x++":">s. ( ":"có phần tùy ý nhưng cần phải lớn hơn bất kỳ chữ số nào.)

Thạch , 15 14 byte

1 byte nhờ Jonathan Allan.

0µ³,ÆḞẇ/µ³#ÆḞṪ

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

Python 2 , 99 86 byte

• Rjan Johansen đã lưu 7 byte: bắt đầu bằng b=i=x=-1 a=1và thảx and
• Ørjan Johansen một lần nữa lưu 3 byte: f and n==2đếnf*(n>2)
• Felipe Nardi Batista đã lưu 9 byte: tốc a,b=a+b,aký trao đổi kinh tế f-=str(x)in str(a), vắt(n<2)*f
• ovs đã lưu 13 byte: chuyển từ python 3 sang python 2.

f=n=input()
b=i=x=-1
a=1
while(n>2)*f:i+=1;a,b=a+b,a;x=[x,a][i==n];f-=`x`in`a`
print a

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

Giải trình:

f=n=int(input())                 # f is number of required numbers

b=i=x=-1                         # i is index(counter) set at -1
                                 # In Two-sided fibonacci, fib(-1) is 1 
                                 # and b(fib before it) i.e. fib(-2) is -1
                                 # Taking advantage of all -1 values, x is 
                                 # also set to -1 so that the `if str(...`
                                 # portion does not execute until x is set a 
                                 # value(i.e. the nth fibonacci) since there 
                                 # is no way -1 will be found in the number 
                                 # (ALL HAIL to Orjan's Genius Idea of using 
                                 # two-sided fibonacci)      

a=1                              # fib(-1) is 1


while(n>2)*f:                    # no need to perform this loop for n=1 and 
                                 # n=2 and must stop when f is 0

 i+=1                            # increment counter

 b,a=a,a+b                       # this might be very familiar (fibonacci 
                                 # thing ;))                         

 x=[x,a][i==n]                   # If we have found (`i==n`) the nth 
                                 # fibonacci set x to it

 f-=`x`in`a`                     # the number with required substring is 
                                 # found, decrease value of f

print a                          # print required value

Trăn 3 , 126 120 113 112 110 101 99 byte

f=n=int(input())
b=i=x=-1
a=1
while(n>2)*f:i+=1;a,b=a+b,a;x=[x,a][i==n];f-=str(x)in str(a)
print(a)

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

Java, 118 111 byte

i->{long n=i,p=0,q,c=1;for(;--n>0;p=c,c+=q)q=p;for(n=c;i>0;q=p,p=c,c+=q)if((""+c).contains(""+n))--i;return p;}

Tôi tiếp tục nghĩ rằng không nên sao chép bit Fibonacci, nhưng tất cả những nỗ lực của tôi bằng cách nào đó dẫn đến nhiều byte hơn.

Cảm ơn Kevin vì những cải tiến ... đoán nó cho thấy đây là nỗ lực đầu tiên của tôi khi chơi golf :)

Perl 6 , 45 byte

{my@f=0,1,*+*...*;@f.grep(/$(@f[$_])/)[$_-1]}

$_là đối số của hàm; @flà chuỗi Fibonacci, được tạo ra một cách lười biếng.

JavaScript (ES6), 96 93 92 90 86 byte

Được lập chỉ mục 0, với số thứ 0 trong chuỗi 1. Craps ra tại 14.

f=(n,x=1,y=1)=>n?f(n-1,y,x+y):x+""
g=(n,x=y=0)=>x>n?f(y-1):g(n,x+!!f(y++).match(f(n)))

• 2 6 byte được lưu nhờ Arnauld

Thử nó

f=(n,x=1,y=1)=>n?f(n-1,y,x+y):x+""
g=(n,x=y=0)=>x>n?f(y-1):g(n,x+!!f(y++).match(f(n)))
oninput=_=>o.innerText=(v=+i.value)<14?`f(${v}) = ${f(v)}\ng(${v}) = `+g(v):"Does not compute!"
o.innerText=`f(0) = ${f(i.value=0)}\ng(0) = `+g(0)

<input id=i min=0 type=number><pre id=o>

Giải trình

Phiên bản cập nhật để theo dõi, khi tôi nhận được một phút.

f=...                   :Just the standard, recursive JS function for generating the nth Fibonacci number
g=(...)=>               :Recursive function with the following parameters.
n                       :  The input integer.
x=0                     :  Used to count the number of matches we've found.
y=0                     :  Incremented on each pass and used to generate the yth Fibonacci number.
x>n?                    :If the count of matches is greater than the input then
f(y-1)                  :    Output the y-1th Fibonacci number.
:                       :Else
g(...)                  :    Call the function again, with the following arguments.
n                       :      The input integer.
x+                      :      The total number of matches so far incremented by the result of...
RegExp(f(n)).test(f(y)) :        A RegEx test checking if the yth Fibonacci number, cast to a string, contains the nth Fibonacci number.
                        :        (returns true or false which are cast to 1 and 0 by the addition operator)
y+1                     :      The loop counter incremented by 1

Than , 65 byte

ＡＩθνＡνφＡ±¹βＡβιＡβξＡ¹αＷ∧›ν²φ«Ａ⁺ι¹ιＡ⁺αβχＡαβＡχαＡ⎇⁼ιναξξＡ⁻φ›№ＩαＩξ⁰φ»Ｉα

Hãy thử trực tuyến! Liên kết với mã verbose để giải thích.

PHP , 96 byte

for($f=[0,1];$s<$a=$argn;$s+=$f[$a]&&strstr($f[$i],"$f[$a]")?:0)$f[]=$f[$i]+$f[++$i];echo$f[$i];

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

Toán học, 85 byte

(i=ToString;f=Fibonacci;For[n=t=0,t<#,If[i@f@n++~StringContainsQ~i@f@#,t++]];f[n-1])&

đầu vào

[10]

-4 byte từ @JungHwan Min

đầu ra

4660046610375530309

R, 77 72 byte

F=gmp::fibnum;i=0;d=n=scan();while(n)if(grepl(F(d),F(i<-i+1)))n=n-1;F(i)

Điều này làm cho việc sử dụng gmp thư viện cho số Fibonacci. Khá thẳng thực hiện foward của câu hỏi.

F=gmp::fibnum;          # Alias Fibonacci function to F
i=0;                    # intitalise counter
d=n=scan();             # get n assign to d as well
while(n)               # loop while n
  if(grepl(F(d),F(i<-i+1)))  # use grepl to determine if Fib of input is in Fib# and increment i
     n=n-1;             # decrement n
F(i)                  # output result

Một số bài kiểm tra

> F=gmp::fibnum;i=0;d=n=scan();while(n)if(grepl(F(d),F(i<-i+1)))n=n-1;F(i)
1: 2
2: 
Read 1 item
Big Integer ('bigz') :
[1] 1
> F=gmp::fibnum;i=0;d=n=scan();while(n)if(grepl(F(d),F(i<-i+1)))n=n-1;F(i)
1: 3
2: 
Read 1 item
Big Integer ('bigz') :
[1] 233
> F=gmp::fibnum;i=0;d=n=scan();while(n)if(grepl(F(d),F(i<-i+1)))n=n-1;F(i)
1: 10
2: 
Read 1 item
Big Integer ('bigz') :
[1] 4660046610375530309
> F=gmp::fibnum;i=0;d=n=scan();while(n)if(grepl(F(d),F(i<-i+1)))n=n-1;F(i)
1: 15
2: 
Read 1 item
Big Integer ('bigz') :
[1] 1387277127804783827114186103186246392258450358171783690079918032136025225954602593712568353

Clojure, 99 byte

(def s(lazy-cat[0 1](map +(rest s)s)))#(nth(filter(fn[i](.contains(str i)(str(nth s %))))s)(dec %))

Một giải pháp cơ bản, sử dụng một chuỗi vô hạn các số Fibonacci s.

C #, 35 byte

int u=1,b=1;for(;b<n;){b+=u;u=b-u;}

Thử nó

int n=int.Parse(t2.Text);int u=1,b=1;for(;b<n;){b+=u;u=b-u;t.Text+=b.ToString()+" ";}if(b==n){t.Text+="true";}

NewStack , 14 byte

N∞ ḟᵢfi 'fif Ṗf⁻

Sự phá vỡ:

N∞              Add all natural numbers to the stack
   ḟᵢ           Define new function will value of input
     fi          Get the n'th Fibonacci number for ever element n
       'fif      Remove all elements that don't contain the (input)'th Fibonacci number 
           Ṗf⁻  Print the (input-1)'th element

Bằng tiếng Anh: (với ví dụ về đầu vào là 3)

N∞: Lập danh sách các số tự nhiên [1,2,3,4,5,6...]

ḟᵢ: Lưu trữ đầu vào trong biến f [1,2,3,4,5,6...]

fi: Chuyển đổi danh sách thành số Fibonacci [1,1,2,3,5,8...]

'fif: Giữ tất cả các phần tử có chứa fsố Fibonacci thứ[2,21,233...]

Ṗf⁻: In f-1phần tử thứ (-1 do lập chỉ mục dựa trên 0)233

Japt , 16 15 byte

_søNg)«´U}a@MgX

Thử nó