Послідовність Фібоначчі тут досить відома річ. Чорт забирай, у нього навіть є власний тег. Однак при всьому цьому ми впевнені, що ми хочемо дотримуватися своїх коренів 1, 1, ...(чи це 0, 1, ...? Ми може ніколи не дізнаємось ...). У цьому виклику правила однакові, але замість того, щоб отримати цей nелемент у послідовності Фібоначчі, ви отримаєте nго елемент у послідовності Фібоначчі, починаючи з x, y, ....

Вхідні дані

Три цілі числа в будь-якому порядку, який ви хочете. n- індекс (0 або 1 індексований) терміна в послідовності для вашого виводу. xі yє першими двома пунктами послідовності фібоначчі поточної програми.

Вихідні дані

n- Й член послідовності Фібоначчі , починаючи з x, y.

Випробування

(0-індексовано)

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-індексований)

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

Коваджі

Припустимо 0 <= x <= y.

Зверніть увагу, що ваше замовлення на введення (повинно бути постійним).

Желе , 3 байти

+¡ạ

Приймає x , y і n (0-індексований) як окремі аргументи командного рядка в такому порядку.

Спробуйте в Інтернеті!

Як це працює

+¡ạ  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 байт

l~{_@+}*;

Спробуйте в Інтернеті!

Формат вводу - "xy n". Я все ще ноб у цьому, тому я на 100% впевнений, що є кращі способи це зробити, але, будь ласка, замість того, щоб сказати мені "зробіть це", спробуйте лише дати мені підказки, щоб я міг знайти відповідь і отримати краще. Спасибі!

Python 2 , 37 байт

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

Спробуйте в Інтернеті!

0-індексовано, можливо, вам доведеться відрегулювати межу рекурсії для n≥999

JavaScript (ES6), 27 26 байт

Тут нічого фантазійного, лише стандартна функція JS Фібоначчі з початковими значеннями 0 та 1 знята.

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

Спробуй це

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 байт

0-індексований
Спробуйте в Інтернеті

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

Haskell , 30 байт

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

Спробуйте в Інтернеті! 0-індексований. Використовуйте як (x#y)n, наприклад, (0#1)5для п'ятого елемента вихідної послідовності.

Найімовірніший найкоротший спосіб отримати послідовність Фібоначчі в Хаскеллі f=0:scanl(+)1f, який визначає нескінченний список, f=[0,1,1,2,3,5,8,...]що містить послідовність. Заміна 0і 1з аргументами xі yвиходами для користувача послідовностей. (f!!)є функцією, що повертає n-й елемент f.

Математика, 36 байт

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

вхід

[n, x, y]

PowerShell , 40 байт

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

Спробуйте в Інтернеті!

Мозок-Флак , 38 байт

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

Спробуйте в Інтернеті!

{({}[()]<                      >)}     # 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

Рубін, 27 байт

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

Желе , 6 байт

;SḊµ¡I

Спробуйте в Інтернеті!

Пояснення

   µ¡  - 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 байти

ēB)Ė

1-індексований

Перекладач

Пояснення

Вхід прийнято як n,[x,y]

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

Пролог (SWI) , 77 байт

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,_).

Спробуйте в Інтернеті!

Почав з відповіді на гольф Лікі Нун і прийшов до чогось зовсім іншого.

У цьому є правило для (Nᵗʰ, (N+1)ᵗʰ) точки зору ((N-1)ᵗʰ, Nᵗʰ)та використовує управління базами даних для затвердження 0ᵗʰ та 1 at елементів під час виконання.

f(N,X,Y)означає, що Nᵗʰелемент є, Xа (N+1)ᵗʰелемент є Y.

Октава , 24 байти

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

Формат введення: n,[x,y] .

Спробуйте в Інтернеті!

Braingolf , 15 байт

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

_; більше не потрібна остання версія Braingolf, однак це сталося ~ 5 хвилин тому, тому було б неконкурентоспроможним.

Пітон 2 , 112 байт

1-індексований.

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

Спробуйте в Інтернеті!

MATL , 7 байт

:"wy+]x

Вихідний результат заснований на 0.

Спробуйте в MATL Online!

Пояснення

Нехай входи позначать n(індекс) a, b(вихідні терміни).

:"     % 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 байт

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

Проста рекурсивна функція. Як не дивно, це коротше всього, що я можу придумати для звичайної послідовності Фібоначчі (без вбудованих модулів), тому що для цього не потрібно призначати1 обом xі y= P

Обчислює n+1числа послідовності, включаючи початкові значення. Кожна рекурсія обчислюється за допомогою n-1та зупиняється, коли n==0. Потім повертається найнижчий з двох чисел, повертаючи n-ве значення.

постійного струму , 36 байт

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

Спробуйте в Інтернеті!

0-індексований. Введення має бути у форматі n x y.

PHP> = 7,1, 55 байт

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

Інтернет-версія

PHP> = 7,1, 73 байт

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

Інтернет-версія

Лист звичайний, 49 байт, 0-індексований

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

Я Lisb noob, тому будь-які поради будуть вдячні;)

Пояснення:

(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

Пролог (SWI) , 85 байт

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.

Спробуйте в Інтернеті!

0-індексований.

br ** nfuck, 39 29 байт

Дякуємо @JoKing за -10!

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

TIO не працюватиме особливо добре для цього (або для будь-якого рішення BF проблеми, пов’язаної з числами). Я настійно рекомендую @ Timwi в EsotericIDE (або реалізації BF себе).

Бере x, то y, тоn . 0-індексований. Передбачає необмежену або обгорткову стрічку.

Пояснення

,<,<,            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 байт

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

Спробуйте в Інтернеті!

Ця реалізація базується на 0.

05AB1E , 9 байт

`©GDŠ+}®@

Спробуйте в Інтернеті!

Пояснення

`           # 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

Луа , 44 байти

0-індексовано

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

Спробуйте в Інтернеті!

Кляйн , 18 + 3 байти

При цьому використовується 000топологія

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

Введіть дані у формі x y n.

Аксіома, 88 57 байт

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

це пройде запропонований тест (0 індексовано)

(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

Сітківка , 37 байт

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

1

Спробуйте в Інтернеті!

На основі 0, займає x y nрозділений пробіл. Розраховується в одинаковому розмірі.

TI-Basic, 32 байти

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