Bir matris A'nın (matrisin maksimum boyutlarının 100 olduğu) yeni bir matris B'ye dönüştürüldüğü bir program veya fonksiyon yazın. Yeni matris B'nin her elemanı, A matrisinin karşılık gelen elemanının pozitif komşularının toplamıdır. .

Sadece dört dikey yöndeki komşular dikkate alınır ve kenarlar etrafına sarılmaz.

Örnek girdi:

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

Çıktı:

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

Kurallar:

• Giriş olarak tamsayılar kullanın.
• Bu bir kod golfüdür , bu nedenle bayttaki en kısa kod kazanır.

MATL , 9 bayt

t0>*1Y6Z+

Çevrimiçi deneyin!

açıklama

Giriş matrisi, negatif değerleri 0'a eşit yapmak için uygun bir maske ile çarpılır. Daha sonra, her bir girişin komşularının toplamını hesaplamak için bir 2D evrişim uygulanır.

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

Oktav, 46 44 40 bayt

@Flawr
@ LuisMendo'nun çekirdeği sayesinde 2 bayt kaydedildi @ flawr en 4 bayt daha kısa oldu.

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

Tıpkı @ LuisMendo'nun yanıtı gibi! Sadece daha az ... golf.

Burada ideone'de görebilirsiniz .

JavaScript (ES6), 99 94 bayt

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

İki boyutlu bir diziyi kabul eder ve döndürür.

Düzenleme: Tamamen tanımlanmamış bir değeri ilettiğinizde, örneğin bir dizinin sonunu dizine eklediğinizde, varsayılan bağımsız değişkenlerin çalıştığını keşfettiğimde tamamen yeniden yazılır.

JavaScript (ES6), 95 93 bayt

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

SciPy'li Python, 127 bayt

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

Bu sonucu Luis Mendo'nun yöntemini kullanarak hesaplar .

Çevrimiçi deneyin

Mathcad, bayt

3x3 çekirdeğe sahip filtrelenmiş dizinin standart 2D evrişimini kullanır. Negatif eleman toplamları ve çapraz çekirdeğe sahip varyantlar, programın en az bayt için çalışmadığı için parça telafisi olarak eklenir.

Mathcad puanlaması olarak girilen bayt sayısı henüz belirlenmedi. Ancak, klavye eşdeğeri kullanılarak, matris girişinin toplamı saymadığı varsayılarak 28 baytlık bölgedir.

Yukarıdaki resimde gördüğünüz şeyin, çözümün Mathcad'da tam olarak nasıl girildiği ve görüntülendiğini unutmayın.

Jöle, 23 20 18 bayt

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

Çevrimiçi deneyin!

Algoritma

Diyelim ki sadece bir satır var: [1,2,3,4].

Diyelim ki A sıfırı önermenin bir sonucudur, yani [0,1,2,3,4].

B, ilk öğenin çıkarılmasının sonucudur, yani [2,3,4].

Daha sonra nihai sonuç basitçe A + B vektörleştirilir, daha sonra son öğeyi kaldırılır.

Şimdi, algoritma bunu her satıra ve her sütuna uygulamak, sonra bunların vektörleştirilmiş toplamını bulmaktır.

Her sütuna mı ?! Jelly'in bunu desteklemediğini sanıyordum ...

Haklısın. Bu nedenle, onu aktardım, her satıra uyguladım, sonra tekrar aktardım.

Negatif sayıları kaldırmak için algoritma

Burada, her sayıya mutlaklarını eklersiniz. Her pozitif sayıyı ikiye katlarken negatif sayıları etkili bir şekilde ortadan kaldırır. Sonra, tüm matrisi yarıya indirin.

Pyth, 36 bayt

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

Çevrimiçi deneyin!

Doğrudan cevabımın Jelly çevirisi .