Завдання проста

Напишіть сценарій, який при введенні рядка буде хешувати рядок за допомогою алгоритму хешування MD2 , а потім поверне або позитивне ціле, або негативне ціле число, на основі якого набір символів нижче є більш поширеним у отриманому хеші як шістнадцятковий рядок:

01234567 - (positive)
89abcdef - (negative)

• Вхід завжди буде рядком, але може бути будь-якої довжини до 65535
• Весь вхід, пробіл і всі повинні бути хешовані
• Для цілей цього виклику ціле число 0 не вважається ні позитивним, ні негативним (див. Результат зв'язання)
• Більш поширеним набором є той, хто символи частіше зустрічаються в шістнадцятковій хеш-рядку 32 символів
• Ваш вихід може містити будь-який пробіл будь-якого типу, якщо єдині символи, що не містять пробілів, є дійсним виводом або фальсиєю
• У разі прив'язки, де шістнадцятковий рядок містить рівно 16 символів з кожного набору, програма повинна вивести 0

Приклади вводу / виводу

Input: "" (Empty String)
Hash: 8350e5a3e24c153df2275c9f80692773
Output: 1

Input: "The quick brown fox jumps over the lazy cog" (Without quotes)
Hash: 6b890c9292668cdbbfda00a4ebf31f05
Output: -1

Input: "m" (Without quotes)
Hash: f720d455eab8b92f03ddc7868a934417
Output: 0

Критерій виграшу

Це кодовий гольф , найменше виграш байтів!

Октава, 35 байт

@(s)diff(hist(hash('md2',s),+'78'))

* Потрібна остання версія Octave (принаймні 4.2).

Обчислює кількість рахунків хеш-рядка з центром бункерів 7 і 8, а потім обчислює різницю підрахунків.

Математика, 43 байти

Tr@Sign[15-2#~Hash~"MD2"~IntegerDigits~16]&

Виводить кількість цифр 01234567мінус кількість цифр у 89abcdef.

JavaScript (ES6), 731 байт

Цей монстр реалізує алгоритм MD2, тож він незручно довгий. На основі js-md2 Chen Yi-Cyuan.

let f =

m=>{L=x=s=b=0,n=m.length,M=[],X=[],C=[],S=[...atob`KS5DyaLYfAE9NlSh7PAGE2KnBfPAx3OMmJMr2bxMgsoem1c8/dTgFmdCbxiKF+USvk7E1tqe3kmg+/WOuy/ueqloeZEVsgc/lMIQiQsiXyGAf12aWpAyJzU+zOe/95cD/xkws0iltdHXXpIqrFaqxk+4ONKWpH22dvxr4px0BPFFnXBZZHGHIIZbz2XmLagCG2Alra6wufYcRmFpNEB+D1VHoyPdUa86w1z5zrrF6iYsUw1uhSiECdPfzfRBgU1Satw3yGzBq/ok4XsIDL2xSniIlYvjY+ht6cvV/jsAHTny77cOZljQ5KZ3cvjrdUsKMURQtI/tHxrbmY0znxGDFA`].map(c=>c[O='charCodeAt']());for(l=1;l-2;){for(j=19;j--;)M[j]=M[16+j]||0;for(i=s;i<16;x++)L=(x-n||(b+=i-s,s=i-16,l=2),C[i]^=S[(M[i++]=x<n?m[O](x):16-(b&15))^L]);for(i=0;i<l;i++){for(j=16;j--;)X[32+j]=(X[16+j]=(i?C:M)[j])^X[j];for(t=j=0;j<18;t=t+j++&255)for(k=0;k<48;)t=X[k++]^=S[t]}}for(i=16,n=-i;i--;)n+=!(X[i]&8)+!(X[i]&128);return n}

console.log(f(''))
console.log(f('The quick brown fox jumps over the lazy cog'))
console.log(f('m'))

Python 2 + Crypto , 108 99 93 91 87 78 байт

Python не має вбудованої MD2.

from Crypto.Hash import*
lambda s:sum(x<'8'for x in MD2.new(s).hexdigest())-16

_{Збережено 12 байт завдяки @ovs.
Збережено 9 байт завдяки @FelipeNardiBatista.}

Java 8, 173 байти

-4 завдяки dzaima

-128 завдяки Оліверу, це в основному його відповідь зараз.

a->{String h="";for(byte b:java.security.MessageDigest.getInstance("MD2").digest(a.ge‌​tBytes()))h+=h.forma‌​t("%02x",b);return h.codePoints().filter(c->c>47&&c<56).count()-16;}

Позитивні для truthy. Негативний фальшивий результат. 0 за 0.

PHP, 50 байт

відбитки 1 для трибути і -1 для помилкових і 0 для краватки

<?=preg_match_all("#[0-7]#",hash(md2,$argn))<=>16;

PHP, 58 байт

відбитки 1 для трибути і -1 для помилкових і 0 для краватки

<?=16<=>strlen(preg_filter("#[0-7]#","",hash(md2,$argn)));

PHP, 56 байт

while($i<32)${hash(md2,$argn)[$i++]>'7'}++;echo$$_<=>16;

Java 137 130 124 123 байт

a->{int c=32;for(int b:java.security.MessageDigest.getInstance("MD2").digest(a.getBytes()))c-=(b>>6&2)+(b>>2&2);return c;}

Перевірте це в Інтернеті!

В основному, для кожного байта нас просять перевірити його 4-й та 8-й найменш значущі біти. Я взагалі не проходжу шестигранну репрезентацію. Тож здавалося єдиним природним починати грати з бітами.

Цінності <0- фальси, цінності >0- неправдиві, значення 0не є ні truthy, ні falsey. Звичайна truthy і falsey не може бути застосований до Java на цей раз (бо не може бути trueабо falseабо 0з правилом if(<truthy>)), так що я взяв на себе сміливість оголосити як такої.

Економить

1. 137 -> 130 байт: гольф, використовуючи бітові операції, видаляючи 2 щоразу, коли я отримую "фальшивий" біт.
2. 130 -> 124 байти: більше побітових операцій
3. 124 -> 123 байти: замінено byteна intв оголошенні для циклу.

Tcl + Trf пакет , 79

package require Trf
puts [expr [regexp -all \[0-7\] [hex -m e [md2 $argv]]]-16]

Спробуйте в Інтернеті . (Дякуємо @Dennis, що додав Tcl до TIO.)