Ваше завдання сьогодні - застосувати хвилю до масиву чисел. Хвиля виглядає приблизно так: [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]

Це код-гольф , найкоротший виграш коду!

Желе , 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.

LOGO , 18 байт

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

Немає "Спробуйте в Інтернеті!" посилання, оскільки весь онлайн-перекладач LOGO не підтримує список шаблонів.

Це список-шаблон (еквівалент функції лямбда на інших мовах).

Використання:

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

Haskell , 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

JavaScript (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як це було б в Python).

Математика, 26 23 22 байт

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

Спробуйте в Інтернеті! (Математика)

Примітка. Посилання TIO призначено для 23-байтної версії, 22-байтна версія не сумісна з Mathics.

Python 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 байт, але, здається, мій wifi починає скорочувати мене, тому завтра я буду гольфувати. Якщо хтось опублікує коротке рішення Jelly, перш ніж я зможу це зробити, це добре зі мною; Я просто збережу це тут для ознайомлення з тим, наскільки я поганий у Jelly lol - інший спосіб зробити це. Я маю на увазі, я міг би просто подивитися на посилання, яке Фенікс розмістив у коментарях, але оскільки я все ще вчусь, я не хочу дивитись на рішення, поки я сам не з’ясував це. Це може коштувати мені репутації, але навчання - це те, про що я тут :)))

R , 29 24 байти

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

Спробуйте в Інтернеті!

Python 2 , 50 42 байти

^{Збережено 8 байт завдяки @Sisyphus!}

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

Спробуйте в Інтернеті!

Haskell , 26 байт

@Mego побив мене до цього рішення

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

Спробуйте в Інтернеті!

У цьому Хаскелл чудово підходить. Це оголошує безточну функцію, яка посилається на вхід з нескінченним списком.

Haskell , 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і ви можете передати правильний параметр, він буде працювати

-2 байти завдяки Невайю

-2 байти завдяки Захарі

Я видалив vectorвключення. Вам потрібно буде надати як аргумент контейнеру wa, який відповідає наступним умовам:

• Майте метод, викликаний sizeбез аргументів
• Перевантажили оператор підписки

STL контейнери , які дотримуються наступні умови є array, vector, string, map, unordered_map, і , можливо , інші

Якщо виведення зміною аргументів не дозволено, то:

C ++, 112 110 байт

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

Парі / GP , 30 байт

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

Спробуйте в Інтернеті!

Діалог APL, 13 байт

⊢+1 0 ¯1 0⍴⍨≢

Спробуйте в Інтернеті!

Як?

1 0 ¯1 0 - масив [1, 0, -1, 0]

⍴⍨≢ - переробити на довжину вводу, циклічно

⊢+ - векторизована сума з введенням

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

Спробуйте в Інтернеті!

Це відповідь відповіді C ++ HatsuPointerKun , тому не забувайте про них!

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

Пояснення

Ми використовуємо cos (x) для того, щоб отримати правильну послідовність [1,0, -1,0]. Індекс елемента масиву множиться на 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 Core) , 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}

Спробуйте в Інтернеті!