정수 목록을 접을 것입니다. 절차는 다음과 같습니다. 목록의 길이가 짝수 인 경우 새 목록의 n 번째 항목이 이전 목록의 n 번째 항목과 n 번째 -to- 이전 목록의 마지막 항목. 예를 들어 목록이 있다면

[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

온라인으로 사용해보십시오!

파이썬 , 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🍉🍉🍉

이것은 나를 위해 코드에 대한 가장 고통스러운 Emojicode 답변이었습니다. 불필요한 길이 : /

온라인으로 사용해보십시오!

Japt , 21 18 16 바이트

l
íUj°V/2V w)mx

온라인으로 테스트하십시오!

완전히 끔찍한 @Oliver 덕분에 약간 덜 끔찍 합니다. 더 많은 내장 기능을 구현하고 일부 버그를 수정 한 후 BRB ...

Gaia , 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.

수학, 88 바이트

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

매스 매 티카 57 바이트

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

중간 점에 0을 삽입하고리스트를 반대 방향으로 추가하고 적절한 길이를 취합니다.

Japt , 12 바이트

å@o +Y*(Z<Ul

온라인으로 사용해보십시오! -Q포맷 된 배열을 보려면 플래그 와 함께 .

대체 솔루션, 14 바이트

o(½*Ul)c)íU mx

온라인으로 사용해보십시오!

젤리 , 7 바이트

œs2U2¦S

온라인으로 사용해보십시오!

-2 ETHproductions 덕분에 ... 그리고 나는 전에 깨달았습니다.

자바 스크립트 (Node.js) , 53 바이트

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

온라인으로 사용해보십시오!

또 다른 제안 :

자바 스크립트 (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])

온라인으로 사용해보십시오!

익명의 기능; 결과를 반환합니다.

파이썬 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]

온라인으로 사용해보십시오!

파이썬 3 , 70 바이트

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

온라인으로 사용해보십시오!

자바 스크립트, 75 71 바이트

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

온라인으로 사용해보십시오

ETH 프로덕션 덕분에 2 바이트 절약

자바 스크립트 (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], LET [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 코어) , 118111 바이트

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

펄, 42 38 자

하위 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

Mr. 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'연산자 사용 <-- 와 트리플 플러스 사용하기+++

언 골프 및 예 :

#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

공통 리스프, 106 바이트

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

온라인으로 사용해보십시오!

자바 스크립트 (Node.js) , 62 바이트

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

온라인으로 사용해보십시오!

스칼라, 91 바이트

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

수학 , 52

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

자바 스크립트 (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 바이트를 절약했습니다 .

자바 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;}

온라인으로 사용해보십시오!