Sayılar dizisi ile Verilen length >=3velength % 3 == 0

[1, 2, 3, 4, ...]

3 uzunluğundaki alt dizilere bölebilirsiniz

[[1, 2, 3], [4, 5, ...], [...

Ve bir dizi ile

• [0] => Alt dizideki tüm sayıların eşit olduğu vaka sayısı
• [1] => Alt dizideki tüm sayıların eşit olmaması durumunda, alt dizideki yalnızca 2 sayının eşit olduğu vaka sayısı

Örnek ve test örnekleri:

• Giriş: [2, 4, 2, 5, 5, 5, 4, 2, 1, 3, 3, 1]çıkış[1, 2]

Bunun nedeni ise

[[2, 4, 2], [5, 5, 5], [4, 2, 1], [3, 3, 1]]
  ^     ^    ^  ^  ^               ^  ^ 
   equal    all equal              equal   

yani 2 equalve 1all equal

• [3,5,6,5,5,7,6,6,8,7,7,7,3,4,2,4,4,3] => [1, 3]
• [3,3,3,4,4,4,5,5,5,6,6,6,5,4,3] => [4, 0]
• [3,4,5,6,7,8,9,8,7,6,5,4,3,2,1] => [0, 0]

Bu kod golf , bu yüzden bayt en kısa cevap kazanmak.

PD: İngilizcem için özür dilerim.

Oktav , 60 52 50 bayt

@(x)sum(sum(~diff(sort(reshape(x,3,[]))))'==[2 1])

Çevrimiçi deneyin!

Luis sayesinde 8 bayt tasarruf etti!

Açıklama:

Girdiyi 3 satır ve uygun miktarda sütun içeren bir matrise yeniden şekillendirir. Daha sonra sütunların her birini sıralar ve farklı satırlardaki öğeler arasındaki farkı hesaplar. Bu, aynı sayıların sıfır ve farklı sayıların pozitif sayıya sahip olduğu iki sıralı bir matris verir. Bu reddedilir, böylece tüm eşit unsurlar 1ve eşitsizdir 0. Daha sonra bize üç alternatiflerden birini vererek, bu sütunların her biri Özetle: 0 = All elements are unequal, 1 = Two elements are equalve 2 = All elements are equal. Daha sonra kaç tanesinin >1ve kaç tanesinin tam olarak olduğunu kontrol ederiz ==1.

JavaScript (ES6), 70 bayt

f=([a,b,c,...d],t=p=0)=>1/a?f(d,t+!(a-b&&a-c?b-c||++p:b-c&&++p)):[t,p]

Çevrimiçi deneyin!

Nasıl?

Her üçlüyü [a, b, c] giriş dizisinden özyineli olarak çıkarırız ve aşağıdaki formülü kullanarak iki sayacı t (türünün üçü) ve p (çifti) güncelleriz:

t =
t + !(a - b && a - c ? b - c || ++p : b - c && ++p)

Aşağıda "hepsi eşit" ten "tamamen farklı" ya kadar ayrıntılı 5 olası durum vardır.

a b c | a-b && a-c | b-c | b-c || ++p | b-c && ++p | t +=
------+------------+-----+------------+------------+------------
4 4 4 | false      | 0   | n/a        | 0          | !0    --> 1
4 4 5 | false      | ≠0  | n/a        | ++p        | !++p  --> 0
4 5 4 | false      | ≠0  | n/a        | ++p        | !++p  --> 0
5 4 4 | true       | 0   | ++p        | n/a        | !++p  --> 0
4 5 6 | true       | ≠0  | ≠0         | n/a        | !(≠0) --> 0

Pyth, 13 14 12 11 bayt

/Lml{kcQ3S2

Burada deneyin

açıklama

/Lml{kcQ3S2
      cQ3        Split the input into groups of 3.
  ml{k           Deduplicate and get the length of each.
/L               Count the number...
         S2      ... of 1s and 2s.

05AB1E , 10 bayt

3ôεÙg}12S¢

Çevrimiçi deneyin!

açıklama

3ô          # split input into groups of 3
  ε  }      # for each triple
   Ù        # remove duplicates
    g       # and get the length
      12S¢  # count the number of 1s and 2s in the result

Tamam , 17 16 bayt

+/(1 2=#=:)'0N3#

Çevrimiçi deneyin!

            0N3# /reshape into groups of 3 (see ngn's comment)
  (       )'     /for each group:
        =:       /    make a map from number -> indices
       #         /    count number of keys/values
   1 2=          /    check if the count is equal to 1 or 2 
+/               /sum together the columns

İçin k , 17 bayt sürümü: +/(1 2=#=:)'0N 3#.

R, , 70 bayt

function(v,x=lengths(by(v,seq(0,a=v)%/%3,table)))c(sum(x<2),sum(x==2))

Çevrimiçi deneyin!

Önceki sürümler :

R , 82 bayt

function(v,a=!1:2){for(i in lengths(by(v,seq(0,a=v)%/%3,table)))a[i]=a[i]+1;a[-3]}

Çevrimiçi deneyin!

R , 93 bayt

function(v,a=table(lengths(by(v,0:(length(v)-1)%/%3,unique)))[c('1','2')])`[<-`(a,is.na(a),0)

Çevrimiçi deneyin!

Java (JDK 10) , 116 bayt

l->{int r[]={0,0,0},i=0,a,b,c;for(;i<l.length;b=l[i++],c=l[i++],r[a==b?b==c?0:1:b==c|a==c?1:2]++)a=l[i++];return r;}

Çevrimiçi deneyin!

Not: uygun değerlerle 3 öğeden oluşan bir dizi döndürür [0]ve [1]uygun değerlerle [2]döndürür ve kukla bir değer döndürür (ortak öğe içermeyen 3 liste sayısı). Bu, mevcut kurallara göre tamamen geçerlidir.

PowerShell , 106 bayt

param($a)for(;$a){$x,$y,$z,$a=$a;if($x-eq$y-and$y-eq$z){$i++}else{$j+=$x-eq$y-or$y-eq$z-or$z-eq$x}}+$i,+$j

Çevrimiçi deneyin!

Tam olarak kalayda ne yazıyor. Giriş üzerinde döngüler $a. Her yineleme, $x,$y,$zsonraki üç öğe olarak soyulur . Testlerin ifhepsi eşittir ve eğer varsa artışlar $i. Else, $jen az bir çift eşitse artar . Döngü tamamlandığında, çıktı $ive $jtamsayı olarak.

Yani ... çok ... dolar ...

Retina 0.8.2 , 68 bayt

(.+)¶(.+)¶(.+)
;$1;$2;$3;$1;
%M`(;\d+)(?=\1;)
s`((1)|(3)|.)+
$#3 $#2

Çevrimiçi deneyin! Bağlantı, satır başına bir değerin istenen biçimine dönüştürmek için başlıklı test senaryoları içerir. Açıklama:

(.+)¶(.+)¶(.+)
;$1;$2;$3;$1;

Ayırıcılarla her bir satıra üç değer toplayın ve sonunda ilkini çoğaltın.

%M`(;\d+)(?=\1;)

Yinelenen çiftlerin sayısını sayın.

s`((1)|(3)|.)+
$#3 $#2

3S ve 1s sayısını sayın .

Jöle ,  9  8 bayt

-1 sayesinde Dennis (için yeni bir takma ad kullanın L€, Ẉ)

Q3ÐƤẈċⱮ2

Çevrimiçi deneyin!

Stax , 8 bayt

íUÖ←#"ë╕

Çalıştır ve hata ayıkla

Ortak Lisp, 113 bayt

(lambda(l &aux(a 0)(b 0))(loop for(x y z)on l by #'cdddr do(if(= x y z)(incf a)(if(/= x y z)()(incf b))))`(,a,b))

Çevrimiçi deneyin!

Common Lisp'de (= x y z)her üç öğe de eşitse (/= x y z)doğruyu verir ve hiçbir çift sayı eşit değilse doğru verir.

Japt, 14 13 bayt

2õ@ò3 x_â ʶX

Dene

açıklama

2õ                :Range [1,2]
  @               :Pass each X through a function
   ò3             :  Split input to arrays of length 3
       _          :  Pass each through a function
        â         :    Remove duplicates
          Ê       :    Get length
           ¶X     :    Test for equality with X
      x           :  Reduce by addition

Python 2 , 77 72 65 bayt

lambda a:map([len(set(t))for t in zip(*[iter(a)]*3)].count,(1,2))

Çevrimiçi deneyin!

Xnor'tan akıllı bir numara ile kaydedilen 7 bayt

Retina , 23 bayt

S2,3,` 
%Cq`\S+
*\C`1
2

Çevrimiçi deneyin!

açıklama

S2,3,` 

Girişi (0 tabanlı) 2'den başlayarak her 3. boşlukta bölün, yani girişi üçlü gruplara bölün.

%Cq`\S+

Her satırda ( %) C, unique ( q) değerlerinin ( \S+) sayısını ( ) sayın .

*\C`1

1S sayısını sayın ve bir sondaki satır besleme ( \) ile yazdırın , ancak bunu bir kuru çalışma ( *) ile yapın, böylece önceki sonucu kaybetmeyelim.

2

2S sayısını sayın (ve otomatik olarak yazdırın).

J , 16 15 bayt

Cole sayesinde -1 bayt!

1#.1 2=/_3#@=\]

Çevrimiçi deneyin!

Çözümlerin çoğunluğu ile hemen hemen aynı yaklaşım.

Açıklama:

        _3    \]  - split the input into sublists of lenght 3
          #@~.    - for each triplet remove duplicates and take the length 
   1 2=/          - compare with 1 and 2
1#.               - add up

Japt , 24 19 bayt

ò3 ®â l
[Uè¥1 Uè¥2]

Çevrimiçi deneyin!

Stax , 14 bayt

ü┬─*HTÜ╫\Ä╢qm♥

Çalıştır ve hata ayıkla

Haskell , 90 bayt

g[]=[]
g(a:b:c:x)=(sum$map fromEnum[a==b,a==c,b==c]):g x
f x=[sum[1|y<-g x,y==n]|n<-[3,1]]

Çevrimiçi deneyin!

Biraz garip görünüyor ...

Wolfram Dili (Mathematica) , 49 bayt

Martin Ender sayesinde iki bayt kurtardı.

{#~Count~{_},#~Count~{_,_}}&@BlockMap[Union,#,3]&

Çevrimiçi deneyin!

İksir , 92 bayt

fn a->import Enum;c=map chunk(a,3),&(length uniq&1);{count(c,&(&1==1)),count(c,&(&1==2))}end

İlk olarak, listeyi 3 boyuna böler chunk(a,3)

İkincisi, dönüştürülmemiş her öğenin uzunluğunu bulur; map chunk(a,3),&(length uniq&1).

Son olarak, sonuçta elde edilen listenin bire eşit count(c,&(&1==1))ve sonuçta elde edilen listenin iki sayısına eşit olduğu bir dizi döndürür count(c,&(&1==2)).

Çevrimiçi deneyin!

Prolog (SWI) , 80 bayt

[A,B,C|T]-X/Y:-T-M/N,(A=B,B=C,X is M+1,Y=N;X=M,(A\=B,B\=C,Y=N;Y is N+1)).
_-0/0.

Çevrimiçi deneyin!

Tcl , 111 bayt

proc S {L a\ 0 e\ 0} {lmap {x y z} $L {expr {$x-$y|$y-$z?$x==$y|$y==$z|$x==$z?[incr e]:0:[incr a]}}
list $a $e}

Çevrimiçi deneyin!

proc S {L a\ 0 e\ 0} {lmap {x y z} $L {expr {$x-$y||$y-$z?$x==$y|$y==$z|$x==$z?[incr e]:0:[incr a]}}
list $a $e}

Çevrimiçi deneyin!

proc S {L a\ 0 e\ 0} {lmap {x y z} $L {expr {$x==$y&&$y==$z?[incr a]:$x==$y|$y==$z|$x==$z?[incr e]:0}}
list $a $e}

Çevrimiçi deneyin!

Ruby , 59 bayt

->a{[1,2].map{|x|a.each_slice(3).count{|y|x==y.uniq.size}}}

Çevrimiçi deneyin!

Tcl , 98 bayt

proc A l {set 1 0;set 2 0
foreach a\ b\ c $l {incr [llength [lsort -u "$a $b $c"]]}
return $1\ $2}

Çevrimiçi deneyin!

komut -uniqueseçeneğini kullanarak lsort. Kolaylık için adlandırdım 1ve 2değişkenlerim, zor kodlamak için alışılmadık görünüyor set 1 0:)

C # (Visual C # Etkileşimli Derleyici) , 108 bayt

x=>new[]{1,2}.Select(n=>x.Select((v,i)=>(v,g:i/3)).GroupBy(y=>y.g,y=>y.v).Count(y=>y.Distinct().Count()==n))

Çevrimiçi deneyin!

Daha az golf ...

// x is the input list of ints
x=>x
  // 1 distinct number means 3/3 are the same
  // 2 distinct number means 2/3 are the same
  new[]{1,2}
  // iterate over the outer array to get an index
  .Select(n=>x
    // iterate over the whole list with an index
    // and break into groups of size 3
    .Select((v,i)=>v,g:i/3))
    .GroupBy(y=>y.g,y=>y.v)
     // count the distinct values in each group
     // and get the result based on outer array value
    .Count(y=>y.Distinct().Count()==n))