오늘 당신의 임무는 숫자의 배열에 웨이브를 적용하는 것입니다. 물결 모양은 다음과 같습니다. [1, 0, -1, 0, 1, 0, -1, 0, 1...]주어진 배열에 적용하면 첫 번째 요소, 두 번째 요소 등이 함께 추가됩니다.

더 정확하게:

프로그램이나 함수는 정수 배열을받습니다. 1원래 배열의 1, 5, 9 등 요소에 -1추가되고 원래 배열 의 3, 7, 11 등 요소와 나머지 요소에 추가 된 동일한 크기의 배열을 인쇄하거나 반환해야합니다 . 그대로 두어야합니다.

입력 배열에는 하나 이상의 요소가 있어야합니다.

테스트 사례 :

Input                               | Output
[0]                                 | [1]
[-1]                                | [0]
[-4, 3, 0, 1, 7, 9, 8, -2, 11, -88] | [-3, 3, -1, 1, 8, 9, 7, -2, 12, -88]
[0, 0, 0, 0, 0]                     | [1 ,0 ,-1 ,0 ,1]
[1, 1]                              | [2, 1]

이것은 code-golf , 최단 코드 승리입니다!

젤리 , 5 바이트

Jı*Ċ+

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

작동 원리

Jı*Ċ+  Main link. Argument: A (array)

J      Indices; yield [1, ..., len(A)].
 ı*    Elevate the imaginary unit to the power 1, ..., len(A), yielding
       [0+1i, -1+0i, 0-1i, 1+0i, ...].
   Ċ   Take the imaginary part of each result.
    +  Add the results to the corresponding elements of A.

로고 , 18 바이트

[map[?+sin 90*#]?]

"온라인으로 사용해보십시오!"는 없습니다 모든 온라인 로고 인터프리터가 템플리트 목록을 지원하지 않기 때문에 링크하십시오.

그것은 템플릿 목록입니다 (다른 언어의 람다 함수와 동일).

용법:

pr invoke [map[?+sin 90*#]?] [-4 3 0 1 7 9 8 -2 11 -88]

( invoke함수를 호출하고 pr결과를 인쇄합니다)

인쇄합니다 [-3 3 -1 1 8 9 7 -2 12 -88].

설명 (이미 이해할 수 있음) :

 map[?+sin 90*#]?       map a function over all the items of the input
              #         the 1-based index of the element in the input
       sin 90*#         equal to the required wave
     ?                  looping variable
     ?+sin 90*#         add the wave to the input

하스켈 , 26 바이트

zipWith(+)$cycle[1,0,-1,0]

온라인으로 사용해보십시오! (모든 테스트 사례를 실행)

설명:

zipWith(+)$cycle[1,0,-1,0]  -- anonymous tacit function
zipWith(+)                  -- pairwise addition between input list
          $cycle[1,0,-1,0]  -- and an infinitely-cycling "wave" list

자바 스크립트 (ES6), 28 바이트

a=>a.map((x,i)=>x-(i%4-1)%2)

계산은 다음과 같습니다.

i%4  -1  %2
0    -1  -1
1     0   0
2     1   1
3     2   0

마지막 비트는 JS에서 변조 될 때 음수가 음수 부호를 유지한다는 사실을 이용합니다 (즉 -5 % 3 -> -2, 1파이썬 에서와는 달리).

Mathematica, 26 23 22 바이트

Im[I^Range@Tr[1^#]]+#&

온라인으로 사용해보십시오! (수학)

참고 : TIO 링크는 23 바이트 버전 용이며 22 바이트 버전은 Mathics와 호환되지 않습니다.

파이썬 2 , 40 바이트

i=2
for x in input():print~-x+i%5%3;i*=2

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

MATL , 11 8 바이트

Jyn:^Yj+

MATL Online 에서 사용해보십시오 !

설명

J     % Push 1j (imaginary unit)
      % STACK; 1j
y     % Implicit input. Duplicate from below
      % STACK: [-4 3 0 1 7 9 8 -2 11 -88], 1j, [-4 3 0 1 7 9 8 -2 11 -88]
n     % Number of elements
      % STACK: [-4 3 0 1 7 9 8 -2 11 -88], 1j, 10
:     % Range
      % STACK: [-4 3 0 1 7 9 8 -2 11 -88], 1j, [1 2 3 4 5 6 7 8 9 10]
^     % Power, element-wise
      % STACK: [-4 3 0 1 7 9 8 -2 11 -88], [1j -1 -1j 1 1j -1 -1j 1 1j -1]
Yj    % Imaginary part
      % STACK: [-4 3 0 1 7 9 8 -2 11 -88], [1 0 -1 0 1 0 -1 0 1 0]
+     % Add, element-wise. Implicit display
      % STACK: [-3 3 -1 1 8 9 7 -2 12 -88]

젤리 , 16 바이트

-1Jm2$$¦+2Jm4$$¦

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

이게 너무 길다고 확신합니다

편집하다

나는 5 바이트 솔루션이 가능하다는 것을 알고 있지만 내 와이파이가 나를 차단하기 시작한 것으로 보이므로 내일 골프를 할 것이다. 골프를하기 전에 누군가가 짧은 젤리 솔루션을 게시한다면 그것은 괜찮습니다. 나는 젤리 롤에서 얼마나 나쁜지에 대한 참고로 이것을 여기에 보관할 것입니다. 나는 피닉스가 의견에 게시 한 링크를 볼 수는 있지만 여전히 배우고 있기 때문에 스스로 알아낼 때까지 솔루션을보고 싶지 않습니다. 이것은 명성이 들지 만 학습은 내가 여기있는 것입니다 :))))

R , 29 24 바이트

(l=scan())+Im(1i^seq(l))

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

파이썬 2 , 50 42 바이트

^{@Sisyphus 덕분에 8 바이트가 절약되었습니다!}

lambda l:map(sum,zip(l,[1,0,-1,0]*len(l)))

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

53 바이트

lambda l:[int(x+(1j**i).real)for i,x in enumerate(l)]

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

하스켈 , 26 바이트

@ Mego 가이 솔루션으로 나를 이겼습니다.

zipWith(+)$cycle[1,0,-1,0]

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

이것이 하스켈이 위대한 일입니다. 이것은 입력을 무한리스트로 압축하는 포인트없는 함수를 선언합니다.

하스켈 , 56 바이트

다음은 복소수를 사용하는 솔루션입니다. 수입으로 인해 경쟁이 치열하지는 않지만 결코 시원하지는 않습니다.

import Data.Complex
zipWith((+).realPart.((0:+1)^))[0..]

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

매스 매 티카, 19 바이트

i=1;#+Im[i*=I]&/@#&

설명

i=1;#+Im[i*=I]&/@#&
i=1;                 (* set variable i to 1 *)
               /@#   (* iterate through the input: *)
    #+Im[i   ]&      (* add the imaginary component of i... *)
          *=I        (* multiplying i by the imaginary unit each iteration *)

참고 : i=1함수 외부에 나타납니다 . 이 메타 합의에 따라 괜찮습니다 .

J, 12 바이트

+1 0 _1 0$~#

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

J의 셰이프 연산자 $는 주기적으로 채워 지므로 #입력 길이 에 맞게 셰이프하면 원하는대로 정확하게 수행 할 수 있으며 입력에 추가 할 수 있습니다.]

C ++, 93 85 83 63 바이트

auto w=[](auto&i){for(int j=0;j<i.size();j+=2)i[j]+=j%4?-1:1;};

-8 바이트, 이 답변 덕분에 람다 매개 변수가 가능 auto하고 올바른 매개 변수를 전달할 수 있음을 발견했습니다.

Nevay 덕분에 -2 바이트

Zacharý 덕분에 -2 바이트

vector포함을 제거했습니다 . 다음 조건을 준수하는 wa 컨테이너에 인수로 전달해야합니다.

• 라는 방법을 사용하십시오 size인수없이
• 아래 첨자 연산자를 오버로드했습니다

있는 다음과 같은 조건을 존중 STL 컨테이너 array, vector, string,map , unordered_map, 어쩌면 다른 사람

인수를 수정하여 출력하는 것이 허용되지 않으면 다음을 수행하십시오.

C ++, 112110 바이트

#include<vector>
std::vector<int>w(std::vector<int>i){for(int j=0;j<i.size();j+=2)i[j]+=(j%4)?-1:1;return i;}

Pari / GP , 30 바이트

a->[a[x]+imag(I^x)|x<-[1..#a]]

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

Dyalog APL, 13 바이트

⊢+1 0 ¯1 0⍴⍨≢

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

방법?

1 0 ¯1 0 -배열 [1, 0, -1, 0]

⍴⍨≢ -주기적으로 입력의 길이를 변경

⊢+ -입력 벡터화 합

펄 6 , 28 바이트

{((1+0i,*×i...*)Z+$_)».re}

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

1+0i, * × i ... *1, i, -1, -i사이클에서 반복 되는 숫자의 무한 목록을 생성합니다 . 해당 숫자는 Z+입력 목록 ( )과 함께 추가 ( )로 압축 된 $_다음 결과 복소수의 실제 구성 요소가 추출됩니다 ( ».re).

D, 56 바이트

void w(T)(T[]i){for(T j;j<i.length;j+=2)i[j]+=j%4?-1:1;}

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

이것은 HatsuPointerKun의 C ++ 답변 포트 이므로 잊지 마십시오!

apt , 11 10 바이트

Japt의 인덱스 줄 바꿈을 활용합니다.

Ë+[1TJT]gE

그것을 테스트

설명

배열의 암시 적 입력 U.

Ë

배열을 매핑하십시오.

+

현재 요소에 추가 ...

gE

현재 색인의 요소 ( E) ...

[1TJT]

배열에서 [1,0,-1,0].

실제로 11 바이트

;r⌠╦½*C≈⌡M¥

온라인으로 사용해보십시오! (모든 테스트 사례를 실행)

설명:

;r⌠╦½*C≈⌡M¥
;r           range(len(input))
  ⌠╦½*C≈⌡M   for each value in range:
   ˫*C      cos(pi/2*value)
       ≈     floor to integer
          ¥  pairwise addition of the input and the new list

Pyth , 11 바이트

.e+bss^.j)k

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

CJam , 15 바이트

l~_,,[1TW0]f=.+

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

Math.JS , 34 바이트

f(k)=k.map(j(x,y,z)=x+im(i^y[1]))

설명

f(k)=k.map(j(x,y,z)=x+im(i^y[1]))
f(k)=                               # Define a function f, which takes argument k.
     k.map(                     )   # Map k to a function
           j(x,y,z)=                # Function j. Takes arguments x, y, and z. Where x is the item, y is the index in the form [i], and z is the original list.
                      im(      )    # The imaginary component of...
                         i^y[1]     # i to the power of the index.
                    x+              # x +, which gives our wave.

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

8 , 96 63 바이트

암호

a:new swap ( swap 90 * deg>rad n:cos int + a:push ) a:each drop

이 코드는 TOS에 결과 배열을 남깁니다.

사용법 및 예

ok> [0,0,0,0,0] a:new swap ( swap 90 n:* deg>rad n:cos n:int n:+ a:push ) a:each drop .
[1,0,-1,0,1]

ok> [-4,3,0,1,7,9,8,-2,11,-88] a:new swap ( swap 90 * deg>rad n:cos int + a:push ) a:each drop .
[-3,3,-1,1,8,9,7,-2,12,-88]

설명

올바른 시퀀스 [1,0, -1,0]을 얻기 위해 cos (x)를 사용합니다. 각 배열 요소의 인덱스에 90도를 곱한 다음 cos () 함수로 전달되어 원하는 "파도"를 해당 항목에 추가합니다.

: f \ a -- a
  a:new    \ create output array
  swap     \ put input array on TOS
  \ array element's index is passed to cos in order to compute
  \ the "wave factor" to add to each item
  ( swap 90 n:* deg>rad n:cos n:int n:+ 
  a:push ) \ push new item into output array 
  a:each
  drop     \ get rid of input array and leave ouput array on TOS
;

C # (. NET 코어) , 50 바이트

n=>{for(int i=0;i<n.Length;i+=2)n[i]+=i%4<1?1:-1;}

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

간단한 람다를 사용합니다. 원래 배열을 수정하고 참조를 통해 출력을 반환합니다.

05AB1E , 16 바이트

vy3L2.SR0¸«Nè+})

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

3L2.SR0¸«sin(x % 4)05AB1E에서 생각할 수있는 가장 짧은 것 입니다.

루비 , 38 바이트

->a{a.zip([1,0,-1,0].cycle).map &:sum}

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