Напишите программу или функцию, в которой матрица A (максимальное значение размеров матрицы равно 100) преобразуется в новую матрицу B. Каждый элемент новой матрицы B представляет собой сумму положительных соседей соответствующего элемента матрицы A ,

Рассматриваются только соседи в четырех ортогональных направлениях, а края не обвиваются.

Пример ввода:

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

Выход:

 6  4  2
 1  6 13
 5 12 10
 2 11 12

Правила:

• В качестве входных данных используйте целые числа.
• Это код-гольф , поэтому выигрывает самый короткий код в байтах.

MATL , 9 байт

t0>*1Y6Z+

Попробуйте онлайн!

объяснение

Входная матрица умножается соответствующей маской, чтобы сделать отрицательные значения равными 0. Затем применяется двумерная свертка, чтобы вычислить сумму соседей каждой записи.

t     % Take input implicitly: 2D array. Duplicate
0>    % Is each entry positive? This gives a mask of positive values
*     % Multiply: set negative values of input array to zero
1Y6   % Predefined literal: [0 1 0; 1 0 1; 0 1 0]
Z+    % 2D convolution preserving size. Implicitly display

Октава, 46 44 40 байт

Сохранено 2 байта благодаря ядру @flawr
@ LuisMendo на 4 байта короче, чем @ flawr.

@(M)conv2(M.*(M>0),(x='aba')~=x','same')

Так же, как ответ @ LuisMendo ! Только меньше ... гольф.

Вы можете увидеть это здесь на ideone .

JavaScript (ES6), 99 94 байта

a=>a.map((b,i)=>b.map((_,j)=>(g=(c=j,k=j)=>c[k]>0&&c[k])(a[i-1])+g(a[i+1])+g(b,j-1)+g(b,j+1)))

Принимает и возвращает двумерный массив.

Редактировать: полностью переписан, когда я обнаружил, что аргументы по умолчанию работают, когда вы передаете явно неопределенное значение, например, когда вы индексируете конец массива.

JavaScript (ES6), 95 93 байта

document.write("<pre>"+(

m=>m.map((a,r)=>a.map((_,c)=>(s=(x,y=0)=>(n=(m[r+y]||0)[c+x])>0&&n)(1)+s(-1)+s(0,1)+s(0,-1)))

)([[  1,  2,  3 ],
   [  4, -1, -2 ],
   [ -3, -4, 10 ],
   [  1,  2, 10 ]])

.join`\n`)

Python с SciPy, 127 байт

from scipy.signal import*
lambda A,r=range(3):convolve2d([[x*(x>0)for x in y]for y in A],[[0,1,0],[1,0,1],[0,1,0]],mode='same')

Это вычисляет результат, используя метод Луиса Мендо .

Попробуйте онлайн

Mathcad, байты

Использует стандартную двумерную свертку отфильтрованного массива с ядром 3х3. Варианты с отрицательными суммами элементов и диагональным ядром также добавляются как компенсация части для программы, которая не работает в течение наименьшего количества байтов.

Число байтов не введено, поскольку оценка Mathcad еще не определена. Однако, используя эквивалентность клавиатуры, это область из 28 байтов, при условии, что матричный ввод не учитывается в общем объеме.

Обратите внимание, что то, что вы видите на изображении выше, это то, как решение вводится и отображается в Mathcad.

Желе, 23 20 18 байт

0;+ḊṖ
ZÇ€Z+Ç€
+AHÇ

Попробуйте онлайн!

Алгоритм

Допустим, есть только одна строка: [1,2,3,4].

Допустим, A является результатом добавления нуля, т. Е. [0,1,2,3,4].

B является результатом удаления первого элемента, то есть [2,3,4].

Тогда конечный результат просто A + B векторизован, затем удаляется последний элемент.

Теперь алгоритм должен применить это к каждой строке, а также к каждому столбцу, а затем найти их векторизованную сумму.

Для каждого столбца ?! Я думал, что желе не поддерживает это ...

Ты прав. Поэтому я перенес его, применил к каждому ряду, а затем снова перенес.

Алгоритм удаления отрицательных чисел

Здесь вы просто добавляете к каждому числу их абсолют. Это эффективно устраняет отрицательные числа, удваивая каждое положительное число. Затем просто наполовину разделить всю матрицу.

Pyth, 36 байт

Lm+Vt+d0+0dbJmm/+.akk2dQ.b+VNYyJCyCJ

Попробуйте онлайн!

Прямой перевод моего ответа в желе .