Giriş:

Tam sayı listesi (hiçbir zaman sıfır içermez)

Çıktı:

Aşağıdakilere dayalı olarak aynı boyutta bir listedir:

• Geçerli öğe negatifse: Bu öğeden önceki tüm öğelere bakın ve diğer rakamlarda basamakların kaç kez oluştuğunu sayın
• Bunun yerine geçerli öğe pozitifse: Bu öğeden sonraki tüm öğelere bakın ve bu sayılardaki sayının kaç kez oluştuğunu sayın

Bir bükülme var: Listenin boyutu bile olsa, her sayıyı sadece bir kez sayarız (birden fazla hane ile eşleşse bile) ve boyut garip ise, geçerli öğenin her basamağı için sayıların her basamağını sayarız (çoğaltılmış) basamak birden çok kez sayılır).

Bunu biraz açıklığa kavuşturmak için bazı örnekler verelim:

Çift listeli örnek:

Input:  [4, 10, 42, -10, -942, 8374, 728, -200]
Output: [3, 2,  4,  1,   2,    1,    1,   5   ]

Listenin Boyutu bile sadece bir kez her sayısını yüzden.

• 4: Olumlu, bu yüzden sabırsızlanıyoruz. Haneyi içeren üç sayı vardır 4( 42, -942, 8374). Böylece bir ile başlayalım 3.
• 10: Olumlu, bu yüzden sabırsızlanıyoruz. Rakam 1ve / veya 0( -10, -200) içeren iki sayı vardır . Yani ikinci çıktı 2.
• 42: Yine olumlu, çok ileri. Basamak ya içeren dört numaraları vardır 4ve / veya 2( -942, 8374, 728, -200). Üçüncü çıktı 4.
• -10: Bu sefer olumsuz, bu yüzden geriye bakıyoruz. Rakamı 1ve / veya 0(eksi işaretini yoksayıyoruz) ( 10) içeren yalnızca bir sayı vardır . Dördüncü çıktı 1.
• vb.

Tek listeli örnek:

Input:  [382, -82, -8, 381, 228, 28, 100, -28, -2]
Output: [13,  2,   2,  4,   8,   3,  0,   11,  6 ]

Listenin boyutu garip , bu yüzden her basamağı sayıyoruz.

• 382: Olumlu, bu yüzden sabırsızlanıyoruz. Orada biri 3diğer numaralar (içinde 381, altı) 8'diğer numaralar (içinde s -82, -8, 381, 228, 28, -28) ve altı 2' diğer sayılarda s ( -82, 228, 28, -28, 2). Böylece bir ile başlayalım 13.
• -82: Olumsuz, bu yüzden geriye. Kimse yok 3başka sayısında ( 382) ve bir 8diğer sayısında ( 382). Yani ikinci çıktı 2.
• ...
• 228: Olumlu, çok ileri. Üç vardır 2'diğer numaralar (içinde s 28, -28, -2) ve başka bir üç 2' ler ve iki 8'diğer sayılarda s ( 28, -28). Yani bu çıktı 8.
• vb.

Zorluk kuralları:

• Girdinin hiçbir zaman 0öğe olarak içermeyeceğini varsayabilirsiniz , çünkü bu ne olumlu ne de olumsuzdur.
• Giriş listesinin her zaman en az iki öğe içerdiğini varsayabilirsiniz.
• G / Ç esnektir. Giriş / çıkış, tamsayıların dizisi / listesi, sınırlandırılmış dize, basamak / karakter matrisi vb. Olabilir.
• Listedeki ilk sayı negatif bir sayıysa veya listedeki son sayı pozitif bir sayıysa, ortaya çıkan listede 0 olur.
• Tek listelerde, aynı rakamı birden çok kez içeren sayılar, 228yukarıdaki tek örnekte olduğu gibi 8(3 + 2) yerine (3 + 3 + 2) ile sonuçlanan birden çok kez sayılır 5.

Genel kurallar:

• Bu kod golf , bayt en kısa cevap kazanır.
  Kod golf dillerinin, kod yazmayan dillerle yanıt göndermenizi engellemesine izin vermeyin. 'Herhangi bir' programlama dili için mümkün olduğunca kısa bir cevap bulmaya çalışın.
• Cevabınız için standart kurallar geçerlidir , bu nedenle STDIN / STDOUT, fonksiyonlar / yöntem uygun parametreler ve dönüş tipi, tam programlar ile kullanılabilir. Çağrınız.
• Varsayılan Loopholes yasaktır.
• Mümkünse, lütfen kodunuz için test içeren bir bağlantı ekleyin.
• Ayrıca, gerekirse bir açıklama ekleyin.

Test senaryoları:

Input:  [4, 10, 42, -10, -942, 8374, 728, -200]
Output: [3, 2,  4,  1,   2,    1,    1,   5   ]

Input:  [382, -82, -8, 381, 228, 28, 100, -28, -2]
Output: [13,  2,   2,  4,   8,   3,  0,   11,  6 ]

Input:  [10, -11, 12, -13, 14, -15, 16, -17, 18, -19]
Output: [9,  1,   7,  3,   5,  5,   3,  7,   1,  9  ]

Input:  [10, -11, 12, -13, 14, -15, 16, -17, 18, -19, 20]
Output: [11, 2,   8,  4,   5,  6,   3,  8,   1,  10,  0 ]

Input:  [88, 492, -938, 2747, 828, 84710, -29, -90, -37791]
Output: [8,  9,   3,    9,    3,   4,     5,   4,   12    ]

Input:  [-1, 11, 11, 1]
Output: [0,  2,  1,  0]

Input:  [1, 11, 11, -1]
Output: [3, 2,  1,  3 ]

Input:  [-1, 11, 1]
Output: [0,  2,  0]

Input:  [1, 11, -1]
Output: [3, 2,  3 ]

05AB1E , 30 bayt

vy0›iNƒ¦}ëN£}€Sþyδ¢IgÈiĀ€Ù}OOˆ

Çevrimiçi deneyin!

Piton 2 , 149 148 121 116 111 107 bayt

lambda l:[sum([any,sum][len(l)%2](map(`n`.count,`abs(v)`))for n in l[:i:2*(v<0)-1])for i,v in enumerate(l)]

Çevrimiçi deneyin!

Java (JDK 10) , 204 bayt

a->{int l=a.length,r[]=new int[l],i=0,j,x,y,b,s,t=10;for(;i<l;i++)for(j=i+(s=a[i]>0?1:-1);0<=j&j<l;j+=s)for(b=0,x=a[i];x!=0;x/=t)for(y=a[j];b<1&y!=0;y/=t)if(x%t==-y%t|x%t==y%t){r[i]++;b+=1-l%2;}return r;}

Çevrimiçi deneyin!

Kredi

• Kevin Cruijssen sayesinde -6 bayt
• Java Gonzar sayesinde -1 bayt

Perl 6 , 100 85 bayt

{.kv.map:{sum map (?*,+*)[$_%2],.[grep (*-$^i)*$^v>0,^$_].map:{.comb⊍$v.abs.comb}}}

Çevrimiçi deneyin!

Baggy çarpma operatörünü ⊍ kullanır.

Perl 5 -n , 92 bayt

($t=$&>0?$':$`)&say$q=y/ //%2?@a=$t=~/\b\d*[$&]+\d*\b/g:map$t=~/$_/g,$&=~/\d/g while/-?\d+/g

Çevrimiçi deneyin!

JavaScript (Node.js) , 164.158.140 139 bayt

a=>a.map((x,i)=>a.slice(x<0?0:i+1,x<0?i:l).map(b=>c+=[...b+""].map(X=>s+=X>=0&&(x+"").split(X).length-1,s=0)&&l%2?s:+!!s,c=0)|c,l=a.length)

Çevrimiçi deneyin!

Ruby , 126 bayt

->l{k=l.map{|i|i.abs.digits};c=-1;k.map{|n|x=k[l[c+=1]<0?0...c:c+1..-1];x.sum{|j|x=n.sum{|d|j.count d};l.size%2<1?x<1?0:1:x}}}

Çevrimiçi deneyin!

Jöle , 43 42 bayt

>0ị"ḊÐƤżṖƤƊAṾ€€FċЀ¥e€€³LḂ©¤?"AṾ$€SṀ€S$®?€

Çevrimiçi deneyin!