Nhiệm vụ của bạn hôm nay là áp dụng một làn sóng cho một dãy số. Một làn sóng trông như thế này: [1, 0, -1, 0, 1, 0, -1, 0, 1...]Áp dụng nó vào một mảng nhất định có nghĩa là thêm các phần tử đầu tiên, các phần tử thứ hai, v.v.

Chính xác hơn:

Chương trình hoặc chức năng của bạn sẽ nhận được một loạt các số nguyên. Nó phải in hoặc trả về một mảng có kích thước bằng nhau được 1thêm vào phần tử 1, 5, 9, v.v. của mảng ban đầu, -1được thêm vào phần tử thứ 3, 7, 11, v.v. của mảng ban đầu và phần còn lại của các phần tử không bị ảnh hưởng

Mảng đầu vào được đảm bảo có ít nhất một phần tử.

Các trường hợp thử nghiệm:

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]

Đây là mã golf , mã thắng ngắn nhất!

Thạch , 5 byte

Jı*Ċ+

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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.

LOGO , 18 byte

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

Không có "Thử trực tuyến!" liên kết vì tất cả trình thông dịch LOGO trực tuyến không hỗ trợ danh sách mẫu.

Đó là một danh sách mẫu (tương đương với hàm lambda trong các ngôn ngữ khác).

Sử dụng:

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

( invokegọi hàm, prin kết quả)

in [-3 3 -1 1 8 9 7 -2 12 -88].

Giải thích (đã khá dễ hiểu):

 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

Haskell , 26 byte

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

Hãy thử trực tuyến! (chạy tất cả các trường hợp thử nghiệm)

Giải trình:

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

JavaScript (ES6), 28 byte

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

Việc tính toán diễn ra như sau:

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

Bit cuối cùng lợi dụng thực tế là trong JS, một số âm khi được điều chế sẽ giữ lại dấu âm của nó (nghĩa là -5 % 3 -> -2thay vì 1như trong Python).

Toán học, 26 23 22 byte

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

Hãy thử trực tuyến! (Toán học)

Lưu ý: Liên kết TIO dành cho phiên bản 23 byte, phiên bản 22 byte không tương thích với Toán học.

Python 2 , 40 byte

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

Hãy thử trực tuyến!

MATL , 11 8 byte

Jyn:^Yj+

Hãy thử nó tại MATL Online!

Giải trình

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]

Thạch , 16 byte

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

Hãy thử trực tuyến!

heh tôi chắc chắn điều này quá dài

Chỉnh sửa

Tôi biết một giải pháp 5 byte là có thể nhưng wifi của tôi dường như bắt đầu cắt đứt tôi vì vậy tôi sẽ chơi golf vào ngày mai. Nếu ai đó đăng giải pháp Jelly ngắn trước khi tôi có thể chơi golf này, điều đó tốt với tôi; Tôi sẽ chỉ giữ điều này ở đây để tham khảo về việc tôi làm việc tồi tệ như thế nào tại Jelly lol . Ý tôi là, tôi chỉ có thể nhìn vào liên kết mà Phoenix đăng trong các bình luận, nhưng vì tôi vẫn đang học, tôi không muốn xem xét giải pháp cho đến khi tôi tự mình tìm ra. Điều này có thể khiến tôi mất danh tiếng nhưng việc học là những gì tôi ở đây :)))

R , 29 24 byte

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

Hãy thử trực tuyến!

Python 2 , 50 42 byte

^{Đã lưu 8 byte nhờ @Sisyphus!}

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

Hãy thử trực tuyến!

53 byte

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

Hãy thử trực tuyến!

Haskell , 26 byte

@Mego đánh bại tôi để giải pháp này

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

Hãy thử trực tuyến!

Đây là những gì Haskell là tuyệt vời. Điều này khai báo một hàm không có điểm giúp nén đầu vào với một danh sách vô hạn.

Haskell , 56 byte

Đây là một giải pháp sử dụng số phức. Không cạnh tranh lắm vì nhập khẩu nhưng không bao giờ kém đẹp.

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

Hãy thử trực tuyến!

Toán học, 19 byte

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

Giải trình

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

Lưu ý: i=1xuất hiện bên ngoài chức năng, điều này ổn đối với sự đồng thuận meta này .

J, 12 byte

+1 0 _1 0$~#

Hãy thử trực tuyến!

Bởi vì toán tử hình dạng của J $điền theo chu kỳ, khi chúng ta định hình nó theo chiều dài #của đầu vào, nó thực hiện chính xác những gì chúng ta muốn và chúng ta có thể thêm nó vào đầu vào]

C ++, 93 85 83 63 byte

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

-8 byte, nhờ câu trả lời này , tôi phát hiện ra rằng các tham số lambda có thể autovà bạn có thể vượt qua với tham số chính xác, nó sẽ hoạt động

-2 byte nhờ Nevay

-2 byte nhờ Zacharý

Tôi loại bỏ vectorbao gồm. Bạn sẽ cần chuyển làm đối số cho wa container tôn trọng các điều kiện sau:

• Có một phương thức được gọi sizemà không có đối số
• Đã quá tải toán tử đăng ký

Container STL rằng tôn trọng các điều kiện sau array, vector, string, map, unordered_map, và có lẽ những người khác

Nếu đầu ra bằng cách sửa đổi đối số đối số không được phép, thì:

C ++, 112 110 byte

#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 byte

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

Hãy thử trực tuyến!

APL Dyalog, 13 byte

⊢+1 0 ¯1 0⍴⍨≢

Hãy thử trực tuyến!

Làm sao?

1 0 ¯1 0 - mảng [1, 0, -1, 0]

⍴⍨≢ - định hình lại theo chiều dài của đầu vào, theo chu kỳ

⊢+ - Tổng hợp véc tơ với đầu vào

Perl 6 , 28 byte

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

Hãy thử trực tuyến!

1+0i, * × i ... *tạo ra một danh sách vô hạn các số được 1, i, -1, -ilặp lại trong một chu kỳ. Các số đó được nén bằng phép cộng ( Z+) với danh sách đầu vào ( $_) và sau đó các thành phần thực của các số phức kết quả được trích xuất ( ».re).

D, 56 byte

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

Hãy thử trực tuyến!

Đây là một cổng của câu trả lời C ++ của HatsuPulumKun , vì vậy đừng quên chúng!

Japt , 11 10 byte

Tận dụng lợi thế của gói chỉ số của Japt.

Ë+[1TJT]gE

Kiểm tra nó

Giải trình

Đầu vào ngầm định của mảng U.

Ë

Bản đồ trên mảng.

+

Để phần tử hiện tại thêm ...

gE

Phần tử tại chỉ mục hiện tại ( E) ...

[1TJT]

Trong mảng [1,0,-1,0].

Trên thực tế , 11 byte

;r⌠╦½*C≈⌡M¥

Hãy thử trực tuyến!(chạy tất cả các trường hợp thử nghiệm)

Giải trình:

;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

Bình thường , 11 byte

.e+bss^.j)k

Hãy thử trực tuyến!

CJam , 15 byte

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

Hãy thử trực tuyến!

Math.JS , 34 byte

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

Giải thích

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.

Hãy thử trực tuyến!

8 , 96 63 byte

Mã

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

Mã này để lại mảng kết quả trên ĐKDV

Cách sử dụng và ví dụ

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]

Giải trình

Chúng tôi sử dụng cos (x) để có được chuỗi đúng [1,0, -1,0]. Chỉ số của mỗi phần tử mảng được nhân với 90 độ và sau đó nó được chuyển đến hàm cos () để có được "hệ số sóng" mong muốn được thêm vào mục tương ứng.

: 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 Core) , 50 byte

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

Hãy thử trực tuyến!

Sử dụng một lambda đơn giản. Sửa đổi mảng ban đầu và trả về đầu ra thông qua tham chiếu.

05AB1E , 16 byte

vy3L2.SR0¸«Nè+})

Hãy thử trực tuyến!

3L2.SR0¸«là điều ngắn nhất tôi có thể nghĩ đến sin(x % 4)trong 05AB1E.

Ruby , 38 byte

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

Hãy thử trực tuyến!