Thử thách rất đơn giản.

Viết một tập lệnh, khi được cung cấp một chuỗi đầu vào, sẽ băm chuỗi bằng thuật toán băm MD2 , và sau đó trả về một đầu ra số nguyên dương hoặc số nguyên âm dựa trên tập ký tự bên dưới phổ biến hơn trong chuỗi băm kết quả dưới dạng chuỗi thập lục phân:

01234567 - (positive)
89abcdef - (negative)

• Đầu vào sẽ luôn là một chuỗi, nhưng có thể có độ dài bất kỳ lên tới 65535
• Toàn bộ đầu vào, khoảng trắng và tất cả, phải được băm
• Đối với mục đích của thử thách này, số nguyên 0 được coi là không dương hoặc âm (xem đầu ra tie)
• Tập hợp phổ biến hơn là tập hợp các ký tự phổ biến hơn trong chuỗi băm thập lục phân 32 ký tự
• Đầu ra của bạn có thể chứa khoảng trắng ở bất kỳ loại nào, miễn là các ký tự không phải khoảng trắng là đầu ra hợp lệ hoặc falsey hợp lệ
• Trong trường hợp hòa, trong đó chuỗi thập lục phân chứa chính xác 16 ký tự từ mỗi bộ, chương trình sẽ xuất ra 0

Ví dụ 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

Tiêu chí chiến thắng

Đây là mã golf , ít byte thắng nhất!

Octave, 35 byte

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

* Yêu cầu phiên bản mới nhất của Octave (ít nhất là 4.2).

Tính toán số đếm của chuỗi băm với tâm thùng là 7 và 8 sau đó tính toán sự khác biệt của số đếm.

Toán học, 43 byte

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

Xuất ra số chữ số 01234567trừ đi số chữ số trong 89abcdef.

JavaScript (ES6), 731 byte

Con quái vật này đang thực hiện thuật toán MD2, vì vậy nó rất dài. Dựa trên js-md2 của 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 byte

Python không có nội dung dựng sẵn cho MD2.

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

_{Đã lưu 12 byte nhờ @ovs.
Đã lưu 9 byte nhờ @FelipeNardiBatista.}

Java 8, 173 byte

-4 cảm ơn dzaima

-128 nhờ Oliver, đây là câu trả lời của anh ấy.

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

Tích cực cho sự thật. Tiêu cực cho giả. 0 cho 0.

PHP, 50 byte

in 1 cho trung thực và -1 cho sai và 0 cho cà vạt

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

PHP, 58 byte

in 1 cho trung thực và -1 cho sai và 0 cho cà vạt

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

PHP, 56 byte

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

Java 137 130 124 123 byte

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

Kiểm tra nó trực tuyến!

Về cơ bản, đối với mỗi byte, chúng tôi được yêu cầu kiểm tra các bit quan trọng thứ 4 và thứ 8 của nó. Tôi không đi qua các đại diện hex cả. Vì vậy, dường như chỉ tự nhiên để bắt đầu chơi với bit.

Giá trị <0là falsey, giá trị >0là sự thật, giá trị 0không phải là sự thật hay falsey. Các truthy thông thường và falsey không thể được áp dụng cho Java thời gian này (vì nó không thể truehay falsehoặc 0với sự cai trị if(<truthy>)), vì vậy tôi mất sự tự do để khai báo như vậy.

Tiết kiệm

1. 137 -> 130 byte: được chơi bằng cách sử dụng các thao tác bit, loại bỏ 2 lần mỗi khi tôi nhận được bit "giả".
2. 130 -> 124 byte: hoạt động nhiều bit hơn
3. 124 -> 123 byte: được thay thế bytebằng inttrong khai báo vòng lặp for.

Gói Tcl + Trf , 79

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

Hãy thử trực tuyến . (Cảm ơn @Dennis vì đã thêm Tcl vào TIO.)