ความท้าทายนั้นง่าย

เขียนสคริปต์ที่เมื่อได้รับอินพุตสตริงจะแฮชสตริงโดยใช้อัลกอริทึมการแปลงค่าMD2แล้วส่งกลับจำนวนเต็มบวกหรือจำนวนเต็มลบที่อิงกับอักขระที่ตั้งไว้ด้านล่างซึ่งพบได้บ่อยในแฮชที่เป็นผลลัพธ์เป็นสตริงเลขฐานสิบหก:

01234567 - (positive)
89abcdef - (negative)

• อินพุตจะเป็นสตริงเสมอ แต่อาจมีความยาวไม่เกิน 65535
• ช่องว่างทั้งหมดและช่องว่างทั้งหมดต้องถูกแฮช
• สำหรับจุดประสงค์ของการท้าทายนี้จำนวนเต็ม 0 จะไม่ถือว่าเป็นค่าบวกหรือค่าลบ (ดูที่เอาต์พุต tie)
• ชุดที่พบมากขึ้นคือชุดอักขระที่พบได้บ่อยกว่าภายในสตริงแฮชเลขฐานสิบหก 32 อักขระ
• ผลลัพธ์ของคุณอาจมีช่องว่างต่อท้ายทุกชนิดตราบใดที่อักขระที่ไม่ใช่ช่องว่างเท่านั้นเป็นผลลัพธ์ที่ถูกต้องหรือเป็นเท็จ
• ในกรณีที่มีการเสมอกันโดยที่สตริงเลขฐานสิบหกมีจำนวน 16 อักขระจากแต่ละชุดโปรแกรมควรส่งออก 0

ตัวอย่าง I / O

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

เกณฑ์การชนะ

นี่คือcode-golf , ไบต์ที่น้อยที่สุดชนะ!

อ็อกเทฟ 35 ไบต์

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

* ต้องการ Octave เวอร์ชันล่าสุด (อย่างน้อย 4.2)

คำนวณฮิสต์เคานต์ของสตริงแฮชกับจุดศูนย์กลางของถังขยะคือ 7 และ 8 จากนั้นคำนวณความแตกต่างของการนับ

Mathematica ขนาด 43 ไบต์

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

ขาออกจำนวนของตัวเลขในลบด้วยจำนวนตัวเลขใน0123456789abcdef

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 ไม่มี builtin ดั้งเดิมสำหรับ 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;}

คิดบวกเพื่อความจริง เป็นลบสำหรับความเท็จ 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 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 ฉันไม่ผ่านการเป็นตัวแทน hex เลย ดังนั้นจึงเป็นเรื่องธรรมดาที่จะเริ่มเล่นกับบิต

คุณค่า<0คือความเท็จค่านิยม>0คือความจริงคุณค่า0ไม่ใช่ความจริงหรือเท็จ truthy ตามปกติและ falsey ไม่สามารถนำไปใช้ Java เวลานี้ (เพราะมันไม่สามารถtrueหรือfalseหรือ0มีกฎif(<truthy>)) ดังนั้นฉันเอาเสรีภาพในการประกาศดังกล่าว

ประหยัด

1. 137 -> 130 ไบต์: golfed โดยใช้การดำเนินการบิตลบ 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)