Fibonacci dizisi buralarda oldukça iyi bilinen bir şeydir. Heck, hatta kendi etiketi var. Ancak, tüm bunlar için köklerimize bağlı kalmaktan eminiz 1, 1, ...(ya da öyle 0, 1, ...mi? Asla bilemeyiz ...). Bu zorlukla, kurallar aynıdır, ancak nFibonacci dizisindeki üçüncü maddeyi almak yerine n, Fibonacci-esque dizisindeki ilk maddeyi alacaksınız x, y, ....

Giriş

Üç tamsayı, istediğiniz sırada. nÇıktınızın dizisindeki terimin dizinidir (0 veya 1 dizinlenir). xve yşu anki programınızdaki Fibonacci dizisindeki ilk iki öğe.

Çıktı

nİle başlayan Fibonacci sırayla inci terimi x, y.

Test Kılıfları

(0 endeksli)

n   x     y     out
5   0     0     0
6   0     1     8
6   1     1     13
2   5     5     10
10  2     2     178
3   3     10    23
13  2308  4261  1325165
0   0     1     0
1   0     1     1

(1 endeksli)

n   x     y     out
6   0     0     0
7   0     1     8
7   1     1     13
3   5     5     10
11  2     2     178
4   3     10    23
14  2308  4261  1325165
1   0     1     0
2   0     1     1

Uyarılar

Varsayın 0 <= x <= y.

Lütfen giriş sıranızı not edin (sabit olmalıdır).

Jöle , 3 bayt

+¡ạ

Alır x , y ve n, sırayla, ayrı komut satırı bağımsız değişkenleri olarak (endeksli 0).

Çevrimiçi deneyin!

Nasıl çalışır

+¡ạ  Main link. Left argument: x. Right argument: y. Third argument: n

  ạ  Yield abs(x - y) = y - x, the (-1)-th value of the Lucas sequence.
+¡   Add the quicklink's left and right argument (initially x and y-x), replacing
     the right argument with the left one and the left argument with the result.
     Do this n times and return the final value of the left argument.

CJam , 14 9 bayt

l~{_@+}*;

Çevrimiçi deneyin!

Giriş formatı "xy n" dir. Hâlâ bu işte asılsızım, bu yüzden% 100 eminim ki bunu yapmanın daha iyi yolları var, ama lütfen bana "bunu yap" diyerek yerine cevabı kendim bulabilmem için bana sadece ipucu vermeye çalışın. daha iyi. Teşekkürler!

Python 2 , 37 bayt

f=lambda x,y,n:n and f(y,x+y,n-1)or x

Çevrimiçi deneyin!

0 indeksli, için tekrarlama sınırını ayarlamanız gerekebilir. n≥999

JavaScript (ES6), 27 26 bayt

Hiçbir şey fantezi, sadece 0 & 1 başlangıç ​​değerleri kaldırıldı, standart bir JS Fibonacci işlevi.

n=>g=(x,y)=>n--?g(y,x+y):x

Dene

f=
n=>g=(x,y)=>n--?g(y,x+y):x
o.value=f(i.value=13)(j.value=2308,k.value=4261)
oninput=_=>o.value=f(+i.value)(+j.value,+k.value)

*{font-family:sans-serif;}
input{margin:0 5px 0 0;width:50px;}
#o{width:75px;}

<label for=i>n: </label><input id=i type=number><label for=j>x: </label><input id=j type=number><label for=k>y: </label><input id=k type=number><label for=o>= </label><input id=o>

Python 2,40 bayt

0 endeksli
Çevrimiçi deneyin

n,a,b=input()
exec'a,b=b,a+b;'*n
print a

Haskell , 30 bayt

x#y=(f!!)where f=x:scanl(+)y f

Çevrimiçi deneyin! 0 endeksli. Olarak kullanımı (x#y)n, örneğin, (0#1)5orijinal dizi beşinci elemanı için.

Haskell'de Fibonacci dizisini elde etmenin en muhtemel en kısa yolu , diziyi içeren f=0:scanl(+)1fsonsuz bir liste tanımlamaktır f=[0,1,1,2,3,5,8,...]. Takma 0ve 1bağımsız değişken xve yverimleri özel sekansı. (f!!)o zaman nth elemanını döndüren bir fonksiyondur f.

Mathematica, 36 bayt

LinearRecurrence[{1,1},{##2},{#+1}]&

giriş

[N, x, y]

PowerShell , 40 bayt

$n,$x,$y=$args;2..$n|%{$y=$x+($x=$y)};$y

Çevrimiçi deneyin!

Brain-Flak , 38 bayt

{({}[()]<(({}<>)<>{}<(<>{}<>)>)>)}{}{}

Çevrimiçi deneyin!

{({}[()]<                      >)}     # For n .. 0
         (({}<>)<>            )        # Copy TOS to the other stack and add it to...
                  {}                   # The second value
                    <(<>{}<>)>         # Copy what was TOS back
                                  {}{} # Pop the counter and the n+1th result

Ruby, 27 bayt

->a,b,n{n.times{b=a+a=b};a}

Jöle , 6 bayt

;SḊµ¡I

Çevrimiçi deneyin!

açıklama

   µ¡  - repeat n times (computes the n+1th and n+2th element):
 S     -  take the sum of the elements of the previous iteration (starting at (x,y))
;      -  append to the end of the previous iteration
  Ḋ    -  remove the first element
     I - Take the difference of the n+1th and n+2th to get the n-th.

TAESGL , 4 bayt

ēB)Ė

1 endeksli

yorumlayıcı

açıklama

Giriş olarak alınan n,[x,y]

 ēB)Ė
AēB)     get implicit input "A" Fibonacci numbers where "B" is [x,y]
    Ė    pop the last item in the array

Prolog (SWI) , 77 bayt

f(N,Y,Z):-M is N-1,f(M,X,Y),Z is X+Y.
l(N,A,B,X):-asserta(f(0,A,B)),f(N,X,_).

Çevrimiçi deneyin!

Leaky Nun'un cevabını golf oynamaya başladı ve tamamen farklı bir şeye ulaştım .

Bunun kural (Nᵗʰ, (N+1)ᵗʰ)açısından bir kuralı var ve çalışma zamanında 0ᵗʰ ve 1ˢᵗ elemanlarını belirtmek ((N-1)ᵗʰ, Nᵗʰ)için veritabanı yönetimini kullanıyor .

f(N,X,Y)aracı Nᵗʰelemanıdır Xve (N+1)ᵗʰelemanıdır Y.

Oktav , 24 bayt

@(n,x)(x*[0,1;1,1]^n)(1)

Girdi biçimi: n,[x,y].

Çevrimiçi deneyin!

Braingolf , 15 bayt

VR<2-M[R!+v]R_;

_; Braingolf'un en son sürümünde artık gerekli değildir, ancak bu ~ 5 dakika önce olduğu için rekabet edemez.

Python 2 , 112 bayt

1 endeksli.

import itertools
def f(x,y):
 while 1:yield x;x,y=y,x+y
def g(x,y,n):return next(itertools.islice(f(x,y),n-1,n))

Çevrimiçi deneyin!

MATL , 7 bayt

:"wy+]x

Çıktı 0 tabanlıdır.

Denemek MATL Online'da !

açıklama

Girişlerin gösterilmesine izin verin n(dizin) a,, b(başlangıç ​​terimleri).

:"     % Implicitly input n. Do this n times
       %   At this point in each iteration, the stack contains the two most
       %   recently computed terms of the sequence, say s, t. In the first
       %   iteration the stack is empty, but a, b will be implicitly input
       %   by the next statement
  w    %   Swap. The stack contains t, s
  y    %   Duplicate from below. The stack contains t, s, t
  +    %   Add. The stack contains t, s+t. These are now the new two most
       %   recently comnputed terms
]      % End
x      % Delete (we have computed one term too many). Implicitly display

R, 39 bayt

f=function(x,y,n)'if'(n,f(y,x+y,n-1),x)

Basit bir özyinelemeli işlev. Tuhaftır, bu atamak zorunda değildir, çünkü (yerleşik ins olmadan) düzenli Fibonacci dizisi için elde edebilirsiniz şey daha kısadır 1hem xve y= P

n+1İlk değerler dahil dizinin sayılarını hesaplar . Her tekrarlama n-1ne zaman ile hesaplanır ve durdurulur n==0. İki sayının en düşüğü daha sonra döndürülür, n-th değerini geri verir.

dc , 36 bayt

?sdsbsa[lddlb+sdsbla1-dsa1<c]dscxldp

Çevrimiçi deneyin!

0-indexed. Giriş biçiminde olmalıdır n x y.

PHP> = 7.1, 55 Bayt

for([,$n,$x,$y]=$argv;$n--;$x=$y,$y=$t)$t=$x+$y;echo$x;

Çevrimiçi sürüm

PHP> = 7.1, 73 Bayt

for([,$n,$x,$y]=$argv,$r=[$x,$y];$i<$n;)$r[]=$r[+$i]+$r[++$i];echo$r[$n];

Çevrimiçi sürüm

Ortak Lisp, 49 Bayt, 0 dizinli

(defun fib(n x y)(if(= 0 n)x(fib(1- n)y(+ x y))))

Lisp noob, bu yüzden herhangi bir ipucu takdir edilecektir;

Açıklama:

(defun fib(n x y)                                  | Define a function taking 3 arguments
                 (if(= 0 n)x                       | If n = 0, return x
                            (fib(1- n)y(+ x y))))  | Otherwise, call fib with n-1, y, and x+y

Prolog (SWI) , 85 bayt

l(0,X,Y,X).
l(1,X,Y,Y).
l(N,X,Y,C):-M is N-1,P is N-2,l(M,X,Y,A),l(P,X,Y,B),C is A+B.

Çevrimiçi deneyin!

0 endeksli.

br ** nfuck, 39 29 bayt

-10 için @JoKing'e teşekkürler!

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

TIO bunun için özellikle iyi çalışmayacak (ya da sayılar içeren bir soruna herhangi bir BF çözümü için). @ Timwi'nin Ezoterik'in (veya KÇ'nin kendiniz tarafından uygulandığını) şiddetle tavsiye ediyorum .

Alır xsonra y, o zaman n. 0 endeksli. Sınırlandırılmamış veya sarma bir bant varsayar.

açıklama

,<,<,            Take inputs. Tape: [n, y, x]
[                While n:
  > [->+>+<<]      Add y to x, copying it to the next cell along as well. Tape: [n, 0, x+y, y]
  < [>+<-]         Move n over. Tape: [0, n, x+y, y]
  >-               Decrement n.
] >>.            End loop. Print cell 2 to the right (x for n == 0).

C (gcc) , 29 bayt

f(n,x,y){n=n?f(n-1,y,x+y):x;}

Çevrimiçi deneyin!

Bu uygulama 0 tabanlıdır.

05AB1E , 9 bayt

`©GDŠ+}®@

Çevrimiçi deneyin!

açıklama

`           # split inputs as separate to stack
 ©          # store n in register
  G         # n-1 times do
   D        # duplicate top of stack
    Š       # move down 2 places on stack
     +      # add top 2 values of stack
      }     # end loop
       ®@   # get the value nth value from the bottom of stack

Lua , 44 bayt

0-Endeksli

n,x,y=...for i=1,n do
x,y=y,x+y
end
print(x)

Çevrimiçi deneyin!

Klein , 18 + 3 bayt

Bu 000topolojiyi kullanır

:?\(:(+)$)1-+
((/@

Formdaki giriş iletin x y n.

Aksiyom, 88 57 bayt

f(k,x,y)==(repeat(k<=0=>break;c:=y;y:=x+y;x:=c;k:=k-1);x)

bu önerilen testi geçecektir (0 endeksli)

(14) -> f(5,0,0)
   (14)  0
                                                 Type: NonNegativeInteger
(15) -> f(6,0,1)
   (15)  8
                                                    Type: PositiveInteger
(16) -> f(2,5,5)
   (16)  10
                                                    Type: PositiveInteger
(17) -> f(10,2,2)
   (17)  178
                                                    Type: PositiveInteger
(18) -> f(3,3,10)
   (18)  23
                                                    Type: PositiveInteger
(19) -> f(13,2308,4261)
   (19)  1325165
                                                    Type: PositiveInteger

Retina , 37 bayt

\d+
$*1
+`(1*) (1*) 1
$2 $1$2 
 .*

1

Çevrimiçi deneyin!

0 tabanlı, x y nboşlukla ayrılmış. Unary cinsinden hesaplar.

TI-Basic, 32 bayt

Prompt N,X,Y
While N
X+Y➡Z
Y➡X
Z➡Y
DS<(N,0
End
X