Вступ

Масиви також можна розглядати як поле для підстрибуючого м'яча. Це, звичайно, звучить дуже невиразно, тому ось приклад введення:

[1, 2, 3, 4, 5, 6, 7, 8, 9]
[9, 8, 7, 6, 5, 4, 3, 2, 1]
[1, 2, 3, 4, 5, 6, 7, 8, 9]

Завдання полягає у виведенні відскочених масивів . Вони зроблені з діагональних візерунків, які підстрибують по краях поля. Цей шлях спрямований вгору . Шлях для першого відскоченого масиву (в якому шлях безпосередньо відскакує від egde), є:

[1, -, -, -, 5, -, -, -, 9]
[-, 8, -, 6, -, 4, -, 2, -]
[-, -, 3, -, -, -, 7, -, -]

Зліва направо це призведе до [1, 8, 3, 6, 5, 4, 7, 2, 9]. Це наш перший відскочений масив. Шлях для другого відскоченого масиву:

[-, 2, -, -, -, 6, -, -, -]
[9, -, 7, -, 5, -, 3, -, 1]
[-, -, -, 4, -, -, -, 8, -]

Це призводить до [9, 2, 7, 4, 5, 6, 3, 8, 1]. Шлях для третього відскоченого масиву:

[-, -, 3, -, -, -, 7, -, -]
[-, 8, -, 6, -, 4, -, 2, -]
[1, -, -, -, 5, -, -, -, 9]

Це призводить до [1, 8, 3, 6, 5, 4, 7, 2, 9]. Отже, три відскочені масиви :

[1, 8, 3, 6, 5, 4, 7, 2, 9]
[9, 2, 7, 4, 5, 6, 3, 8, 1]
[1, 8, 3, 6, 5, 4, 7, 2, 9]

Завдання

Враховуючи щонайменше 1 масив, що містить лише негативні цілі числа, при цьому всі масиви мають однакову довжину, виводять усі відскочені масиви.

Тестові справи

Тест 1:

Input:                       Output:
[1, 2, 3, 4, 5]              [1, 7, 3, 9, 5]
[6, 7, 8, 9, 0]              [6, 2, 8, 4, 0]


Input:                       Output:
[1, 2, 3, 4, 5]              [1, 2, 3, 4, 5]


Input:                       Output:
[0, 0, 0, 0, 0, 0, 0, 0]     [0, 9, 0, 9, 0, 9, 0, 100]
[9, 9, 9, 9, 9, 9, 9, 100]   [9, 0, 9, 0, 9, 0, 9, 0]
[0, 0, 0, 0, 0, 0, 0, 0]     [0, 9, 0, 9, 0, 9, 0, 100]


Input:                       Output:
[0, 1, 2, 3, 4, 5]           [0, 7, 14, 9, 4, 11]
[6, 7, 8, 9, 10, 11]         [6, 1, 8, 15, 10, 5]
[12, 13, 14, 15, 16, 17]     [12, 7, 2, 9, 16, 11]


Input:                       Output:
[0, 0, 0, 0, 0, 0]           [0, 2, 2, 6, 2, 6]
[1, 2, 3, 4, 5, 6]           [1, 0, 3, 2, 5, 2]
[2, 2, 2, 2, 2, 2]           [2, 2, 0, 4, 2, 4]
[9, 8, 7, 6, 5, 4]           [9, 2, 3, 0, 5, 2]

Це код-гольф , тому подання з найменшою кількістю байтів виграє!

Піт, 17 байт

>lQC.e.>bkC+_PtQQ

Пояснення:

                      implicit: Q=input
>                     First
  l Q                   len(Q) elements of the
  C .e                  Transpose of enumerated map lambda b,k:
       .>                 Rotate the kth element rightwards by
          b
          k               k.
       C +              Transpose of: Q concatenated to
           _ P t Q        itself reversed without first and last elements.
           Q

Спробуйте тут .

JavaScript (ES6), 70

a=>a.map((r,k)=>r.map((e,j)=>(a[k-=d]||a[d=-d,k-=d+d]||r)[j],d=1,++k))

ТЕСТ

F = a=>a.map((r,k)=>r.map((e,j)=>(a[k-=d]||a[d=-d,k-=d+d]||r)[j],d=1,++k))

test = [{
  I: [
    [1, 2, 3, 4, 5],
    [6, 7, 8, 9, 0]
  ],
  O: [
    [1, 7, 3, 9, 5],
    [6, 2, 8, 4, 0]
  ]
}, {
  I: [
    [1, 2, 3, 4, 5]
  ],
  O: [
    [1, 2, 3, 4, 5]
  ]
}, {
  I: [
    [0, 0, 0, 0, 0, 0, 0, 0],
    [9, 9, 9, 9, 9, 9, 9, 100],
    [0, 0, 0, 0, 0, 0, 0, 0]
  ],
  O: [
    [0, 9, 0, 9, 0, 9, 0, 100],
    [9, 0, 9, 0, 9, 0, 9, 0],
    [0, 9, 0, 9, 0, 9, 0, 100]
  ]
}, {
  I: [
    [0, 1, 2, 3, 4, 5],
    [6, 7, 8, 9, 10, 11],
    [12, 13, 14, 15, 16, 17]
  ],
  O: [
    [0, 7, 14, 9, 4, 11],
    [6, 1, 8, 15, 10, 5],
    [12, 7, 2, 9, 16, 11]
  ]
}, {
  I: [
    [0, 0, 0, 0, 0, 0],
    [1, 2, 3, 4, 5, 6],
    [2, 2, 2, 2, 2, 2],
    [9, 8, 7, 6, 5, 4]
  ],
  O: [
    [0, 2, 2, 6, 2, 6],
    [1, 0, 3, 2, 5, 2],
    [2, 2, 0, 4, 2, 4],
    [9, 2, 3, 0, 5, 2]
  ]
}];

console.log = x => O.textContent += x + '\n';

test.forEach(t => {
  var r = F(t.I),
    ok = r.join `\n` == t.O.join `\n`
  console.log((ok ? 'OK' : 'KO') + '\nInput\n' + t.I.join `\n` + '\nOutput\n' + r.join `\n` + '\n')
})

<pre id=O></pre>

CJam, 31 30 байт

q~__W%1>W<+_z,_@*<zee::m>z\,<p

Введення та виведення як список масивів у стилі CJam.

Перевірте це тут.

Напевно, гольф ...

Желе, 29 25 24 байти

ṖḊm-³;Z
,ZL€R_€/‘ż€Çị/€€

Дякую за @ Sp3000 за те, що ти допомагаєш мені гольф на 5 байт!

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

Ruby (2.2.2p95), 124 байти

->*a{b=a.length;b<2?a:b.times.map{|i|d=i>0?-1:1;c=i;a[0].length.times.map{|j|r=a[c][j];c+=d;d*=-1if c==0||c==a.length-1;r}}}

Можливо, це може бути набагато краще. Я зрозумію, як пізніше!

Japt, 55 49 41 39 байт

Ого, це було і справді хитро, і шалено весело.

C=2*Nl -2Nw £YoY+Ul)£NgLmX%CC-X%C)gY} ·

Перевірте це в Інтернеті!

Виводиться у зворотному порядку на приклади. Це незначно порушиться на входах більш ніж 100 масивів; сподіваємось, це не має великої різниці.

           // Implicit: N = array of input arrays, U = first input array, J = -1, L = 100
           // Let's use the first example. 3 input arrays, each of length 9.
C=2*Nl -2  // Set variable C to 2*N.length - 2. In the example, C is 4.
Nw      }  // Reverse N and map each index Y to:
YoY+Ul)    //  Create the range [Y...U.length+Y).
           //  The first time through (Y=0), we have   [0, 1, 2, 3, 4, 5, 6, 7, 8]
£       }  //  Map each item X and index Y to:
X%C        //   Take X mod C.                          [0, 1, 2, 3, 0, 1, 2, 3, 0]
C-X%C      //   Take C - (X mod C).                    [4, 3, 2, 1, 4, 3, 2, 1, 4]
Lm         //   Take the minimum of these and 100.     [0, 1, 2, 1, 0, 1, 2, 1, 0]
Ng         //   Get the array at the resulting index.
gY         //   Get the item at index Y in this array. [1, 8, 3, 6, 5, 4, 2, 7, 9]
·          // Join the result with newlines. I guess this isn't necessary, but it helps with readability.

Неконкурентна версія, 36 байт

C=J+Nl)òC±C ®óUl)£NgLmX%CC-X%C)gY} ·

Я перед цим викликом реалізував ці дві функції числення:

• ò- те саме o, але повертається [X..Y]замість[X..Y)
• ó- те саме o, але повертається [X..X+Y)замість[X..Y)

Але через неправильне розміщення 0вони були баггі та завжди повертали порожні масиви. Зараз це було виправлено.

Перевірте це в Інтернеті!

Python 2, 107 106 108 105 104 байт

(Випало кілька зайвих паронів) (Неправильне початкове місцеположення (ب_ب)) (уже був список такої довжини)

def b(a):
 r,e=len(a)-1,enumerate
 print[[a[abs((i-o-r)%(r*2or 1)-r)][i]for i,_ in e(q)]for o,q in e(a)]

Юридично мати вхід як аргумент функції, правда? Це перший раз, коли я надсилаю відповідь на свій код із гольфу.

APL, 33 символи

{(⍳≢⍵){0⌷(⍺-⍳≢⍉⍵)⊖⍵⍪1↓¯1↓⊖⍵}¨⊂↑⍵}

Припустимо, ⎕IO ← 0. Ідея полягає в тому, що рух підстрибування може бути отриманий простим зрушенням вгору матриці, якщо вихідну матрицю збільшують уздовж першого виміру, а матриця перевернута на першому та останньому рядах. Графічно:

1 - - - - - 1 - - - -
- 2 - - - 2 - 2 - - -
- - 3 - 3 - - - 3 - 3
- - - 4 - - - - - 4 -

з

1 - - - - - 1 - - - -
- 2 - - - - - 2 - - -
- - 3 - - - - - 3 - -
- - - 4 - - - - - 4 -
- - - - 3 - - - - - 3
- - - - - 2 - - - - -

В АПЗ reverseі upward rotateті ж символ: ⊖.

Clojure, 125 байт

Ого, цей персонаж накопичується досить швидко.

(fn[v](let[H(count v)r range R(r H)](for[i R](map #((v %2)%)(r(count(v 0)))(drop i(cycle(concat R(reverse(r 1(dec H))))))))))

Просто намагаюся зберегти байти, letвизначаючи часто використовувані значення.

Желе *, 15 байт

JṚŒḄṖṙ’Ʋị⁸Jị"$€

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

^{* Більш нова версія}