ท้าทาย

คุณต้องเขียนโปรแกรมที่รับจำนวนเต็มบวกnเป็นอินพุตและส่งออกnหมายเลขฟีโบนักชี (ตัดให้สั้นลงเหมือน Fib # ตลอด) ที่มีฟิปส์n# เป็นตัวหาร สำหรับวัตถุประสงค์ของการท้าทายนี้, 1ลำดับฟีโบนักชีเริ่มต้นด้วย

นี่คือตัวอย่างบางส่วนที่คุณสามารถใช้เป็นกรณีทดสอบหรือเพื่อเป็นตัวอย่างในการอธิบายความท้าทาย (สำหรับกรณีหลังโปรดแสดงความคิดเห็นลงด้านล่างเพื่ออธิบายสิ่งที่คุณพบว่าไม่ชัดเจน)

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

และเช่นเคยนี่คือcode-golfดังนั้นควรนับไบต์ที่ต่ำที่สุด

หากสิ่งที่ทำให้สับสน / ไม่ชัดเจนโปรดแสดงความคิดเห็น

(ความท้าทายนี้อ้างอิงจากความท้าทายอื่นที่ฉันโพสต์: พิมพ์ตัวที่ n ที่ประกอบด้วย n )

Haskell , 85 84 ไบต์

แก้ไข:

• -1 ไบต์: Laikoni lสั้นลง
• คำอธิบายTypo ( x>=sสำหรับx<=s)

fใช้เวลาและผลตอบแทนIntString

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

ลองออนไลน์!

มันทำงานอย่างไร

• lเป็นรายการที่ไม่มีที่สิ้นสุดของตัวเลข Fibonacci 0:1:lกำหนดซ้ำเป็นผลรวมบางส่วนของ มันเริ่มต้นด้วย0เพราะรายการมีการจัดทำดัชนี 0 mเป็นรายการเดียวกันที่ถูกแปลงเป็นสตริง
• ในf:
  • nคือหมายเลขอินพุตและxเป็นหมายเลข (สตริงของ) nหมายเลขฟีโบนักชี
  • ในรายการความเข้าใจภายนอกyคือหมายเลข Fibonacci ที่ทดสอบว่ามีxสตริงย่อยหรือไม่ การส่งผ่านyถูกรวบรวมในรายการและจัดทำดัชนีพร้อมกับขั้นสุดท้าย!!nเพื่อให้เอาต์พุต ส่วนเสริมxจะถูกเตรียมไว้ให้กับการทดสอบเพื่อบันทึกสองไบต์ไปใช้!!(n-1)ในตอนท้าย
  • เพื่อหลีกเลี่ยงการนับyหลาย ๆ ครั้งการทดสอบของแต่ละรายการyจะถูกห่อorและรายการความเข้าใจอื่น
  • ในความเข้าใจของรายการภายในsiterates yผ่านคำต่อท้ายของ
  • เพื่อทดสอบว่าxเป็นคำนำหน้าของsเราตรวจสอบว่าและx<=s x++":">s( ":"ค่อนข้างโดยพลการ แต่ต้องการมากกว่าตัวเลขใด ๆ )

เยลลี่ , 15 14 ไบต์

1 ไบต์ขอบคุณ Jonathan Allan

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

ลองออนไลน์!

Python 2 , 99 86 ไบต์

• Ørjan Johansenบันทึก 7 ไบต์: เริ่มต้นด้วยb=i=x=-1 a=1และวางx and
• Ørjan Johansenบันทึกอีก 3 ไบต์: f and n==2ถึงf*(n>2)
• เฟลิปานาร์ดีบาติสตาบันทึก 9 ไบต์: a,b=a+b,aชวเลขแลกเปลี่ยนเศรษฐกิจf-=str(x)in str(a)บีบ(n<2)*f
• ovsบันทึก 13 ไบต์: การเปลี่ยนจาก python 3 เป็น 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

ลองออนไลน์!

คำอธิบาย:

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

Python 3 , 126 120 113 112 110 101 99 ไบต์

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)

ลองออนไลน์!

Java, 118 111 ไบต์

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

ฉันคิดว่ามันคงเป็นไปไม่ได้ที่จะไม่ทำซ้ำบิตฟีโบนักชี แต่ความพยายามทั้งหมดของฉันส่งผลให้เกิดไบต์เพิ่มขึ้น

ขอบคุณ Kevin สำหรับการปรับปรุง ... เดาว่ามันแสดงให้เห็นว่านี่เป็นความพยายามครั้งแรกของฉันในการเล่นกอล์ฟ :)

Perl 6 , 45 ไบต์

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

$_เป็นอาร์กิวเมนต์ของฟังก์ชัน @fเป็นลำดับฟีโบนักชีสร้างอย่างขี้เกียจ

JavaScript (ES6), 96 93 92 90 86 ไบต์

0 การจัดทำดัชนีมีจำนวน 0 1ในการเป็นลำดับ 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 ไบต์ได้รับการบันทึกขอบคุณArnauld

ลองมัน

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>

คำอธิบาย

อัปเดตเวอร์ชันที่จะติดตามเมื่อฉันได้รับนาที

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

ถ่าน , 65 ไบต์

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

ลองออนไลน์! เชื่อมโยงไปยังรหัส verbose สำหรับคำอธิบาย

PHP , 96 ไบต์

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

ลองออนไลน์!

Mathematica, 85 ไบต์

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

อินพุต

[10]

-4 bytes จาก @JungHwan Min

เอาท์พุต

4660046610375530309

R, 77 72 ไบต์

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

สิ่งนี้ใช้ประโยชน์จากgmpไลบรารีสำหรับหมายเลขฟีโบนักชี การใช้คำถามตรงไปตรงมาอย่างยุติธรรม

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

การทดสอบบางอย่าง

> 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 ไบต์

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

sวิธีการแก้ปัญหาขั้นพื้นฐานใช้ลำดับอนันต์ของตัวเลขฟีโบนักชี

C #, 35 ไบต์

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

ลองมัน

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 ไบต์

N∞ ḟᵢfi 'fif Ṗf⁻

รายละเอียด:

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

ในภาษาอังกฤษ: (พร้อมตัวอย่างอินพุต 3)

N∞: ทำรายการหมายเลขธรรมชาติ [1,2,3,4,5,6...]

ḟᵢ: เก็บอินพุตในตัวแปร f [1,2,3,4,5,6...]

fi: แปลงรายการเป็นหมายเลข Fibonacci [1,1,2,3,5,8...]

'fif: เก็บองค์ประกอบทั้งหมดที่มีfหมายเลขฟีโบนักชีไว้[2,21,233...]

Ṗf⁻: พิมพ์f-1องค์ประกอบที่ (-1 เนื่องจากการทำดัชนีตาม 0)233

Japté , 16 15 ไบต์

_søNg)«´U}a@MgX

ลองมัน