После отправки всех заданий создается словарь, который отображает номер студента в хэш их файла.

Этот словарь, или hashmap, или отображение (как бы это ни называл ваш язык) будет выглядеть следующим образом:

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

Ключ - это номер студента, а значение - хеш.

Наша задача - выбрать читеров! Мошенники - это те, которые имеют идентичные хэши.

С учетом ввода {100: "aabb", 104: "43a", 52: "00ab", 430: "aabb", 332: "43a"}функция должна вернуть (или напечатать) следующий текст:

100 has identical files to 430

104 has identical files to 332

Обратите внимание, что файлы с уникальными хэшами не упоминаются.

Также здесь важен порядок :

{100: "aabb", 202: "aabb", 303: "ab", 404: "aabb"} должен вернуть (распечатать) следующий текст:

100 has identical files to 202,404

Это неправильно для печати любого из следующих условий :

202 has identical files to 100,404

100 has identical files to 404, 202

Вы должны напечатать это с точки зрения того, как это появляется в словаре. В некоторых языках просмотр словаря происходит случайно, поэтому в этом особом случае вам разрешается изменять метод ввода так, чтобы вы могли проходить его упорядоченным образом.

Больше примеров:

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

Самый короткий код выигрывает!

JavaScript (Babel Node) , 113 байт

Принимает ввод в виде массива массивов в [key, value]формате. Go Go Gadget двойной плоский карта!

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)

Попробуйте онлайн!

JavaScript (Babel Node) , 114 байт

Принимает ввод как собственный объект 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)

Попробуйте онлайн!

Python 2 , 127 126 байтов

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)

Попробуйте онлайн!

Принимает список упорядоченных пар в (<studentNumber>,<hash>)качестве входных данных.

Сетчатка 0.8.2 , 71 байт

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

G`,
%1`,
 has identical files to 

Попробуйте онлайн! Принимает ввод в отдельных строках, но ссылка включает набор тестов, который разбивает примеры для вас. Объяснение:

+

Повторяйте это совпадение до тех пор, пока больше не будет выполнено никаких замен.

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

Найдите пары совпадающих хэшей и добавьте ключ второго совпадения к ключу первого совпадения с помощью разделителя запятых.

:.*

Удалить все хеши.

G`,

Оставляйте только строки с запятыми.

%1`,
 has identical files to 

Замените первую запятую в каждой строке нужным текстом (включая завершающий пробел).

R , 145 132 129 126 124 байт

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

Попробуйте онлайн!

В качестве входных данных используется именованный вектор (имена - это ключи)

• -2 байта благодаря Джузеппе

Если ", "разделитель (с пробелом после запятой) разрешен в случае нескольких дубликатов, мы можем использовать этот код и сохранить 10 байтов:

R , 114 байт

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

Попробуйте онлайн!

05AB1E , 34 байта

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

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

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

Смотрите этот 05AB1E ответ мой (раздел Как использовать словарь? ) , Чтобы понять , почему “ÿ€°Ê¼‡œ€„ “это "ÿ has identical files to ".

Рубин , 98 96 байт

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

Попробуйте онлайн!

Принимает ввод как Ruby Hash, возвращает печать.

Желе , 39 байт

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

Попробуйте онлайн!

C # (интерактивный компилятор Visual C #) , 130 байт

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

Попробуйте онлайн!

Странная вещь в этом вопросе состоит в том, что примеры приведены в формате JSON в виде пар ключ / значение, что обычно подразумевает, что они неупорядочены ... В этом случае, однако, порядок важен. Поэтому я использую список кортежей для ввода и список строк в качестве вывода.

// 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) байтов

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

Попробуйте онлайн!

Japt , 34 байта

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

Попробуйте онлайн!

Прямо сейчас это немного противоречиво в порядке строк, но в пределах строки он выводит правильно. Если строки вывода должны быть в определенном порядке, это займет еще несколько байтов. Ввод - это просто массив[id, hash] пар

Объяснение:

üÌ                                    :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 байтов

-2 байта благодаря Джо Кингу

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

Попробуйте онлайн!

Принимает список пар, поскольку хэши неупорядочены. Список из двухэлементных списков может сэкономить несколько байтов, но, похоже, не содержит символов. Возвращает список строк.

95 88 байт, если порядок строк в результате не имеет значения:

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

Попробуйте онлайн!