Kami akan melipat daftar bilangan bulat. Prosedur untuk melakukannya adalah sebagai berikut, Jika daftar tersebut memiliki panjang genap, buatlah daftar setengah dari panjangnya di mana item ke-n dari daftar baru adalah jumlah dari item ke-n dari daftar lama dan urutan ke-n item terakhir dari daftar lama. Misalnya kalau kita punya daftarnya

[1 2 3 4 5 6 7 8]

Kami akan melipatnya seperti itu

 [8 7 6 5]
+[1 2 3 4]
__________
 [9 9 9 9]

Jika daftar itu panjangnya aneh , untuk melipatnya pertama-tama kita menghapus item tengah, lipat itu seolah-olah genap dan tambahkan item tengah ke hasilnya.

Misalnya kalau kita punya daftarnya

[1 2 3 4 5 6 7]

Kami akan melipatnya seperti itu

 [7 6 5]
+[1 2 3]
__________
 [8 8 8]
++     [4]
__________
 [8 8 8 4]

Tugas

Tulis program atau fungsi yang mengambil daftar bilangan bulat sebagai input dan output yang dilipat daftar.

Ini adalah pertanyaan kode-golf sehingga jawaban akan dinilai dalam byte, dengan lebih sedikit byte yang lebih baik.

Implementasi sampel

Berikut ini adalah implementasi di Haskell yang mendefinisikan fungsi fyang melakukan flip.

f(a:b@(_:_))=a+last b:f(init b)
f x=x

Cobalah online!

Python , 46 byte

f=lambda l:l[1:]and[l[0]+l[-1]]+f(l[1:-1])or l

Cobalah online!

Sama panjang:

f=lambda l:l[1:]and[l.pop(0)+l.pop()]+f(l)or l

Solusi yang jauh lebih pendek bekerja untuk daftar panjang genap (30 byte)

lambda l:[x+l.pop()for x in l]

Cobalah online!

Saya masih berusaha menemukan cara singkat untuk memperbaikinya dengan panjang yang aneh.

05AB1E , 5 byte

Kode

2ä`R+

Menggunakan 05AB1E penyandian . Cobalah online!

Penjelasan

2ä        # Split the list into two pieces
  `       # Flatten the stack
   R      # Reverse the second element from the list
    +     # Vectorized addition

Emojicode , 203 byte

🐋🍨🍇🐖🔢🍇🔂i⏩0➗🐔🐕2🍇😀🔡➕🍺🔲🐽🐕i🚂🍺🔲🐽🐕➖🐔🐕➕1i🚂10🍉🍊😛1🚮🐔🐕2🍇😀🔡🍺🔲🐽🐕➗🐔🐕2🚂10🍉🍉🍉

Ini adalah jawaban Emojicode yang paling menyakitkan bagi saya. Panjang yang tidak perlu: /

Cobalah online!

Japt , 21 18 16 byte

l
íUj°V/2V w)mx

Uji secara online!

Benar-benar mengerikan. Sedikit kurang enak untuk @Oliver . BRB setelah saya menerapkan lebih banyak built-in dan memperbaiki beberapa bug ...

Gaia , 7 byte

e2÷ev+†

Penjelasan

e        Eval the input (push the list).
 2÷      Split it in half. The first half will be longer for an odd length.
   e     Dump the two halves on the stack.
    v    Reverse the second.
     +†  Element-wise addition. If the first half has an extra element, it is simply appended.

Mathematica, 88 byte

(d=Array[s[[#]]+s[[-#]]&,x=⌊t=Length[s=#]/2⌋];If[IntegerQ@t,d,d~AppendTo~s[[x+1]]])&

Mathematica 57 Bytes

(#+Reverse@#)[[;;d-1]]&@Insert[#,0,d=⌈Length@#/2⌉+1]&

Menyisipkan nol di titik tengah, menambahkan daftar ke kebalikannya dan mengambil panjang yang sesuai.

Japt , 12 byte

å@o +Y*(Z<Ul

Cobalah online! dengan -Qbendera untuk melihat array yang diformat.

Solusi alternatif, 14 byte

o(½*Ul)c)íU mx

Cobalah online!

Jelly , 7 byte

œs2U2¦S

Cobalah online!

-2 Berkat produksi ETH ... dan saya sadari sebelumnya.

JavaScript (Node.js) , 53 byte

x=>x.splice(0,x.length/2).map(y=>y+x.pop()).concat(x)

Cobalah online!

Saran lain:

JavaScript (Node.js) , 43 byte

f=x=>x+x?[x.pop()+(0|x.shift()),...f(x)]:[]

Cobalah online!

R , 81 70 68 57 byte

function(l)c((l+rev(l))[1:(w=sum(l|1)/2)],l[w+1][!!w%%1])

Cobalah online!

fungsi anonim; mengembalikan hasilnya.

Python 3 , 101 byte

lambda l:[sum(x)for x in zip(l[:len(l)//2],l[int(len(l)/2+.5):][::-1])]+[[],[l[len(l)//2]]][len(l)%2]

Cobalah online!

Python 3 , 70 byte

lambda l:[l[i]+l[~i]for i in range(len(l)//2)]+len(l)%2*[l[len(l)//2]]

Cobalah online!

JavaScript, 75 71 byte

a=>a.slice(0,n=a.length/2).map(b=>b+a[--z],z=n*2).concat(n%1?a[n|0]:[])

Cobalah online

Disimpan 2 byte berkat produk ETH

JavaScript (ES6), 41 byte

f=a=>1/a[1]?[a.shift()+a.pop(),...f(a)]:a

f=a=>1/a[1]?[a.shift()+a.pop(),...f(a)]:a

console.log(JSON.stringify(f([1,2,3,4,5,6,7,8])));
console.log(JSON.stringify(f([1,2,3,4,5,6,7])));

MATL , 9 byte

`6L&)swtn

Cobalah online!

Bagaimana itu bekerja

Diberikan array [a b c ... x y z], biarkan [a z]disebut subarray "kerak" dan [b c ... y z]"inti".

Kode terdiri dari satu loop yang menghilangkan kerak, menghitung jumlahnya, dan memindahkan inti ke atas tumpukan, siap untuk iterasi berikutnya. Kondisi loop adalah jumlah elemen dalam subarray inti

`       % Do...while
  6L    %   Push [2 -1+1j]. As an index, this is interpreted as 2:end-1
  &)    %   2-output reference indexing: pushes a subarray with the indexed 
        %   elements (core) and another with the ramaining elements (crust)
  s     %   Sum of (crust) subarray
  w     %   Swap. Moves the core subarray to the top
  t     %   Duplicate
  n     %   Number of elements.
        % End (implicit). Procced with next iteration if top of the stack is
        % nonzero; else exit
        % Display stack (implicit)

WendyScript , 72 byte

<<f=>(l){<<r=[]<<b=l.size#i:0->b/2r+=l[i]+l[b-i-1]?b%2!=0r+=l[(b/2)]/>r}

f([1,2,3,4,5,6,7,8]) // => [9,9,9,9]
f([1,2,3,4,5,6,7]) // => [8,8,8,4]

Cobalah online!

C # (.NET Core) , 118 111 byte

a=>a.Reverse().Zip(a,(c,d)=>c+d).Take(a.Length/2).Concat(a.Skip(a.Length/2).Take(a.Length%2))

Jumlah byte juga termasuk

using System.Linq;

Cobalah online!

Sebagai input, harap gunakan angka yang dipisahkan dengan koma ( ,) atau spasi. Penjelasan:

a =>                                  // Take one input parameter (array)
a.Reverse()                           // Reverse it
.Zip(a, (c, d) => c + d)              // Take every corresponding member of reversed
                                      //    and original, and add them together
.Take(a.Length / 2)                   // Get first half of the collection
.Concat(                              // Add another collection
    a.Skip(a.Length / 2)              // Take input and leave out first half of it
    .Take(a.Length % 2)               // If length is odd, take first element (so the middle)
                                      //    otherwise create an empty collection
);

Perl, 42 38 karakter

sub f {@ a = map {$ + pop} splice @ , 0, @ / 2; @ a, @ }

sub f{(map{$_+pop}splice@_,0,@_/2),@_} 

Coba misalnya seperti:

perl -e 'my @input=(1..9); sub f{(map{$_+pop}splice@_,0,@_/2),@_}  print join(",",f(@input));

Pyth, 18 17 13 byte

V.Tc2Q aYsN;Y

Pendekatan awal saya adalah

WtQ aY+.)Q.(Q0;+Y

-1 byte terima kasih kepada Tn. Xcoder

-4 byte terima kasih kepada FryAmTheEggman

C ++ 17, 75 73 71 byte

Sebagai lambda yang tidak disebutkan namanya, menerima wadah seperti vectoratau list, kembali melalui memodifikasi input:

[](auto&L){for(auto a=L.begin(),b=L.end();a<--b;L.pop_back())*a+++=*b;}

Menggunakan operator 'masuk ke' yang terkenal <-- dan triple plus+++

Tidak disatukan dan contoh:

#include<iostream>
#include<vector>

using namespace std;

auto f=
[](auto&L){
 for(
  auto a=L.begin(),b=L.end();
  a<--b;
  L.pop_back()
 )
 *a+++=*b;
}
;

void test(auto L) {
 for(auto x:L)cout << x << ", ";
 cout << endl;
 f(L);
 for(auto x:L)cout << x << ", ";
 cout << endl << endl;
}

int main() { 
 vector<int> A = {1,2,3,4,5,6,7,8}, B = {1,2,3,4,5,6,7};
 test(A);
 test(B);
}

J , 22 byte

({.+/@,:|.@}.)~>.@-:@#

Cobalah online!

APL (Dyalog Unicode) , 21 byte ^SBCS

-3 byte terima kasih kepada @ Adám.

(⌊2÷⍨≢)(↑{+⌿↑⍺⍵}∘⌽↓)⊢

Cobalah online!

Penjelasan:

(⌊2÷⍨≢)(↑{+⌿↑⍺⍵}∘⌽↓)⊢  ⍝ Monadic function train
(⌊2÷⍨≢)                  ⍝ Left portion:
     ≢                   ⍝ Take the length of the input...
  2÷⍨                    ⍝ Divide it by two...
 ⌊                       ⍝ And floor it. This gives our midpoint index. Call it "X"
                      ⊢  ⍝ Right portion: return the original input. Call it "Y"
       (↑{+⌿↑⍺⍵}∘⌽↓)   ⍝ Midddle portion: takes X and Y as arguments
        ↑           ↓    ⍝ Take and drop Y by X. Essentially splits Y in half
                         ⍝ Presents the two halves to the next function
                 ∘⌽     ⍝ Reverse the second half
         {+⌿↑⍺⍵}       ⍝ Final function, takes first half and reversed second half
              ⍺⍵        ⍝ Construct a nested list of first and second halves...
             ↑          ⍝ ...and "mix" them into a matrix. Has the nice property that
                        ⍝ it will pad the first half with a zero if needed.
          +⌿           ⍝ Sum the matrix along the columns, return resulting vector

Gangguan Umum, 106 byte

(lambda(l)(setf(values a b)(floor(length l)2))`(,@(#1=subseq(mapcar'+ l(reverse l))0 a),@(#1#l a(+ a b))))

Cobalah online!

JavaScript (Node.js) , 62 byte

a=>a.map((e,i)=>e+a[c=(b=a.length)-i-1]*(c!=i)).slice(0,++b/2)

Cobalah online!

Scala, 91 byte

(s:Seq[Int])=>(s.take(s.size/2),s.reverse).zipped.map(_+_)++s.drop(s.size/2).take(s.size%2)

Mathematica , 52

(a=#;i=0;(i++;a[[i;;-i]]*=x)&/@a;(Tr@a+O@x^i)[[3]])&

JavaScript (ES6), 46 43 byte

f=(a,[b,...c]=a)=>c+c?[b+c.pop(),...f(c)]:a

f=(a,[b,...c]=a)=>c+c?[b+c.pop(),...f(c)]:a

console.log(f([1,2,3,4,5,6,7,8]).join(', ')) // 9, 9, 9, 9  ✓
console.log(f([1,2,3,4,5,6,7]).join(', '))   // 8, 8, 8, 4  ✓

.as-console-wrapper{max-height:100%!important}

Disimpan 3 byte dengan inspirasi dari Asaf .

Java 8, 93 byte

Digit ganda! Ini adalah lambda yang mengambil int[]dan mengembalikan sebuah int[].

l->{int n=l.length,i=0;for(;i<n/2;)l[i]+=l[n-++i];return java.util.Arrays.copyOf(l,n/2+n%2);}

Lambda yang tidak tersentuh

l -> {
    int n = l.length, i = 0;
    for (; i < n / 2; )
        l[i] += l[n - ++i];
    return java.util.Arrays.copyOf(l, n / 2 + n % 2);
}

Cukup mudah. Ini melipat bagian kedua di tempat ke bagian pertama dari input dan mengembalikan salinan hanya bagian pertama.

Anehnya, salinan array dalam pernyataan kembali tampaknya menjadi cara termurah untuk menangani quirk elemen terakhir untuk input panjang ganjil.

PHP , 67 byte

function($l){while($l)$o[]=array_shift($l)+array_pop($l);return$o;}

Cobalah online!