El desafío es simple.

Escriba una secuencia de comandos que, cuando se le dé una entrada de cadena, haga un hash de la cadena utilizando el algoritmo de hash MD2 , y luego devuelva un entero positivo o una salida de entero negativo según el conjunto de caracteres que se muestra a continuación en el hash resultante como una cadena hexadecimal:

01234567 - (positive)
89abcdef - (negative)

• La entrada siempre será una cadena, pero puede tener cualquier longitud hasta 65535
• Toda la entrada, el espacio en blanco y todo, debe ser hash
• Para los propósitos de este desafío, el entero 0 no se considera positivo ni negativo (ver salida de empate)
• El conjunto más común es aquel cuyos caracteres son más comunes dentro de la cadena hash hexadecimal de 32 caracteres
• Su salida puede contener espacios en blanco finales de cualquier tipo, siempre que los únicos caracteres que no sean espacios en blanco sean una salida verdadera o falsey válida
• En caso de empate, donde la cadena hexadecimal contiene exactamente 16 caracteres de cada conjunto, el programa debería generar un 0

Ejemplos de E / S

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

Criterio ganador

Este es el código de golf , ¡gana la menor cantidad de bytes!

Octava, 35 bytes

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

* Requiere la última versión de Octave (al menos 4.2).

Calcula los conteos históricos de la cadena hash con su centro de ubicaciones son 7 y 8 y luego calcula la diferencia de conteos.

Mathematica, 43 bytes

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

Emite el número de dígitos en 01234567menos el número de dígitos en 89abcdef.

JavaScript (ES6), 731 bytes

Este monstruo está implementando el algoritmo MD2, por lo que es vergonzosamente largo. Basado en js-md2 por 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 bytes

Python no tiene un nativo incorporado para MD2.

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

_{Guardado 12 bytes gracias a @ovs.
Guardado 9 bytes gracias a @FelipeNardiBatista.}

Java 8, 173 bytes

-4 gracias a dzaima

-128 gracias a Oliver, esta es básicamente su respuesta ahora.

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

Positivo para la verdad. Negativo para la falsedad. 0 por 0.

PHP, 50 bytes

imprime 1 para verdad y -1 para falso y 0 para un empate

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

PHP, 58 bytes

imprime 1 para verdad y -1 para falso y 0 para un empate

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

PHP, 56 bytes

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

Java 137 130 124 123 bytes

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

¡Pruébalo en línea!

Básicamente, para cada byte, se nos pide que verifiquemos sus bits 4 y 8 menos significativos. No paso por la representación hexadecimal en absoluto. Entonces parecía natural comenzar a jugar con bits.

Los valores <0son falsey, los valores >0son verdaderos, el valor 0no es ni verdadero ni falsey. El Truthy y Falsey- habitual no se pueden aplicar a Java este tiempo (ya que no puede ser trueni falseo 0con la regla if(<truthy>)), así que me tomé la libertad de declarar como tal.

Ahorra

1. 137 -> 130 bytes: golf usando operaciones de bit, eliminando 2 cada vez que obtengo un bit "falso".
2. 130 -> 124 bytes: más operaciones bit a bit
3. 124 -> 123 bytes: reemplazado bytepor inten la declaración de bucle for.

Paquete Tcl + Trf , 79

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

Pruébalo en línea . (Gracias @Dennis por agregar Tcl a TIO).