N-bonacci序列最初是由@DJMcMayhem在此问题中发明的，它是通过以整数0和1开头，然后加上前N个数字以生成下一个数字而生成的序列。特殊的N-bonacci序列是一个以0和1以外的一对数字开头的N-bonacci序列，它们将被命名为X和Y。如果N大于序列中已经存在的项数，只需添加所有可用的条款。

因此，例如正常的斐波那契数列的N为2（取前两项），X和Y为0和1，或者1和1，具体取决于您问谁。

你的任务：

您将编写一个程序或函数来检查输入的整数（A）是否是由接下来的三个整数生成的特殊N-bonacci序列的一部分（将第二个输入用作N，将第三个和第四个用作X和Y） 。确保处理N = 1的特殊情况。

输入：

四个非负整数A，N，X和Y。

输出：

真/假值，指示A是否为N，X和Y输入生成的N-bonacci序列的一部分。

测试用例：

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.  

得分：

这是代码高尔夫球，因此以字节为单位的最低分数获胜。

果冻，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个字节#]³。

Python 2和59 56个字节

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

在线尝试！

输入为 A,N,[X,Y]

Perl 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｣

    )
}

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

在线尝试！

返回一个匿名函数，采用a,n和vector l=c(y,x)。向后构造N-bonacci序列（即，序列中的索引更小），因为while(l<a)仅检查的第一个元素l。

普通Lisp，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))))))))

此函数返回NILfalse，非NIL 返回true（根据Common Lisp 的广义布尔值的定义）。

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

测试用例

Mathematica，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]