Meydan okuma

Olumlu bir tamsayı alan, Fibonacci dizisinin ilk N terimlerini ikili olarak alan, tek bir ikili sayıya birleştiren, bu sayıyı ondalık basamağa dönüştüren ve ardından ondalık olarak basılan bir program ya da işlev oluşturmanız gerekir. tamsayı.

Örneğin

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

->Sadece sayıyı çıkarmanız gerekmez (örneğin, kullanıcı yazıyorsa 4, çıktı 14). Oklar sadece programın ne yapması gerektiğini açıklamaya yardımcı olmak içindir.

Test durumları

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

Program, kullanılan dil sınırına kadar çıktı verebilmelidir. Arama tablolarına veya ortak geçici çözümlere izin verilmez.

Bu kod golf , yani en kısa bayt sayısına sahip olan cevap kazanır!

Python , 64 bayt

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

Çevrimiçi deneyin!

Jöle ,  7  6 bayt

ḶÆḞBẎḄ

Çevrimiçi deneyin!

Nasıl?

ḶÆḞ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 bayt

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

Çevrimiçi deneyin!

brainfuck , 397 bayt

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

Bu eğlenceliydi!

ASCII girişini (örn. 11) Alır , çıkışlar ASCII ile sonuçlanır.

Not: Bunu çevrimiçi denemek için, hücre boyutunu 32 bit olarak ayarladığınızdan emin olun (web sayfasının sağ tarafında). Bir giriş girmezseniz, tarayıcınız çökebilir.

Tercüman girişi 11ve üstünü kaldıramaz çünkü yalnızca 32 bit destekler.

Copy.sh üzerinde deneyin

açıklama

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

Ondalık giriş elde edin ve bir tane ekleyin (tek tek azaltmak için)

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

Kasette fibonacci sayıları oluşturun.

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

Gelen ikili birleştirme döngüsüne ayarlayın

Böylece hücreler ilk pozisyondan başlayarak değeri içerirler.

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

Şu hücrelere bak:

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

Bunu etiketleyeceğim:

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

powkesinlikle 2 den büyük olan gücü bulmak için orada num. sumşimdiye kadar sayıların birleştirilmesidir. önünde birleşmek için çarpmam catgereken 2'nin gücü (bu yüzden basitçe ekleyebilecektim).numnumsum

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

Döngü: f_nKesinlikle kesinlikle daha az olup olmadığını kontrol edin pow.

Truthy:

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

Önemsiz sıfır. Ardından eklemek num* catiçin sum. Daha sonra, bir sonraki Fibonacci sayıda yük (= f_(n-1); eğer olursa, çıkış döngü var olmayan) ve seti catiçin cat* pow. Bir sonraki döngü için hazırlanın (daha fazla önemsiz sıfırlayın, kapsamı birer kaydırın).

Falsey:

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

pow2 * olarak ayarlayın pow, geri yükleyin num.

]

Fibonacci numarası kalmayana kadar tekrarlayın.

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

Çöpleri temizle. Elde edilen sayının her basamağını alın ve her birini (ascii olarak) girin.

Kabuğu , 7 bayt

ḋṁḋ↑Θİf

Çevrimiçi deneyin!

açıklama

ḋṁḋ↑Θİ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 bayt

ÆMgX ¤Ã¬Í

Koş

Açıklama:

Æ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 bayt

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

Burada dene

açıklama

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 bayt

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

Çevrimiçi deneyin!

JavaScript (Node.js) , 70 65 58 57 55 bayt

• 2 byte'ı düşürdüğü için Shaggy sayesinde ('0b + C-0'dan' 0b '+ C)

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

Çevrimiçi deneyin!

05AB1E , 6 bayt

LÅfbJC

Çevrimiçi deneyin!

1 endeksli.

J, 36 Bayt

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

Açıklama:

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 bayt

Değişiklikler

• -13 kullanarak bsr. Teşekkürler Peter Cordes!

• -2 ile kayıtları sıfırlayarakmul .

• -1 yerine bir while döngüsü kullanarak loopve push/ pop ecx(Credit Peter Cordes).

Giriş girişi edi, çıkış girişi edx.

.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 bayt

@ H.PWiz sayesinde 4 bayt kurtarıldı

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

Çevrimiçi deneyin!

Haskell , 89 76 75 bayt

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

Ungolfed versiyonu:

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 bayt

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

Çevrimiçi deneyin!

APL + WIN, 55 bayt

Tamsayı ekran girişi için ister.

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

APL + WIN'in maksimum tamsayı hassasiyeti 17'dir ve tamsayı sınırı 10E300 derecesindedir, bu nedenle maksimum giriş sayısı 55'tir ve sonuç: 1.2492739026634838E300

Python 3 , 94 bayt

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)

Çevrimiçi deneyin!

Jöle , 6 bayt

ḶÆḞBFḄ

Çevrimiçi deneyin!

Ḷowered aralığı -> n inci ÆḞ> dec göre - ibonacci sayısı Binary -> Flatten -> den Ḅinary dec için

MATL , 21 bayt

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

Çevrimiçi deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

açıklama

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 bayt

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)

Çevrimiçi deneyin!

++ , 113 bayt ekle

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

Çevrimiçi deneyin!

PHP, 124 Bayt

Çevrimiçi deneyin!

Ben bulana kadar Yani, dizi kullanarak çıkış Fibonacci sayıları için bir yol arıyordu bu . Görünüşe göre fibonacci serisini yuvarlama yoluyla hesaplayabilirsiniz, bu yüzden özyinelemeli bir fonksiyonla mücadeleyi denedim.

"Yuvarlama" yaklaşımını ilginç buldum, ayrıca bir süre önce bir profesör de gösterdi.

kod

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

açıklama

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

Ayrıca bu yığın akışını kontrol edin ve en iyi yanıt Wikipedia'daki aynı makaleye işaret eder.

Stax , 9 bayt

ü1∞╓♪εw≤+

Koşun ve staxlang.xyz de hata ayıklayın!

Ambalajsız (10 bayt) ve açıklama:

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 bayt

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

Çevrimiçi deneyin!

Pyth, 27 bayt

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

Test odası

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 bayt

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

Test odası

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 bayt

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

Çevrimiçi deneyin!

Jotlin , 59 bayt

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

Test programı

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}")
    }
}

Değişen 10'a kadar destekler .i(2)için .toLong(2)gerekirse 14 kadar destek vereceğini

Python 2,8 bayt

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 bayt

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

Çevrimiçi deneyin!

Dizeleri değil, sayısal vektörleri birleştirerek bazı baytlar kaydedildi. 0 için kanlı özel durum!