피보나치 시퀀스는 주변에서 꽤 잘 알려진 일이다. 심지어 자체 태그가 있습니다. 그러나 모든 것을 위해 우리는 우리의 뿌리를 고수하고 싶습니다 1, 1, ...(또는 0, 1, ...우리는 결코 알지 못할 수도 있습니다 ...). 이 챌린지에서 규칙은 동일하지만 n피보나치 시퀀스에서 th 항목 을 얻는 대신에 피보나치 시퀀스로 nth 항목을 가져옵니다 x, y, ....

입력

원하는 순서대로 3 개의 정수 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 % 확신하지만, 나에게 "이것을해라"고 말하지 말고 나에게 힌트를 찾아서 스스로 대답을 찾을 수 있도록하십시오. 보다 나은. 감사!

파이썬 2 , 37 바이트

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

온라인으로 사용해보십시오!

인덱스가 0이면 재귀 한계를 조정해야 할 수도 있습니다. n≥999

자바 스크립트 (ES6), 27 26 바이트

여기서 공상적인 것은 없으며 초기 값이 0 및 1 인 표준 JS 피보나치 함수 만 제거되었습니다.

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>

파이썬 2, 40 바이트

0- 색인
온라인 사용해보기

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

하스켈 , 30 바이트

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

온라인으로 사용해보십시오! 인덱스가 0입니다. (x#y)n예 (0#1)5를 들어 원래 시퀀스의 다섯 번째 요소에 로 사용하십시오 .

Haskell에서 피보나치 시퀀스를 얻는 가장 짧은 방법 은 시퀀스를 포함 f=0:scanl(+)1f하는 무한 목록을 정의하는 것 f=[0,1,1,2,3,5,8,...]입니다. 교체 0및 1인수 x및 y수율 사용자 정의 순서. (f!!)그런 다음의 n 번째 요소를 반환하는 함수입니다 f.

Mathematica, 36 바이트

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

입력

[n, x, y]

PowerShell , 40 바이트

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

온라인으로 사용해보십시오!

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

온라인으로 사용해보십시오!

Leaky Nun의 답변을 골프에서 시작하여 완전히 다른 무언가에 도착했습니다.

이것에는 규칙이 (Nᵗʰ, (N+1)ᵗʰ)있으며 데이터베이스 관리 를 ((N-1)ᵗʰ, Nᵗʰ)사용 하여 런타임에 0ᵗʰ 및 1ˢᵗ 요소를 주장합니다.

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되고 when n==0입니다. 그런 다음 두 숫자 중 가장 낮은 숫자가 반환되어 n-th 값이 반환 됩니다.

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

나는 Lisp 멍청한 놈이므로 모든 팁을 주시면 감사하겠습니다.)

설명:

(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 바이트

-10을위한 @JoKing에게 감사합니다!

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

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 기본, 32 바이트

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