이 질문 에서 원래 @DJMcMayhem 이 발명 한 N-bonacci 시퀀스 는 정수 0과 1로 시작한 다음 이전 N 숫자를 더하여 다음 숫자를 생성하여 생성 된 시퀀스입니다. 특수 N- 보나 치 시퀀스는 0과 1 이외의 숫자 쌍으로 시작하는 N- 보나 치 시퀀스이며 X와 Y로 이름이 지정됩니다. N이 시퀀스에 이미있는 항의 수보다 큰 경우 사용 가능한 모든 항목을 추가하면됩니다. 자귀.

예를 들어, 정상적인 피보나치 수열은 요청한 사람에 따라 N이 2이고 (앞의 두 항목을 취함) X와 Y가 0과 1 또는 1과 1입니다.

당신의 작업 :

입력 된 정수 (A)가 다음 세 정수에 의해 생성 된 특수 N- 보나 치 시퀀스의 일부인지 확인하는 프로그램 또는 함수를 작성해야합니다 (두 번째 입력은 N으로, 세 번째와 네 번째는 X와 Y로 사용). . 특수한 경우 N = 1을 처리해야합니다.

입력:

네 개의 음이 아닌 정수, A, N, X 및 Y

산출:

A가 N, X 및 Y 입력에 의해 생성 된 N- 보나 치 시퀀스의 일부인지 여부를 나타내는 참 / 거짓 값입니다.

테스트 사례 :

Input:    Output:
13,2,0,1->truthy
12,3,1,4->falsy
4,5,0,1-->truthy
8,1,8,9-->truthy
9,1,8,9-->truthy

12,5,0,1->falsy  [0,1]>[0,1,1]>[0,1,1,2]>[0,1,1,2,4]>[0,1,1,2,4,8]>[0,1,1,2,4,8,16]>etc.  

채점 :

이것은 code-golf 이므로 바이트 단위의 최저 점수가 이깁니다.

젤리 , 12 바이트

ḣ⁴S;µṀ<⁵µ¿⁵e

[X,Y],,을 (를 N) 복용하는 전체 프로그램 A.

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

어떻게?

ḣ⁴S;µṀ<⁵µ¿⁵e - Main link (monadic): [X,Y]
    µ   µ¿   - while:
     Ṁ       -   maximum value of the list
       ⁵     -   5th command line argument (3rd input) = A
      <      -   less than?
             - ...do:
 ⁴           -   4th command line argument (2nd input) = N
ḣ            -   head (get the first N (or less) items from the list)
  S          -   sum
   ;         -   concatenate (add the result to the front of the list)
          ⁵  - 5th command line argument (3rd input) = A
           e - exists in the resulting list?

05AB1E , 18 바이트

[DR²£O©‚˜³®>‹#]³QZ

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

용도 : [X,Y], N, A

의도하지 않은 기능으로 인해 필요 이상으로 힘들어졌습니다.

크거나 같지 않으며 이전에는 눈치 채지 못했습니다.

그리고 #³작동하지 않았으며 ]+1 바이트에 대해 필요했습니다 #]³.

파이썬 2 , 59 56 바이트

a,n,l=input()
while l[0]<a:l=[sum(l[:n])]+l
print a in l

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

다음과 같이 입력을받습니다. A,N,[X,Y]

펄 6 , 47 바이트

->\A,\N,\X,\Y{A∈(X,Y,{[+] @_.tail(N)}...*>A)}

그것을 테스트

넓히는:

->
  \A,
  \N,
  \X, \Y
{
    A          # is ｢A｣

  ∈            # an element of

    (          # this Sequence

      X, Y,        # seed values of sequence

      {            # generate the rest of the Seq using this code block

        [+]        # reduce by addition

          @_       # of all previously generated values
          .tail(N) # only use the last ｢N｣ of them
      }

      ...          # keep generating values until

      * > A        # it is greater than ｢A｣

    )
}

파이썬 2, 50 바이트

a,n,l=input()
while[a]>l:l=[sum(l[:n])]+l
a in l>x

로 입력을 A,N,[Y,X]받습니다. 종료 코드를 통해 출력합니다.

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

R , 69 60 바이트

function(a,n,l){while(l<a)l=c(sum(l[1:n],na.rm=T),l)
a%in%l}

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

익명 함수, taking a,n과 vector를 반환합니다 l=c(y,x). while(l<a)의 첫 번째 요소 만 확인하기 때문에 N- 보나 치 시퀀스를 거꾸로 구성합니다 (즉, 더 작은 인덱스가 시퀀스에 더 있음) l.

공통 리스프, 164 바이트

(defun f(a n x y &aux(l(list y x)))(if(= n 1)(or(= a x)(= a y))(loop(if(<= a(car l))(return(member a l))(setf l(cons(reduce'+ l)(if(<(length l)n)l(butlast l))))))))

이 함수는 Common Lisp NIL의 일반화 된 부울 정의에 따라 true, non-NIL을 리턴 합니다 .

(defun f(a n x y &aux (l (list y x)))    ; initialize a list l for the N values
  (if (= n 1)                            ; special case for N = 1
      (or (= a x) (= a y))               ;    true only if A = X or A = Y
      (loop
        (if (<= a (car l))               ; when the last number generated is greater than A
            (return (member a l))        ; return true if A is in the list
            (setf l (cons (reduce '+ l)  ; otherwise compute the sum of l
                          (if (< (length l) n)   ; and push it to l (truncating the list at 
                              l                  ; end if it has already size = N)
                              (butlast l))))))))

k, 29 바이트

{x=*(*x>){(x=#y)_y,+/y}[y]/z}

온라인으로 사용해보십시오! 1진실하고 0거짓입니다. 입력은 [A;N;X,Y]입니다.

PHP> = 7.1, 103 바이트

for([,$n,$d,$s,$e]=$argv,$f=[$s,$e];$x<$n;)$x=$f[]=array_sum(array_slice($f,-$d));echo+in_array($n,$f);

테스트 케이스

수학, 94 바이트

(s={#3,#4};t=1;While[t<#2-1,s~AppendTo~Tr@s;t++];!LinearRecurrence[1~Table~#2,s,#^2]~FreeQ~#)&

입력 형식

[A, N, X, Y]