Ini tidak diketahui secara luas, tetapi apa yang kita sebut urutan Fibonacci, AKA

1, 1, 2, 3, 5, 8, 13, 21, 34...

sebenarnya disebut deret Duonacci . Ini karena untuk mendapatkan nomor berikutnya, Anda menjumlahkan 2 angka sebelumnya. Ada juga deret Tribonacci ,

1, 1, 1, 3, 5, 9, 17, 31, 57, 105, 193, 355, 653, 1201...

karena angka selanjutnya adalah jumlah dari 3 angka sebelumnya. Dan urutan Quadronacci

1, 1, 1, 1, 4, 7, 13, 25, 49, 94, 181, 349, 673...

Dan favorit semua orang, urutan Pentanacci :

1, 1, 1, 1, 1, 5, 9, 17, 33, 65, 129...

Dan Hexanacci urutan, yang Septanacci urutan, yang Octonacci urutan, dan seterusnya dan sebagainya sampai dengan urutan N-Bonacci.

Urutan N-bonacci akan selalu dimulai dengan N 1s berturut-turut.

Tantangan

Anda harus menulis fungsi atau program yang mengambil dua angka N dan X , dan mencetak angka X N-Bonacci pertama. N akan menjadi bilangan bulat yang lebih besar dari 0, dan Anda dapat dengan aman menganggap tidak ada angka N-Bonacci yang akan melebihi tipe angka default dalam bahasa Anda. Outputnya bisa dalam format apa pun yang dapat dibaca manusia, dan Anda dapat mengambil input dengan cara apa pun yang masuk akal. (Argumen baris perintah, argumen fungsi, STDIN, dll.)

Seperti biasa, ini adalah Code-golf, jadi celah standar berlaku dan jawaban terpendek dalam byte menang!

Contoh IO

#n,  x,     output
 3,  8  --> 1, 1, 1, 3, 5, 9, 17, 31
 7,  13 --> 1, 1, 1, 1, 1, 1, 1, 7, 13, 25, 49, 97, 193
 1,  20 --> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
 30, 4  --> 1, 1, 1, 1       //Since the first 30 are all 1's
 5,  11 --> 1, 1, 1, 1, 1, 5, 9, 17, 33, 65, 129

Boolfuck, 6 byte

,,[;+]

Anda dapat dengan aman mengasumsikan tidak ada nomor N-Bonacci yang akan melebihi jenis nomor default dalam bahasa Anda.

Jenis angka default di Boolfuck sedikit. Dengan asumsi ini juga meluas ke angka input N dan X, dan mengingat bahwa N> 0, hanya ada dua input yang mungkin - 10 (yang tidak menghasilkan apa-apa) dan 11 (yang menghasilkan 1).

,membaca sedikit ke lokasi memori saat ini. N diabaikan sebagaimana mestinya 1. Jika X adalah 0, badan loop (dikelilingi oleh []) dilewati. Jika X adalah 1, itu adalah output dan kemudian dibalik ke 0 sehingga loop tidak berulang.

Python 2, 79 byte

n,x=input()
i,f=0,[]
while i<x:v=[sum(f[i-n:]),1][i<n];f.append(v);print v;i+=1

Cobalah online

Pyth, 13

<Qu+Gs>QGEm1Q

Test Suite

Membawa input baris baru terpisah, dengan yang npertama.

Penjelasan:

<Qu+Gs>QGEm1Q  ##  implicit: Q = eval(input)
  u      Em1Q  ##  read a line of input, and reduce that many times starting with
               ##  Q 1s in a list, with a lambda G,H
               ##  where G is the old value and H is the new one
   +G          ##  append to the old value
     s>QG      ##  the sum of the last Q values of the old value
<Q             ##  discard the last Q values of this list

Haskell, 56 byte

g l=sum l:g(sum l:init l)
n#x|i<-1<$[1..n]=take x$i++g i

Contoh penggunaan: 3 # 8-> [1,1,1,3,5,9,17,31].

Bagaimana itu bekerja

i<-1<$[1..n]           -- bind i to n copies of 1
take x                 -- take the first x elements of
       i++g i          -- the list starting with i followed by (g i), which is
sum l:                 -- the sum of it's argument followed by
      g(sum l:init l)  -- a recursive call to itself with the the first element
                       -- of the argument list replaced by the sum

Python 2, 55 byte

def f(x,n):l=[1]*n;exec"print l[0];l=l[1:]+[sum(l)];"*x

Melacak njendela panjang urutan dalam daftar l, diperbarui dengan menambahkan jumlah dan menghapus elemen pertama. Mencetak elemen pertama setiap iterasi untuk xiterasi.

Pendekatan yang berbeda untuk menyimpan semua elemen dan menjumlahkan nilai terakhir nmemberikan panjang yang sama (55).

def f(x,n):l=[1]*n;exec"l+=sum(l[-n:]),;"*x;print l[:x]

Javascript ES6 / ES2015, 107 97 85 80 Bytes

Terima kasih kepada @ user81655, @Neil dan @ETHproduk untuk menghemat beberapa byte

(i,n)=>eval("for(l=Array(i).fill(1);n-->i;)l.push(eval(l.slice(-i).join`+`));l")

coba online

Kasus uji:

console.log(f(3,  8))// 1, 1, 1, 3, 5, 9, 17, 31
console.log(f(7,  13))// 1, 1, 1, 1, 1, 1, 1, 7, 13, 25, 49, 97, 193
console.log(f(5,  11))// 1, 1, 1, 1, 1, 5, 9, 17, 33, 65, 129

ES6, 66 byte

(i,n)=>[...Array(n)].map((_,j,a)=>a[j]=j<i?1:j-i?s+=s-a[j+~i]:s=i)

Sedihnya maptidak akan membiarkan Anda mengakses array hasil di callback.

Jelly, 12 byte

ḣ³S;
b1Ç⁴¡Uḣ

Cobalah online!

Bagaimana itu bekerja

b1Ç⁴¡Uḣ  Main link. Left input: n. Right input: x.

b1       Convert n to base 1.
    ¡    Call...
  Ç        the helper link...
   ⁴       x times.
     U   Reverse the resulting array.
      ḣ  Take its first x elements.


ḣ³S;     Helper link. Argument: A (list)

ḣ³       Take the first n elements of A.
  S      Compute their sum.
   ;     Prepend the sum to A.

C ++ 11, 360 byte

Hai, saya suka pertanyaan ini. Saya tahu c ++ adalah bahasa yang sangat sulit untuk memenangkan kompetisi ini. Tapi aku akan melempar uang receh dengan cara apa pun.

#include<vector>
#include<numeric>
#include<iostream>
using namespace std;typedef vector<int>v;void p(v& i) {for(auto&v:i)cout<<v<<" ";cout<<endl;}v b(int s,int n){v r(n<s?n:s,1);r.reserve(n);for(auto i=r.begin();r.size()<n;i++){r.push_back(accumulate(i,i+s,0));}return r;}int main(int c, char** a){if(c<3)return 1;v s=b(atoi(a[1]),atoi(a[2]));p(s);return 0;}

Saya akan meninggalkan ini sebagai penjelasan yang dapat dibaca dari kode di atas.

#include <vector>
#include <numeric>
#include <iostream>

using namespace std;
typedef vector<int> vi;

void p(const vi& in) {
    for (auto& v : in )
        cout << v << " ";
    cout << endl;
}

vi bonacci(int se, int n) {
    vi s(n < se? n : se, 1);
    s.reserve(n);
    for (auto it = s.begin(); s.size() < n; it++){
        s.push_back(accumulate(it, it + se, 0));
    }
    return s;
}

int main (int c, char** v) {
    if (c < 3) return 1;
    vi s = bonacci(atoi(v[1]), atoi(v[2]));
    p(s);
    return 0;
}

Haskell , 47 byte

q(h:t)=h:q(t++[h+sum t])
n?x=take x$q$1<$[1..n]

Cobalah online!

<$ mungkin telah diperkenalkan ke Prelude setelah tantangan ini diposting.

Haskell , 53 byte

n%i|i>n=sum$map(n%)[i-n..i-1]|0<1=1
n?x=map(n%)[1..x]

Cobalah online!

Menentukan fungsi biner ?, digunakan seperti 3?8 == [1,1,1,3,5,9,17,31].

Fungsi bantu %secara rekursif menemukan ielemen th dari nurutan -bonacci dengan menjumlahkan nilai sebelumnya n. Kemudian, fungsi ?mentabulasikan nilai pertama xdari %.

APL, 21

{⍵↑⍺{⍵,+/⍺↑⌽⍵}⍣⍵+⍺/1}

Ini adalah fungsi yang mengambil n sebagai argumen kiri dan x sebagai argumen kanannya.

Penjelasan:

{⍵↑⍺{⍵,+/⍺↑⌽⍵}⍣⍵+⍺/1}
                   ⍺/1  ⍝ begin state: X ones    
                  +     ⍝ identity function (to separate it from the ⍵)
    ⍺{         }⍣⍵     ⍝ apply this function N times to it with X as left argument
      ⍵,               ⍝ result of the previous iteration, followed by...
        +/              ⍝ the sum of
          ⍺↑            ⍝ the first X of
            ⌽          ⍝ the reverse of
             ⍵         ⍝ the previous iteration
 ⍵↑                    ⍝ take the first X numbers of the result

Kasus uji:

      ↑⍕¨ {⍵↑⍺{⍵,+/⍺↑⌽⍵}⍣⍵+⍺/1} /¨ (3 8)(7 13)(1 20)(30 4)(5 11)
 1 1 1 3 5 9 17 31                       
 1 1 1 1 1 1 1 7 13 25 49 97 193         
 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
 1 1 1 1                                 
 1 1 1 1 1 5 9 17 33 65 129              

Python 3, 59

Disimpan 20 byte berkat FryAmTheEggman.

Bukan solusi yang bagus, tetapi akan bekerja untuk saat ini.

def r(n,x):f=[1]*n;exec('f+=[sum(f[-n:])];'*x);return f[:x]

Juga, ini beberapa contoh uji:

assert r(3, 8) == [1, 1, 1, 3, 5, 9, 17, 31]
assert r(7, 13) == [1, 1, 1, 1, 1, 1, 1, 7, 13, 25, 49, 97, 193]
assert r(30, 4) == [1, 1, 1, 1]

Java, 82 + 58 = 140 byte

Berfungsi untuk menemukan nomor ith n -bonacci ( 82 byte ):

int f(int i,int n){if(i<=n)return 1;int s=0,q=0;while(q++<n)s+=f(i-q,n);return s;}

Fungsi untuk mencetak pertama k n jumlah -bonacci ( 58 bytes ):

(k,n)->{for(int i=0;i<k;i++){System.out.println(f(i,n));}}

Brain-Flak , 144 124 122 byte

-20 byte terima kasih kepada Nitroden

Ini jawaban Brain-Flak pertamaku, dan aku yakin itu bisa diperbaiki. Bantuan apa pun dihargai.

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

Cobalah online!

Pari / GP , 46 byte

Fungsi pembangkit urutan adalah:

(n,m)->Vec(n--/(x-(2-1/x)/x^n)-1/(x-1)+O(x^m))

Cobalah online!

Julia, 78 byte

f(n,x)=(z=ones(Int,n);while endof(z)<x push!(z,sum(z[end-n+1:end]))end;z[1:x])

Ini adalah fungsi yang menerima dua integer dan mengembalikan array integer. Pendekatannya sederhana: Hasilkan array yang panjangnya n, lalu tambah array dengan menambahkan jumlah nelemen sebelumnya sampai array memiliki panjang x.

Tidak Disatukan:

function f(n, x)
    z = ones(Int, n)
    while endof(z) < x
        push!(z, sum(z[end-n+1:end]))
    end
    return z[1:x]
end

MATL , 22 26 byte

1tiXIX"i:XK"tPI:)sh]K)

Ini menggunakan rilis saat ini (10.2.1) dari bahasa / kompiler.

Cobalah online!

Beberapa byte tambahan :-( karena bug di G fungsi (rekatkan input; sekarang diperbaiki untuk rilis berikutnya)

Penjelasan

1tiXIX"      % input N. Copy to clipboard I. Build row array of N ones
i:XK         % input X. Build row array [1,2,...X]. Copy to clipboard I
"            % for loop: repeat X times. Consumes array [1,2,...X]
  t          % duplicate (initially array of N ones)
  PI:)       % flip array and take first N elements
  sh         % compute sum and append to array
]            % end
K)           % take the first X elements of array. Implicitly display

Perl 6 , 38 byte

->\N,\X{({@_[*-N..*].sum||1}...*)[^X]} # 38 bytes

-> \N, \X {
  (

    {

      @_[
        *-N .. * # previous N values
      ].sum      # added together

      ||     # if that produces 0 or an error
      1      # return 1

    } ... *  # produce an infinite list of such values

  )[^X]      # return the first X values produced
}

Pemakaian:

# give it a lexical name
my &n-bonacci = >\N,\X{…}

for ( (3,8), (7,13), (1,20), (30,4), (5,11), ) {
  say n-bonacci |@_
}

(1 1 1 3 5 9 17 31)
(1 1 1 1 1 1 1 7 13 25 49 97 193)
(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1)
(1 1 1 1)
(1 1 1 1 1 5 9 17 33 65 129)

C, 132 byte

Pendekatan rekursif lebih pendek dengan beberapa byte.

k,n;f(i,s,j){for(j=s=0;j<i&j++<n;)s+=f(i-j);return i<n?1:s;}main(_,v)int**v;{for(n=atoi(v[1]);k++<atoi(v[2]);)printf("%d ",f(k-1));}

Tidak disatukan

k,n; /* loop index, n */

f(i,s,j) /* recursive function */
{
    for(j=s=0;j<i && j++<n;) /* sum previous n n-bonacci values */
        s+=f(i-j);
    return i<n?1:s; /* return either sum or n, depending on what index we're at */
}

main(_,v) int **v;
{
    for(n=atoi(v[1]);k++<atoi(v[2]);) /* print out n-bonacci numbers */
        printf("%d ", f(k-1));
}

Sekam , 9 byte

↑§¡ȯΣ↑_B1

Cobalah online!

Mulai dari Base- 1representasi dari N (hanya daftar N yang) dan ¡teratively jumlah ( Σ) terakhir ( ↑_) N elemen dan menambahkan hasil ke dalam daftar. Akhirnya, ambil ( ↑) angka X pertama dalam daftar ini dan kembalikan.

Ruby , 41 byte

->a,b{r=[1]*a;b.times{z,*r=r<<r.sum;p z}}

Cobalah online!

R , 68 byte

function(n,x){a=1+!1:n;for(i in n+1:x){a[i]=sum(a[(i-n:1)])};a[1:x]}

Cobalah online!

K (ngn / k) , 26 24 byte

{(y-x){y,+/x#y}[-x]/x#1}

Cobalah online!

Perl 6, 52 ~ 72 47 ~ 67 byte

sub a($n,$x){EVAL("1,"x$n~"+*"x$n~"...*")[^$x]}

Membutuhkan modul MONKEY-SEE-NO-EVAL, karena kesalahan berikut:

=== MAAF! === Kesalahan saat mengkompilasi -e
EVAL adalah fungsi yang sangat berbahaya !!! (gunakan MONKEY-SEE-NO-EVAL untuk mengesampingkan,
tetapi hanya jika Anda SANGAT yakin data Anda tidak mengandung serangan injeksi)
pada -e: 1

$ perl6 -MMONKEY-SEE-NO-EVAL -e'a(3,8).say;sub a($n,$x){EVAL("1,"x$n~"+*"x$n~"...*")[^$x]}'
(1 1 1 3 5 9 17 31)

PHP , 78 byte

for(list(,$n,$x)=$argv;$i<$x;print${$i++}." ")$s+=$$i=$i<$n?1:$$d+$s-=${$d++};

Cobalah online!

-4 Bytes menggunakan PHP> = 7.1 [,$n,$x]sebagai gantilist(,$n,$x)

Jq 1,5 , 67 byte

def C:if length>X then.[:X]else.+=[.[-N:]|add]|C end;[range(N)|1]|C

Mengasumsikan input yang disediakan oleh N dan X misalnya

def N: 5;
def X: 11;

Diperluas

def C:                        # . is current array
    if length>X               # stop when array is as long as X
    then .[:X]                # return first X elements
    else .+=[.[-N:]|add] | C  # recursively add sum of last N elements to array
    end
;
  [range(N)|1]                # initial state
| C

Cobalah online!

J, 31 byte

]{.(],[:+/[{.])^:(-@[`]`(1#~[))

Tidak Disatukan:

] {. (] , [: +/ [ {. ])^:(-@[`]`(1 #~ [))

penjelasan

Saat-saat menyenangkan dengan kata kerja kekuatan dalam bentuk gerund-nya :

(-@[`]`(1 #~ [)) NB. gerund pre-processing

Rincian secara rinci:

• ] {. ...Ambil <right arg>elemen pertama dari semua hal ini ke kanan yang berfungsi ...
• <left> ^: <right>terapkan kata kerja <left>berulang <right>kali ... di mana <right>ditentukan oleh gerund tengah dalam (-@[] (1 #~ [), yaitu ], yaitu, arg kanan dilewatkan ke fungsi itu sendiri. Jadi apa <left>? ...
• (] , [: +/ [ {. ])Argumen kiri untuk seluruh frasa ini pertama-tama ditransformasikan oleh gerund pertama, yaitu -@[,. Itu berarti argumen kiri untuk frasa ini adalah negatif dari argumen kiri ke fungsi keseluruhan. Ini diperlukan agar frasa [ {. ]mengambil elemen terakhir dari daftar kembali yang kita bangun. Mereka kemudian dijumlahkan: +/. Dan akhirnya ditambahkan ke daftar pengembalian yang sama: ] ,.
• Jadi bagaimana daftar pengembalian diinisialisasi? Itulah yang dilakukan oleh gerund pra-pemrosesan ketiga: (1 #~ [)- ulangi 1 "arg kiri" beberapa kali.

Cobalah online!

Mathematica, 59 byte

((f@#=1)&/@Range@#;f@n_:=Tr[f[n-#]&/@Range@#];f/@Range@#2)&

Anda mungkin ingin melakukan Clear@fpanggilan fungsi. Argumennya n,x, sama seperti kasus uji.

Tidy , 36 byte

{x,n:n^recur(*tile(x,c(1)),sum@c,x)}

Cobalah online!

Penjelasan

{x,n:n^recur(*tile(x,c(1)),sum@c,x)}
{x,n:                              }   lambda taking parameters `x` and `n`
     n^                                take the first `n` terms of...
       recur(                     )        a recursive function
             *tile(x,c(1)),                whose seed is `x` `1`s
                           sum@c,          taking the sum of each window
                                 x         with a window size of `x`

Japt , 18 byte

@ZsVn)x}gK=Vì1;K¯U

Cobalah online!

Penjelasan:

         K=Vì1        :Start with n 1s in an array K
@      }gK            :Extend K to at least x elements by setting each new element to:
      x               : The sum of
 ZsVn                 : The previous n elements
              ;       :Then
               K¯U    :Return the first n elements of K