Po przesłaniu wszystkich zadań tworzony jest słownik, który odwzorowuje liczbę studentów na skrót ich pliku.

Ten słownik, mapa skrótów lub mapowanie (niezależnie od tego, jak nazywa się Twój język) będzie wyglądać następująco:

{100: "aabb", 104: "43a", 52: "00ab", 430: "aabb", 332: "43a"}

Kluczem jest numer studenta, a wartością jest skrót.

Naszym zadaniem jest wybranie oszustów! Oszuści to ci, którzy mają identyczne hasze.

Biorąc pod uwagę dane wejściowe {100: "aabb", 104: "43a", 52: "00ab", 430: "aabb", 332: "43a"}, funkcja powinna zwrócić (lub wydrukować) następujący tekst:

100 has identical files to 430

104 has identical files to 332

Zauważ, że pliki, dla których skróty są unikalne, nie są wymieniane.

Ważna jest również kolejność :

{100: "aabb", 202: "aabb", 303: "ab", 404: "aabb"} powinien zwrócić (wydrukować) następujący tekst:

100 has identical files to 202,404

Jest to błędne wydrukować dowolny z poniższych sytuacji:

202 has identical files to 100,404

100 has identical files to 404, 202

Powinieneś wydrukować go pod kątem wyglądu w słowniku. W niektórych językach przeglądanie słownika jest losowe, więc w tym szczególnym przypadku możesz zmienić metodę wprowadzania, tak abyś mógł przeglądać go w uporządkowany sposób.

Więcej przykładów:

{} # prints nothing

{100: "ab", 303: "cd"} # prints nothing again

{100: "ab", 303: "cd", 404: "ab"}

100 has identical files to 404

{303: "abc", 304: "dd", 305: "abc", 405: "dd", 606: "abc"}

303 has identical files to 305,606

304 has identical files to 405

Najkrótszy kod wygrywa!

JavaScript (węzeł Babel) , 113 bajtów

Pobiera dane wejściowe jako tablicę tablic w [key, value]formacie. Go Go gadżet podwójnie płaski

o=>o.flatMap(([x,h],i)=>(a=o.flatMap(([y,H],j)=>j>i&H==h?(o[j]=[,j],[y]):[]))+a?x+' has identical files to '+a:a)

Wypróbuj online!

JavaScript (węzeł Babel) , 114 bajtów

Pobiera dane wejściowe jako rodzimy obiekt JS.

o=>Object.keys(o).flatMap((x,i,a)=>(a=a.filter(y=>i--<0&o[y]==o[x]&&(o[y]=y)))+a?x+' has identical files to '+a:a)

Wypróbuj online!

Python 2 , 127 126 bajtów

def f(x):
 for l in{`[K for K,V in x if v==V]`[1:-1]for k,v in x}:
	if','in l:print l.replace(',',' has identical files to',1)

Wypróbuj online!

Pobiera na (<studentNumber>,<hash>)wejściu listę uporządkowanych par .

Retina 0.8.2 , 71 bajtów

+m`((:.+)$(¶|.)+?)^(.+)\2$
,$4$1
:.*

G`,
%1`,
 has identical files to 

Wypróbuj online! Pobiera dane w osobnych wierszach, ale link zawiera zestaw testów, który dzieli dla ciebie przykłady. Wyjaśnienie:

+

Powtarzaj ten mecz, dopóki nie będzie można dokonać żadnej wymiany.

m`((:.+)$(¶|.)+?)^(.+)\2$
,$4$1

Wyszukaj pary pasujących skrótów i dołącz klucz drugiego dopasowania do klucza pierwszego dopasowania za pomocą separatora przecinków.

:.*

Usuń wszystkie skróty.

G`,

Zachowaj tylko linie z przecinkami.

%1`,
 has identical files to 

Zastąp pierwszy przecinek w każdym wierszu żądanym tekstem (w tym spacją końcową).

R , 145 132 129 126 124 bajtów

function(m,`!`=names)for(e in !(t=table(m))[t>1])cat(el(n<-!m[m==e]),'has identical files to',paste(n[-1],collapse=','),'
')

Wypróbuj online!

Jako dane wejściowe przyjmuje nazwany wektor (nazwy to klucze)

• -2 bajty dzięki Giuseppe

Jeśli ", "separator (ze spacją po przecinku) jest dozwolony w przypadku wielu duplikatów, możemy użyć tego kodu i zapisać 10 bajtów:

R , 114 bajtów

function(m,`!`=names)for(e in !(t=table(m))[t>1])cat(el(n<-!m[m==e]),'has identical files to',toString(n[-1]),'
')

Wypróbuj online!

05AB1E , 34 bajty

Σθ}.γθ}vyg1›iy€нć“ÿ€°Ê¼‡œ€„ “?',ý,

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

Σθ}                   # Sort the (implicit) input by the string
.γθ}                  # Then group it by the string
v                     # Loop `y` over each grouped inner list
 yg1›i                #  If the group contains more than 1 key-value pairs:
      y€н             #   Only leave the keys
      ć               #   Pop and push the head and rest of the list separately
                      #   (with the head being at the top of the stack now)
       “ÿ€°Ê¼‡œ€„ “   #   Compressed string "ÿ has identical files to "
                      #   where the "ÿ" is automatically replaced with the top of the stack
                   ?  #   Print it (without trailing newline)
       ',ý           '#   Join the remaining numbers by a comma
          ,           #   And output it as well (with trailing newline)

Zobacz moją odpowiedź 05AB1E (sekcja Jak korzystać ze słownika? ), Aby zrozumieć, dlaczego tak “ÿ€°Ê¼‡œ€„ “jest "ÿ has identical files to ".

Rubin , 98 96 bajtów

->h{h.group_by{|k,v|v}.map{|k,v|x,*y=v.to_h.keys;p"#{x} has identical files to #{y*?,}"if y[0]}}

Wypróbuj online!

Pobiera dane jako Ruby Hash, zwraca przez drukowanie.

Galaretka , 39 bajtów

Ṫ€ĠḊƇṢịẎµḢ;“]⁶ḅhṬyU⁹æṇL[Oþ⁹cƘƓ»,ṾK)j⁾¶¶

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 130 bajtów

a=>a.GroupBy(x=>x.Value,x=>x.Key).Where(x=>x.Count()>1).Select(x=>x.First()+" has identical files to "+String.Join(",",x.Skip(1)))

Wypróbuj online!

Dziwną rzeczą w tym pytaniu jest to, że przykłady podano w formacie JSON jako pary klucz / wartość, co zwykle implikuje, że są nieuporządkowane ... W tym przypadku jednak kolejność jest ważna. Jako taki używam listy krotek dla danych wejściowych i listy ciągów jako danych wyjściowych.

// a is a list of tuples
// (student #, hash)
a=>a
  // group by hash
  // grouped items are the student #'s
  .GroupBy(x=>x.Value,x=>x.Key)
  // remove single student groups
  .Where(x=>x.Count()>1)
  // format the output strings
  .Select(x=>x.First()+
    " has identical files to "+
    String.Join(",",x.Skip(1)))

Perl 5, 100 +1 (-n) bajtów

for$x(/[a-z]+/g){($t,@a)=${h{$x}}++?():/\d+(?= $x)/g;@a&&say"$t has identical files to ",join",",@a}

Wypróbuj online!

Japt , 34 bajty

üÌl>1 ®mgîÎ+` •s ÅÁÈól fÅC ‘ `+ZÅ

Wypróbuj online!

W tej chwili jest to trochę niespójne w porządkowaniu linii, ale w linii wyświetla się poprawnie. Jeśli wiersze danych wyjściowych muszą być w określonej kolejności, zajmie to jeszcze kilka bajtów. Dane wejściowe to tylko tablica [id, hash]par

Wyjaśnienie:

üÌ                                    :Group by hash
  l>1                                 :Remove the ones that are unique
      ®mgà                            :Get just the Ids
          ®                           :Generate a string for each hash:
           Î                          : The first Id with that hash
            +` •s ÅÁÈól fÅC ‘ `       : Plus " has identical files to " compressed
                               +ZÅ    : Plus the remaining Ids
                                      : Implicitly comma delimited

Perl 6 , 115 110 103 bajtów

-2 bajty dzięki Jo King

{unique map {.[0]~" has identical files to "~join ',',.skip},grep *>1,.map:{.grep(*{*}eq$^p{*})>>.key}}

Wypróbuj online!

Pobiera listę par, ponieważ skróty są nieuporządkowane. Lista dwuelementowych list zaoszczędziłaby kilka bajtów, ale wydaje się jednoznaczna. Zwraca listę wierszy.

95 88 bajtów, jeśli kolejność linii w wyniku nie ma znaczenia:

*.classify(*{*}){*}>>.key.grep(*>1).map:{.[0]~" has identical files to "~join ',',.skip}

Wypróbuj online!