整数のリストを折りたたみます。これを行う手順は次のとおりです。リストの長さが偶数の場合、新しいリストのn番目の項目が古いリストのn番目の項目とn番目からn番目までの合計の長さの半分のリストを作成します古いリストの最後のアイテム。たとえば、リストがある場合

[1 2 3 4 5 6 7 8]

折ります

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

リストの長さが奇数の場合、折りたたむには、まず中間のアイテムを削除し、偶数のように折り、結果に中間のアイテムを追加します。

たとえば、リストがある場合

[1 2 3 4 5 6 7]

折ります

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

仕事

入力として整数のリストを取り、そのリストを折りたたんで出力するプログラムまたは関数を作成します。

これはコードゴルフの質問なので、回答はバイト単位でスコアリングされ、バイト数は少ない方が良いでしょう。

サンプル実装

以下fは、折り畳みを実行する関数を定義するHaskellの実装です。

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

オンラインでお試しください！

Python、46バイト

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

オンラインでお試しください！

同じ長さ：

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

偶数のリスト（30バイト）には、はるかに短いソリューションが機能します

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

オンラインでお試しください！

私はまだそれを奇数の長さに修正する短い方法を見つけようとしています。

05AB1E、5バイト

コード

2ä`R+

05AB1Eエンコードを使用します。オンラインでお試しください！

説明

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

絵文字コード、203バイト

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

これは私にとってコードに対する最も苦痛な絵文字コードの回答でした。不要な長さ：/

オンラインでお試しください！

Japt、21 18 16バイト

l
íUj°V/2V w)mx

オンラインでテストしてください！

完全にひどい@Oliverのおかげで少しひどくない。さらに組み込みを実装し、いくつかのバグを修正した後のBRB ...

ガイア、7 バイト

e2÷ev+†

説明

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バイト

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

Mathematica 57バイト

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

中間点にゼロを挿入し、その逆にリストを追加し、適切な長さを取ります。

Japt、12バイト

å@o +Y*(Z<Ul

オンラインでお試しください！とともに-Q書式設定された配列を表示するフラグ付き。

代替ソリューション、14バイト

o(½*Ul)c)íU mx

オンラインでお試しください！

ゼリー、7バイト

œs2U2¦S

オンラインでお試しください！

-2 ETHproductionsに感謝します。

JavaScript（Node.js）、53バ​​イト

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

オンラインでお試しください！

別の提案：

JavaScript（Node.js）、43バイト

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

オンラインでお試しください！

R、81 70 68 57バイト

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

オンラインでお試しください！

匿名関数; 結果を返します。

Python 3、101バイト

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]

オンラインでお試しください！

Python 3、70バイト

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

オンラインでお試しください！

JavaScript、75 71バイト

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

オンラインで試す

ETHproductionsのおかげで2バイト節約

JavaScript（ES6）、41バイト

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バイト

`6L&)swtn

オンラインでお試しください！

使い方

配列[a b c ... x y z]を[a z]指定すると、「クラスト」サブアレイおよび[b c ... y z]「コア」サブアレイと呼ばれます。

コードは、クラストを削除し、その合計を計算し、コアをスタックの最上部に移動して、次の反復の準備ができるループで構成されます。ループ条件は、コアサブアレイ内の要素の数です

`       % 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バイト

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

オンラインでお試しください！

C＃（.NET Core）、118 111バイト

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

バイト数も含まれます

using System.Linq;

オンラインでお試しください！

入力として、コンマ（,）またはスペースで区切られた数字を使用してください。説明：

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文字

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

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

たとえば次のようにしてみてください。

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

Pyth、18 17 13バイト

V.Tc2Q aYsN;Y

私の最初のアプローチは

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

Xcoder氏のおかげで-1バイト

FryAmTheEggmanのおかげで-4バイト

C ++ 17、75 73 71バイト

名前のないラムダとして、vectorまたはのようなコンテナを受け入れるとlist、入力を変更して戻ります。

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

よく知られている「goes-to」演算子<--とトリプルプラスの使用+++

Ungolfedと例：

#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バイト

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

オンラインでお試しください！

APL（Dyalog Unicode）、21 バイト^SBCS

@Adámのおかげで-3バイト。

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

オンラインでお試しください！

説明：

(⌊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

Common Lisp、106バイト

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

オンラインでお試しください！

JavaScript（Node.js）、62バイト

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

オンラインでお試しください！

Scala、91バイト

(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バイト

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}

Asafからインスピレーションを得て3バイトを節約しました。

Java 8、93バイト

二桁！これはを受け取り、int[]を返すラムダです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);}

ゴルフされていないラムダ

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

とても簡単です。入力の前半に所定の位置で後半を折り返し、前半のみのコピーを返します。

驚いたことに、returnステートメントの配列コピーは、奇数長の入力に対する最終的な要素の癖を処理する最も安価な方法のようです。

PHP、67バイト

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

オンラインでお試しください！