ท้าทาย

คุณต้องสร้างโปรแกรมหรือฟังก์ชั่นที่ใช้จำนวนเต็มบวก N คำนวณคำศัพท์ N แรกของลำดับฟีโบนักชีในรูปแบบไบนารีต่อกันเป็นเลขฐานสองเดียวแปลงตัวเลขนั้นกลับเป็นทศนิยมจากนั้นจึงส่งทศนิยมเป็น จำนวนเต็ม.

ตัวอย่างเช่น

1 -> [0] -> 0 to decimal outputs 0
3 -> [0, 1, 1] -> 011 to decimal outputs 3
4 -> [0, 1, 1, 10] -> 01110 to decimal outputs 14

คุณไม่จำเป็นต้องเอาท์พุท->เพียงแค่จำนวน (เช่นถ้าผู้ใช้พิมพ์4เอาท์พุท14) ลูกศรเป็นเพียงเพื่อช่วยอธิบายสิ่งที่โปรแกรมต้องทำ

กรณีทดสอบ

1 -> 0
2 -> 1
3 -> 3
4 -> 14
5 -> 59
6 -> 477
7 -> 7640
8 -> 122253
9 -> 3912117
10 -> 250375522
11 -> 16024033463
12 -> 2051076283353
13 -> 525075528538512
14 -> 134419335305859305
15 -> 68822699676599964537
16 -> 70474444468838363686498
17 -> 72165831136090484414974939
18 -> 147795622166713312081868676669
19 -> 605370868394857726287334099638808
20 -> 4959198153890674493745840944241119317

โปรแกรมจะต้องสามารถส่งออกถึงขีด จำกัด ของภาษาที่ใช้งานอยู่ ไม่อนุญาตให้ใช้ตารางการค้นหาหรือวิธีแก้ไขปัญหาทั่วไป

นี่คือโค้ดกอล์ฟดังนั้นคำตอบที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ!

Pythonขนาด 64 ไบต์

f=lambda n,a=0,b=1,r=0:n and f(n-1,b,a+b,r<<len(bin(a))-2|a)or r

ลองออนไลน์!

เยลลี่ ,  7  6 ไบต์

ḶÆḞBẎḄ

ลองออนไลน์!

อย่างไร?

ḶÆḞBẎḄ - Link: integer, n
Ḷ      - lowered range -> [0,1,2,3,4,5,...,n]
 ÆḞ    - Fibonacci (vectorises) -> [0,1,1,2,3,5...,F(n)]
   B   - to binary (vectorises) -> [[0],[1],[1],[1,0],[1,1],[1,0,1],...,B(F(n))]
    Ẏ  - tighten -> [0,1,1,1,0,1,1,1,0,1,...,B(F(n))[0],B(F(n))[1],...]
     Ḅ - from binary -> answer

Python 3.6 , 61 ไบต์

f=lambda n,a=0,b=1:n and int(f'{a:b}{f(n-1,b,a+b)*2:b}',2)//2

ลองออนไลน์!

brainfuck , 397 ไบต์

>,[<++++++[->--------<]>>[->++++++++++<]>[-<+>]<<[->+<],]>+[-<<+>>[-[->+<]<<[->+>+<<]<[->+>+<<]>[-<+>]>>[-<<+>>]>]]<<[->+>>>>>+<<<<<<]>[-<+>]>+>>+>>>+<[[->-[<<]>]>[[-]<<<<<<<[->>[-<+>>+<]>[-<+>]<<<]<[->+>>>>>+<<<<<<]>[-<+>]>[-<+>]>[->>[-<+<<+>>>]<[->+<]<]>+>[-]>>+>]<<<<<[[->++>+>++<<<]>[-<+>]<<]>>>]>[-]<<<[-]<<[-]<<->[>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>>>]<+[->++++++[-<++++++++>]<.<<<+]

มันสนุกดี!

รับอินพุต ASCII (เช่น11) ผลลัพธ์จะเป็น ASCII

หมายเหตุ: หากต้องการลองออนไลน์โปรดตรวจสอบให้แน่ใจว่าคุณตั้งขนาดเซลล์เป็น 32 บิต (ทางด้านขวาของหน้าเว็บ) หากคุณไม่ได้ป้อนข้อมูลเบราว์เซอร์ของคุณอาจมีปัญหา

ล่ามไม่สามารถจัดการอินพุต11และสูงกว่าเพราะรองรับได้สูงสุด 32 บิต

ลองใช้กับ copy.sh

คำอธิบาย

>,[<++++++[->--------<]>>[->++++++++++<]>[-<+>]<<[->+<],]>+

รับอินพุตทศนิยมและเพิ่มหนึ่งรายการ (เพื่อลดการทีละรายการ)

[-<<+>>[-[->+<]<<[->+>+<<]<[->+>+<<]>[-<+>]>>[-<<+>>]>]]

สร้างหมายเลขฟีโบนักชีบนเทป

<<[->+>>>>>+<<<<<<]>[-<+>]>+>>+>>>+<

ตั้งค่าสำหรับการต่อข้อมูลไบนารีไบนารีที่เข้ามา

ดังนั้นเซลล์จึงมีค่าเริ่มต้นจากตำแหน่งแรก

1 | 0 | 1 | 1 | 2 | 3 | 5 | ... | f_n | 0 | 1 | 0 | 1 | 0 | f_n | 1 | 0 | 0 | 0...

ดูเซลล์เหล่านี้:

f_n | 0 | 1 | 0 | 1 | 0 | f_n | 1

ฉันจะติดป้ายกำกับนี้:

num | sum | cat | 0 | pow | 0 | num | pow

powจะมีการพบว่าอำนาจสูงสุดของ 2 numว่าเป็นอย่างเคร่งครัดมากกว่า sumคือการต่อกันของตัวเลขจนถึงตอนนี้ catคือพลังของ 2 ที่ฉันต้องคูณด้วยnumเพื่อเชื่อมnumต่อหน้าsum(ดังนั้นฉันจะสามารถเพิ่ม)

[[->-[<<]>]>

วนซ้ำ: ตรวจสอบว่าf_nเข้มงวดน้อยกว่าpowหรือไม่

Truthy:

[[-]<<<<<<<[->>[-<+>>+<]>[-<+>]<<<]<[->+>>>>>+<<<<<<]>[-<+>]>[-<+>]>[->>[-<+<<+>>>]<[->+<]<]>+>[-]>>+>]

ไม่มีศูนย์ขยะ จากนั้นให้เพิ่มnum* ไปcat sumถัดไปโหลดหมายเลขฟีโบนักชีต่อไป (= f_(n-1); หากไม่มีอยู่ให้ออกจากลูป) และตั้งค่าcatเป็นcat*pow *เตรียมความพร้อมสำหรับการวนรอบต่อไป (ศูนย์ขยะเพิ่มเติมเลื่อนขอบเขตหนึ่ง)

Falsey:

<<<<<[[->++>+>++<<<]>[-<+>]<<]

ตั้งpow2 * เรียกคืนpownum

]

ทำซ้ำจนกว่าจะไม่มีจำนวนฟีโบนักชีเหลืออยู่

>[-]<<<[-]<<[-]<<->[>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>>>]<+[->++++++[-<++++++++>]<.<<<+]

ทำความสะอาดขยะ ใช้ตัวเลขแต่ละตัวของตัวเลขผลลัพธ์และส่งออกแต่ละรายการ (เป็น ascii)

Husk , 7 ไบต์

ḋṁḋ↑Θİf

ลองออนไลน์!

คำอธิบาย

ḋṁḋ↑Θİf                              4
     İf    The Fibonacci numbers     [1,1,2,3,5,8..]
    Θ      Prepends 0                [0,1,1,2,3,5..]
   ↑     Take n elements from list   [0,1,1,2]
  ḋ        Convert to binary digits  [[0],[1],[1],[1,0]]
 ṁ       Map function then concat    [0,1,1,1,0]
ḋ        Convert from base 2         14

Japt , 9 ไบต์

ÆMgX ¤Ã¬Í

เรียกใช้

คำอธิบาย:

ÆMgX ¤Ã¬Í
Æ     Ã     | Iterate X through the range [0...Input]
 MgX        |   Xth Fibonacci number
     ¤      |   Binary
       ¬    | Join into a string
        Í   | Convert into a base-2 number

Pyth, 22 ไบต์

JU2VQ=+Js>2J)is.BM<JQ2

ลองที่นี่

คำอธิบาย

JU2VQ=+Js>2J)is.BM<JQ2
JU2                       Set J = [0, 1].
   VQ       )             <Input> times...
     =+Js>2J              ... add the last 2 elements of J and put that in J.
                  <JQ     Take the first <input> elements...
               .BM        ... convert each to binary...
              s           ... concatenate them...
             i       2    ... and convert back to decimal.

Perl 6 , 38 ไบต์

{:2([~] (0,1,*+*...*)[^$_]>>.base(2))}

ลองออนไลน์!

JavaScript (Node.js) , 70 65 58 57 55 ไบต์

• ขอบคุณ Shaggy สำหรับการลด 2 ไบต์ ('0b + C-0 ถึง' 0b '+ C)

f=(n,a=C=0,b=1)=>--n?f(n,b,a+b,C+=b.toString(2)):'0b'+C

ลองออนไลน์!

05AB1E , 6 ไบต์

LÅfbJC

ลองออนไลน์!

1 การจัดทำดัชนี

J, 36 ไบต์

3 :'#.;<@#:"0]2}.(,{:+_2&{)^:y _1 1'

คำอธิบาย:

3 :'#.;<@#:"0]2}.(,{:+_2&{)^:y _1 1' | Explicit function
                 (,{:+_2&{)^:y _1 1  | Make n fibonacci numbers, with _1 1 leading
              2}.                    | Drop the _1 1
       <@#:"0]                       | Convert each item to binary and box
      ;                              | Unbox and join
    #.                               | Convert back from binary

x86, 37 22 21 ไบต์

การเปลี่ยนแปลง

• -13 โดยใช้ bsrโดยใช้ ขอบคุณ Peter Cordes!

• -2 โดยzeroing mulลงทะเบียนกับ

• -1 โดยใช้การวนรอบสักครู่แทนloopและpush/ pop ecx(เครดิต Peter Cordes)

การป้อนข้อมูลในการส่งออกในediedx

.section .text
.globl main
main:
        mov     $5, %edi            # n = 5

start:
        dec     %edi                # Adjust loop count
        xor     %ebx, %ebx          # b = 0
        mul     %ebx                # a = result = 0
        inc     %ebx                # b = 1

fib:
        add     %ebx, %eax          # a += b
        xchg    %eax, %ebx          # swap a,b
        bsr     %eax, %ecx          # c = (bits of a) - 1
        inc     %ecx                # c += 1
        sal     %cl, %edx           # result >>= c
        add     %eax, %edx          # result += a

        dec     %edi                # n--; do while(n)
        jnz     fib 

        ret

objdump:

00000005 <start>:
   5:   4f                      dec    %edi
   6:   31 db                   xor    %ebx,%ebx
   8:   f7 e3                   mul    %ebx
   a:   43                      inc    %ebx

0000000b <fib>:
   b:   01 d8                   add    %ebx,%eax
   d:   93                      xchg   %eax,%ebx
   e:   0f bd c8                bsr    %eax,%ecx
  11:   41                      inc    %ecx
  12:   d3 e2                   shl    %cl,%edx
  14:   01 c2                   add    %eax,%edx
  16:   4f                      dec    %edi
  17:   75 f2                   jne    b <fib>
  19:   c3                      ret    

APL (Dyalog) , 26 22 ไบต์

บันทึกได้ 4 ไบต์ด้วย @ H.PWiz

{2⊥∊2∘⊥⍣¯1¨1∧+∘÷\~⍵↑1}

ลองออนไลน์!

Haskell , 89 76 75 ไบต์

f=0:scanl(+)1f
foldr1(\x y->y+x*2*2^floor(logBase 2.read.show$y)).(`take`f)

เวอร์ชันที่ไม่ถูกปรับแต่ง:

import Data.Bits

fib = 0:scanl (+) 1 fib

catInt :: Integer -> Integer -> Integer
catInt x y = x' + y where
    position = floor $ succ $ logBase 2 $ realToFrac y
    x' = shift x position

answer :: Integer -> Integer
answer n = foldr1 catInt fib' where
    fib' = take n fib

Pari / GP , 59 ไบต์

n->fromdigits(concat([binary(fibonacci(i))|i<-[0..n-1]]),2)

ลองออนไลน์!

APL + WIN, 55 ไบต์

แสดงพร้อมต์สำหรับอินพุตหน้าจอของจำนวนเต็ม

v←b←0 1⋄⍎∊(⎕-2)⍴⊂'v←v,c←+/¯2↑v⋄b←b,((1+⌊2⍟c)⍴2)⊤c⋄'⋄2⊥b

ความแม่นยำสูงสุดของ APL + WIN คือ 17 และ จำกัด จำนวนเต็มของลำดับที่ 10E300 ดังนั้นจำนวนอินพุตสูงสุดคือ 55 และผลลัพธ์คือ: 1.2492739026634838E300

Python 3 , 94 ไบต์

f=lambda n,a=[0,1]:n>len(a)and f(n,a+[sum(a[-2:])])or int(''.join(bin(v)[2:]for v in a[:n]),2)

ลองออนไลน์!

เยลลี่ 6 ไบต์

ḶÆḞBFḄ

ลองออนไลน์!

Ḷช่วง owered -> n TH ÆḞจำนวน ibonacci -> จากธันวาคมเพื่อBinary -> Flatten -> จากḄinary เพื่อธันวาคม

MATL , 21 ไบต์

0li:"yy+]xx&h"@B]&hXB

ลองออนไลน์!

คำอธิบาย

0l        % Push 0, then 1 (initial terms of the Fibonacci sequence)
i:"       % Do n times, where n is the input
  yy+     %   Duplicate top two numbers and push their sum
  ]       % End
xx        % Delete the last two results. The stack now contains the
          % first n Fibonacci numbers, starting at 0
&h        % Concatenate all numbers into a row vector
"         % For each
  @       %   Push current number
  B       %   Convert to binary. Gives a vector of 0 and 1
]         % End
&h        % Concatenate all vectors into a row vector
XB        % Convert from binary to decimal. Implicitly display

J , 25 ไบต์

2(#.;)<@#:@(1#.<:!|.)\@i.

ลองออนไลน์!

คำอธิบาย

2(#.;)<@#:@(1#.<:!|.)\@i.  Input: n
                       i.  Range [0, n)
                     \@    For each prefix
                  |.         Reverse
                 !           Binomial coefficient (vectorized)
               <:            Decrement
            1#.              Sum
        #:                   Convert to binary
      <                      Box
    ;                        Link. Join the contents in each box
2 #.                         Convert to decimal from base 2

Python 3 , 86 ไบต์

def f(N):
 a,b,l=0,1,''
 for _ in range(N):l+=format(a,'b');a,b=b,a+b
 return int(l,2)

ลองออนไลน์!

เพิ่ม ++ , 113 ไบต์

D,f,@@@@*,V$2D+G1+dAppp=0$Qp{f}p
D,k,@,¿1=,1,bM¿
D,g,@,¿1_,1_001${f},1¿{k}
D,w,@,BBbR
D,l,@,ßR€gp€w@0b]@¦+VcG2$Bb

ลองออนไลน์!

PHP, 124 ไบต์

ลองออนไลน์!

ดังนั้นฉันจึงกำลังมองหาวิธีที่จะส่งออกตัวเลข fibonacci โดยใช้ซีรีส์จนกว่าฉันจะพบสิ่งนี้นี้ปรากฎว่าคุณสามารถคำนวณชุดฟีโบนักชีผ่านการปัดเศษได้ดังนั้นฉันจึงลองใช้ความท้าทายด้วยฟังก์ชั่นวนซ้ำ

ฉันพบวิธีการ "ปัดเศษ" ที่น่าสนใจจริง ๆ และอาจารย์ก็แสดงให้ฉันเห็นเมื่อไม่นานมานี้

รหัส

function f($n,$i=0,$b=''){ if($n>$i){$b.=
decbin(round(pow((sqrt(5)+1)/2,$i)/sqrt(5)));f($n,$i+1,$b);}else{echo bindec($b);}}

คำอธิบาย

function f($n,$i=0,$b=''){           #the function starts with $i=0, our nth-fib number
if($n>$i){                           #it stops once $n (the input) = the nth-fib
    $b.=decbin(                      #decbin returns an integer as bin, concatenates
        round(pow((sqrt(5)+1)/2,$i)/sqrt(5))    
                                       #the formula, basically roundign the expression
        );                           #it returns the (in this case) $i-th fib-number   
    f($n,$i+1,$b);                   #function is called again for the next index
}else{                               #and the current string for fibonacci

    echo bindec($b);                 #"echo" the result, bindec returns the base 10
                                     #value of a base 2 number
}
}

ตรวจสอบการโพสต์ stackoverflow นี้คำตอบที่ดีที่สุดอ้างถึงบทความเดียวกันใน Wikipedia

Stax , 9 ไบต์

ü1∞╓♪εw≤+

เรียกใช้และแก้ไขปัญหาได้ที่ staxlang.xyz!

คลายการแพค (10 ไบต์) และคำอธิบาย:

vr{|5|Bm|B
v             Decrement integer from input. Stax's Fibonacci sequence starts with 1 :(
 r            Integer range [0..n).
  {    m      Map a block over each value in an array.
   |5           Push nth Fibonacci number.
     |B         Convert to binary.
        |B    Implicit concatenate. Convert from binary. Implicit print.

Julia 0.6 , 65 bytes

f(n)=n<2?n:f(n-1)+f(n-2)
n->parse(BigInt,prod(bin.(f.(0:n-1))),2)

ลองออนไลน์!

Pyth, 27 ไบต์

JU2V-Q2=aJ+eJ@J_2)is.BM<JQ2

ชุดทดสอบ

Q=eval(input())
J=list(range(2))
for i in range(Q-2):
    J.append(J[-1]+J[-2])
print(int(''.join(map("{0:b}".format,J[:Q])),2))

37 ไบต์

J[Z1)W<lJQ=aJ+eJ@J_2)Ig1QZ.?ijkm.BdJ2

ชุดทดสอบ

Q=eval(input())
J=[0,1]
while len(J)<Q:
    J.append(J[-1]+J[-2])
if 1>=Q:
    print(0)
else:
    print(int(''.join(map("{0:b}".format,J)),2))

Ruby , 61 ไบต์

->n,a=0,b=1,s=""{s+="%b"%a;a,b=b,a+b;(n-=1)>0?redo:s.to_i(2)}

ลองออนไลน์!

Jotlin , 59 ไบต์

g(l(0,1)){l(a.sum(),a[0])}.take(this).j(""){a[0].s(2)}.i(2)

โปรแกรมทดสอบ

data class Test(val input: Int, val output: Long)

val tests = listOf(
    Test(1, 0),
    Test(2, 1),
    Test(3, 3),
    Test(4, 14),
    Test(5, 59),
    Test(6, 477),
    Test(7, 7640),
    Test(8, 122253),
    Test(9, 3912117),
    Test(10, 250375522)
)
fun Int.r() = g(l(0,1)){l(a.sum(),a[0])}.take(this).j(""){a[0].s(2)}.i(2)

fun main(args: Array<String>) {
    for (r in tests) {
        println("${r.input.r()} vs ${r.output}")
    }
}

รองรับได้มากถึง 10 ตัวเปลี่ยน.i(2)เพื่อ.toLong(2)รองรับได้มากถึง 14 หากต้องการ

Python 2, 88 ไบต์

def f(n):
 a,b,r=0,1,"0"
 for _ in range(n-1):a,b=b,a+b;r+=bin(a)[2:]
 print int(r,2)

R , 244 180 179 ไบต์

i=ifelse;g=function(n)i(n<3,1,g(n-1)+g(n-2))
a=scan(,"");i(a==1,0,sum(2^(which(rev(unlist(sapply(g(2:a-1),function(x)(y=rev(as.numeric(intToBits(x))))[which(!!y)[1]:32]))>0))-1)))

ลองออนไลน์!

บันทึกบางไบต์ด้วยการเชื่อมต่อเวกเตอร์ตัวเลขเข้าด้วยกันไม่ใช่สตริง กรณีพิเศษสำหรับกรุ๊ปเลือด 0!