Terinspirasi oleh pertanyaan di Stack Overflow .

Diberikan array integer yang tidak kosong xdan integer positif n, hitung jumlah setiap blok geser yang panjang di nsepanjang array x, secara melingkar mengisi nilai-nilai yang hilang di sebelah kiri dengan nilai-nilai dari kanan sebagai berikut:

blok pertama berisi entri pertama x, didahului oleh n-1entri yang digeser secara sirkuler;
blok kedua memiliki entri pertama dan kedua x, didahului oleh n-2entri yang digeser secara sirkuler; dan seterusnya.

Array output ymemiliki ukuran yang sama dengan x. Dimungkinkan untuk nmelebihi panjang x, dan kemudian nilai xsirkuler digunakan kembali beberapa kali .

Contohnya

Contoh 1 (nilai digunakan kembali hanya sekali)

x = [2, 4, -3, 0, -4]
n = 3

berikan sebagai output

y = [-2, 2, 3, 1, -7]

dimana

-2adalah jumlah dari blok [0, -4, 2](dua nilai pertama berasal dari pergeseran melingkar)
2adalah penjumlahan [-4, 2, 4](nilai pertama berasal dari penggeseran lingkaran)
3adalah jumlah dari [2, 4, -3](tidak diperlukan lagi penggeseran lingkaran)
1 adalah jumlah dari [4, -3, 0]
-7adalah jumlah dari [-3, 0, -4].

Contoh 2 (nilai digunakan kembali beberapa kali)

x = [1, 2]
n = 5

memberikan

y = [7, 8]

dimana

7adalah jumlah blok [1, 2, 1, 2, 1](empat nilai pertama telah digunakan kembali secara sirkuler)
8adalah jumlah blok [2, 1, 2, 1, 2](tiga nilai pertama telah digunakan kembali secara sirkuler)

Aturan tambahan

Algoritme harus bekerja untuk array dengan ukuran arbitrer dan untuk nilai integer arbitrer. Dapat diterima jika program dibatasi oleh tipe data atau batasan memori; tetapi nilai integer positif maupun negatif harus ditangani.
Input / output dapat diambil / diproduksi dengan cara apa pun yang wajar .
Program atau fungsi diizinkan, dalam bahasa pemrograman apa pun . Celah standar dilarang.
Kode terpendek dalam byte menang.

Uji kasus

x, n, -> y

[2, 4, -3, 0, -4], 3          ->  [-2, 2, 3, 1, -7]
[1, 2], 5                     ->  [7, 8]
[2], 7                        ->  [14]
[-5, 4, 0, 1, 0, -10, -4], 4  ->  [-19, -15, -5, 0, 5, -9, -13]
[-5, 4, 0, 1, 0, -10, -4], 1  ->  [-5, 4, 0, 1, 0, -10, -4]
[-2, -1, 0, 1, 2, 3], 5       ->  [4, 3, 2, 1, 0, 5]
[-10, 0, 10], 4               ->  [-10, 0, 10]

code-golf math arithmetic array-manipulation integer Luis Mendo
sumber

6

Bah, mengapa Anda harus menggunakan entri sebelumnya?

Neil

3

Jelly , 5 byte

ṙC€}S

Cobalah online!

Bagaimana itu bekerja

ṙC€}S  Main link. Arguments: A (array), n (positive integer)

   }   Apply the link to the left to the right argument (n).
 C€      Complement each; map (z -> 1-z) over [1, ..., n], yielding [0, ..., 1-n].
ṙ      Rotate A 0, ..., 1-n units to the left (i.e., 0, ..., n-1 units to the
       right), yielding a 2D array.
    S  Take the sum of the rows.

Dennis
sumber

7

MATL, 11 10 9 7 byte

3 Bytes disimpan berkat @Luis!

:gyn&Z+

Input pertama adalah ukuran jendela dan input kedua adalah array

Cobalah di MATL Online

Penjelasan

       % Implicitly grab the first input (n)
       %     STACK: { 3 }
:      % Create the array [1...n]
       %     STACK: { [1, 2, 3] }
g      % Convert it to a logical array, yielding an array of 1's of length n
       %     STACK: { [1, 1, 1] }
y      % Implicitly grab the second input and duplicate it
       %     STACK: { [2, 4, -3, 0, -4], [1, 1, 1], [2, 4, -3, 0, -4]}
n      % Determine the length of the array
       %     STACK: { [2, 4, -3, 0, -4], [1, 1, 1], 5}
&Z+    % Perform circular convolution
       %     STACK: { [-2, 2, 3, 1, -7] }
       % Implicitly display the result

Suever
sumber

6

Mathematica, 29 byte

RotateLeft[#,1-n]~Sum~{n,#2}&

Atau sama panjangnya:

ListConvolve[1~Table~#2,#,1]&

alephalpha
sumber

6

CJam (16 byte)

{_2$*ew1fb\,~)>}

Test suite online . Ini adalah blok anonim (fungsi) yang mengambil array dan panjangnya di stack dan meninggalkan array di stack.

Pembedahan

{       e# Declare a block
  _2$*  e#   Repeat the array n times: this guarantees having enough windows even
        e#   if x is only a single element
  ew    e#   Take each window of n elements
  1fb   e#   Sum each of the windows
  \,~)  e#   Compute -n
  >     e#   Take the last n elements of the array of sums
}

Peter Taylor
sumber

4

Haskell, 57 byte

a#n|l<-length a=[sum[a!!mod j l|j<-[i-n..i-1]]|i<-[1..l]]

Cobalah online!

Hanya beberapa pengulangan indeks dan mengakses daftar input di indeks modulo panjang daftar.

nimi
sumber

3

Haskell , 69 65 64 byte

r=reverse
s#n=r$init[sum$take n$x++cycle(r s)|x<-scanr(:)[]$r s]

Cobalah online! Contoh penggunaan: [2, 4, -3, 0, -4] # 3.

Menggunakan n berhasil daripada entri sebelumnya bisa menjadi 50 46 byte (menyingkirkan yang terbalik di awal dan akhir):

s#n=init[sum$take n$x++cycle s|x<-scanr(:)[]s]

Cobalah online!

Laikoni
sumber

2

Japt , 12 byte

ËVo rÈ+UgE-Z

Cobalah online!

TIO tidak mendukung Ë, sehingga tautan TIO tidak akan berfungsi. Sebagai gantinya, coba di sini .

Luke
sumber

2

Pyth , 18 16 byte

Disimpan 2 byte berkat @FryAmTheEggman !

JEms<.>*JQ-JhdJl

Coba di sini atau Verifikasi semua test case.

Memperbaiki semua kekurangan dengan biaya -6 byte ! Terima kasih banyak untuk Luis karena membuat saya mengerti tugas dalam obrolan.

Penjelasan (akan diperbarui)

KEms<>_*QhK-lQhdKU - Full program.

KE                 - Assign the second input to a variable K.
  m              U - Map over the range [0...len(first input)).
       *QhK        - First input * (Second input + 1).
      _            - Reverse.
     >     -lQhd   - All the elements of the above after len(x)-current element-1
    <          K   - Up until the second input.
   s               - Sum.

Tuan Xcoder
sumber

Mungkin menjadi cara yang lebih baik sebelum berbalik, mencoba bermain golf segera.

Tn. Xcoder

Mendapat 16 byte tetapi saya merasa masih ada yang lebih pendek.

FryAmTheEggman

@FryAmTheEggman Terima kasih. Saya merasa itu harus lebih pendek tetapi saya tidak tahu caranya

Tn. Xcoder

2

Java 8, 102 byte

Lambda (kari) dari int[]ke lambda dari Integerke int[]. Tetapkan untuk Function<int[], Function<Integer, int[]>>.

a->n->{int l=a.length,o[]=new int[l],i=0,j;for(;i<l;i++)for(j=i-n;j++<i;)o[i]+=a[(j%l+l)%l];return o;}

Cobalah secara Online

Lambda yang tidak tersentuh

a ->
    n -> {
        int
            l = a.length,
            o[] = new int[l],
            i = 0,
            j
        ;
        for (; i < l; i++)
            for (j = i - n; j++ < i; )
                o[i] += a[(j % l + l) % l];
        return o;
    }

(j % l + l) % lmenghitung sisa yang tidak negatif untuk apa pun j. Diambil dari sini .

Jakob
sumber

2

C, 91 byte

i,j,k,s;f(a,l,n)int*a;{for(i=0;i<l;printf("%d ",s))for(j=n*l+i++,k=n,s=0;k--;)s+=a[j--%l];}

Cobalah online!

Steadybox
sumber

2

Oktaf, 53 byte

@(x,n)shift(imfilter(x,+!!(1:n),'circular'),fix(n/2))

Cobalah online!

The imfilterfungsi dengan pilihan circularmenghitung konvolusi melingkar di tengah jendela sehingga hasilnya harus digeser.

rahnema1
sumber

2

05AB1E , 10 byte

.×ŒùOR¹g£R

Cobalah online!

Penjelasan

.×           # repeat input_1 input_2 times
  Œù         # push all sublists of size input_2
    O        # sum each
     R       # reverse the list
      ¹g£    # take the first len(input_1) items
         R   # reverse the list

Emigna
sumber

2

Perl 6 , 42 39 byte

{@^a;[«+»] map {@a.rotate(-$_)},^$^b}

Cobalah online!

Entri Perl 6 pertama saya. Mungkin bisa ditingkatkan.

nwellnhof
sumber

Perhatikan bahwa Anda kadang-kadang dapat mengurangi panjangnya dengan menggunakan blok runcing dengan variabel sigilless daripada blok dengan parameter placeholder. ->\a,\b{[«+»] map {a.rotate(-$_)},^b}Perhatikan bahwa itu tidak dalam kasus ini tetapi jika jika ada contoh lain $bdalam kode.

Brad Gilbert b2gills

2

Kotlin , 141 140 138 byte

Go pertama saja

pengajuan

fun c(a:List<Int>,n:Int):List<Int>{
return (0..(a.size-1)).map{var t=0
for (o in 0..(n-1)){var i=it-o
while(i<0) {i+=a.size};t+=a[i]}
t}}

Yg diperindahkan

fun c(a: List<Int>, n: Int): List<Int> {
    return (0..(a.size - 1)).map {    // Iterate over the items
        var t = 0                     // Start the total at 0
        for (o in 0..(n - 1)) {       // Start at the item, go over the window backwards
            var i = it - o            // -------------------------
            while (i < 0) {           //  Make the index in range
                i += a.size           //
            }                         // -------------------------
            t += a[i]                 // Add the item to the total
        }
        t                             // Return the total
    }
}

TryItOnline

Suntingan

Baris baru dihapus pada sebelum braket penutupan terakhir

jrtapsell
sumber

1

Röda , 52 byte

f a,n{(a*n)|slide n|tail#a*n|{head n|sum}while open}

Cobalah online!

Penjelasan:

f a,n{
  (a*n)|    /* Push the items in a n times to the stream */
  slide n|  /* Create a sliding block of length n */
  tail#a*n| /* Push the last n*len(a) values in the stream to the stream */
  {         /* While there are elements in the stream (stream is open): */
    head n| /*   Pull n values from the stream */
    sum     /*   Sum them and push the sum to the stream */
  } while open
}

fergusq
sumber

1

JavaScript ES6 80 78 byte

x=>n=>x.map((_,i)=>eval('for(L=x.length,N=0,j=++i-n;j<i;j++)N+=x[(j%L+L)%L]'))

2 byte disimpan berkat Neil

Pemakaian:

f=x=>n=>x.map((_,i)=>eval('for(L=x.length,N=0,j=++i-n;j<i;j++)N+=x[(j%L+L)%L]'))

f([2, 4, -3, 0, -4])(3)

Bálint
sumber

1

The ,Npenampilan yang tidak perlu dengan saya ...

Neil

@Neil Anda benar, terima kasih

Bálint

1

Perl 5 , 66 + 1 (-a) = 67 byte

$n=pop@F;$,=$";say map{$q=$c++;$t=0;$t+=$F[$q--%@F]for 1..$n;$t}@F

Cobalah online!

Xcali
sumber

1

Python 2 , 69 61 byte

- 8 byte Terima kasih banyak @muru

lambda x,n:[sum((x[-n+1:]+x*n)[i:i+n])for i in range(len(x))]

Cobalah online!

Penjelasan:

Pertama kita perlu memastikan ada cukup angka di sebelah kiri daftar asli, ini dicapai oleh x*n+xbagian.

Misalnya, untuk [2,4,-3,0,4],5:

                   ,2,4,-3,0,-4
 ....-4,2,4,-3,0,-4,2,4,-3,0,-4

Maka kita akan membalik daftar:

 <original->
 -4,0,-3,4,2, -4,0,-3, 4........
           <-2's block->

Selanjutnya kita mendapatkan blok yang sesuai untuk setiap elemen [len(x)+~i:][:n]. Irisan akan terbalik yaitu 2 akan mendapatkan blok: [2,-4,0,-3,4]yang merupakan kebalikan dari yang diharapkan [4,-3,0,-4,2], tetapi bagaimanapun juga kita membutuhkan jumlah. Jadi, ini berhasil. :)

officialaimm
sumber

Tidak yakin mengapa Anda harus membalikkan terlebih dahulu? Tidak bisakah Anda memodifikasi irisan nanti di arah sebaliknya?

Tn. Xcoder

@ Mr.Xcoder Saya pikir ada cara tapi cara ini tidak terlalu membosankan sehingga saya bertahan dengan ini ...: D

officialaimm

1

Saya pikir x[-n+1:]+x*nharus memberi Anda daftar dengan bantalan yang cukup di kedua sisi, tanpa harus membalikkan ( lambda x,n:[sum((x[-n+1:]+x*n)[i:i+n])for i in range(len(x))])

muru

1

@muru Apakah Anda baru mengeditnya? Sekarang berhasil. Terima kasih banyak!

officialaimm

1

R , 101 93 89 byte

function(x,n,w=sum(x|1)){for(j in 1:w)F=c(F,sum(c(tail(rep(x,n),n-1),x)[1:n+j-1]))
F[-1]}

Cobalah online!

Giuseppe
sumber

1

K (oK) , 18 byte

Larutan:

{+/+y':(1-y+#x)#x}

Cobalah online!

Contoh:

{+/+y':(1-y+#x)#x}[1 2;5]
7 8
{+/+y':(1-y+#x)#x}[-5 4 0 1 0 -10 -4;4]
-19 -15 -5 0 5 -9 -13
{+/+y':(1-y+#x)#x}[-10 0 10;4]
-10 0 10

Penjelasan:

Akan memposting solusi 31 byte maka saya ingat bahwa oK memiliki built-in untuk sliding windows ...

{+/+y':(1-y+#x)#x} / the solution
{                } / lambda with implicit x and y parameters
               #x  / take (#) from list x
       (    #x)    / length of x
          y+       / add y (window size)
        1-         / subtract from 1 to give a negative
    y':            / sliding window of size y
   +               / flip
 +/                / sum

Bonus:

Solusi 31 byte yang juga berfungsi di K4 :

q)k){+/+x#y#'|+(:':\|(1-y+x:#x)#x)}[2 4 -3 0 -4;3]
-2 2 3 1 -7

streetster
sumber

Jumlah yang melingkar bergerak

Contohnya

Contoh 1 (nilai digunakan kembali hanya sekali)

Contoh 2 (nilai digunakan kembali beberapa kali)

Aturan tambahan

Uji kasus

Jawaban:

Jelly , 5 byte

Bagaimana itu bekerja

MATL, 11 10 9 7 byte

Mathematica, 29 byte

CJam (16 byte)

Pembedahan

Haskell, 57 byte

Haskell , 69 65 64 byte

Japt , 12 byte

Pyth , 18 16 byte

Penjelasan (akan diperbarui)

Java 8, 102 byte

Lambda yang tidak tersentuh

C, 91 byte

Oktaf, 53 byte

05AB1E , 10 byte

Perl 6 , 42 39 byte

Kotlin , 141 140 138 byte

pengajuan

Yg diperindahkan

TryItOnline

Suntingan

Röda , 52 byte

JavaScript ES6 80 78 byte

Pemakaian:

Perl 5 , 66 + 1 (-a) = 67 byte

Python 2 , 69 61 byte

R , 101 93 89 byte

K (oK) , 18 byte