Setelah semua tugas diserahkan, kamus dibuat yang memetakan nomor siswa ke hash file mereka.

Kamus ini, atau hashmap, atau pemetaan (apa pun bahasa Anda menyebutnya) akan terlihat sebagai berikut:

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

Kuncinya adalah nomor siswa, dan nilainya adalah hash.

Tugas kita adalah untuk memilih curang! Curang adalah orang-orang yang memiliki hash identik.

Diberikan input {100: "aabb", 104: "43a", 52: "00ab", 430: "aabb", 332: "43a"}, fungsi harus mengembalikan (atau mencetak) teks berikut:

100 has identical files to 430

104 has identical files to 332

Perhatikan bagaimana file di mana hash unik tidak disebutkan.

Juga, urutannya penting di sini :

{100: "aabb", 202: "aabb", 303: "ab", 404: "aabb"} harus mengembalikan (mencetak) teks berikut:

100 has identical files to 202,404

Tidak benar untuk mencetak salah satu dari yang berikut:

202 has identical files to 100,404

100 has identical files to 404, 202

Anda harus mencetaknya dalam hal bagaimana itu muncul dalam kamus. Dalam beberapa bahasa, membaca kamus adalah acak, jadi dalam kasus khusus ini, Anda diizinkan untuk mengubah metode input sehingga Anda dapat menjalaninya secara teratur.

Lebih banyak contoh:

{} # 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

Kode terpendek menang!

JavaScript (Babel Node) , 113 byte

Mengambil input sebagai array array dalam [key, value]format. Go go gadget double flatMap!

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)

Cobalah online!

JavaScript (Babel Node) , 114 byte

Mengambil input sebagai objek JS asli.

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)

Cobalah online!

Python 2 , 127 126 byte

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)

Cobalah online!

Mengambil daftar pasangan yang dipesan (<studentNumber>,<hash>)sebagai input.

Retina 0.8.2 , 71 byte

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

G`,
%1`,
 has identical files to 

Cobalah online! Mengambil input pada baris yang berbeda tetapi tautan menyertakan test suite yang membagi contoh untuk Anda. Penjelasan:

+

Ulangi pertandingan ini sampai tidak ada lagi penggantian yang dapat dilakukan.

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

Cari pasangan hash yang cocok dan tambahkan kunci dari pertandingan kedua dengan pertandingan pertama dengan pemisah koma.

:.*

Hapus semua hash.

G`,

Hanya simpan garis dengan koma.

%1`,
 has identical files to 

Ganti koma pertama pada setiap baris dengan teks yang diinginkan (termasuk spasi tambahan).

R , 145 132 129 126 124 byte

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

Cobalah online!

Dibutuhkan vektor bernama sebagai input (nama adalah kunci)

• -2 byte terima kasih kepada Giuseppe

Jika ", "pemisah (dengan spasi setelah koma) diizinkan jika ada beberapa duplikat, kita dapat menggunakan kode ini dan menyimpan 10 byte:

R , 114 byte

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

Cobalah online!

05AB1E , 34 byte

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

Cobalah online atau verifikasi semua kasus uji .

Penjelasan:

Σθ}                   # 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)

Lihat ini jawaban 05AB1E saya (bagian Cara menggunakan kamus? ) Untuk memahami mengapa “ÿ€°Ê¼‡œ€„ “adalah "ÿ has identical files to ".

Ruby , 98 96 byte

->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]}}

Cobalah online!

Mengambil input sebagai Ruby Hash, kembali dengan mencetak.

Jelly , 39 byte

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

Cobalah online!

C # (Visual C # Interactive Compiler) , 130 byte

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

Cobalah online!

Yang aneh tentang pertanyaan ini adalah bahwa contoh-contoh diberikan dalam format JSON sebagai pasangan kunci / nilai yang biasanya menyiratkan bahwa mereka tidak berurutan ... Dalam hal ini, urutan adalah penting. Karena itu, saya menggunakan daftar tupel untuk input dan daftar string sebagai output.

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

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

Cobalah online!

Japt , 34 byte

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

Cobalah online!

Saat ini agak tidak konsisten dalam memesan garis, tetapi dalam garis itu output dengan benar. Jika garis-garis output perlu dalam urutan tertentu, itu akan membutuhkan beberapa byte lagi. Input hanyalah sebuah array[id, hash] berpasangan

Penjelasan:

üÌ                                    :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 byte

-2 byte terima kasih kepada Jo King

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

Cobalah online!

Mengambil daftar Pasangan karena hash tidak tertata. Daftar daftar dua elemen akan menghemat beberapa byte tetapi tampaknya tidak otomatis. Mengembalikan daftar garis.

95 88 byte jika urutan garis dalam hasil tidak masalah:

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

Cobalah online!