Trong giao thức Bitcoin, năm 2016 là một con số rất đặc biệt. "Khó khăn" của việc tìm kiếm một hàm băm để tạo một khối mới được điều chỉnh cứ sau 2.016 khối để thay đổi gần đúng cứ sau hai tuần.

Con số này được chọn là do độ khó tự điều chỉnh sao cho mỗi khối mất khoảng 10 phút để được tìm thấy và trong hai tuần, có 2 × 7 × 24 × 6 = 2.016 khoảng thời gian mười phút.

Để kỷ niệm sự trùng hợp về số này, vấn đề năm mới của năm nay là về Bitcoin - cụ thể là thuật toán băm mà nó sử dụng để ký các khối, SHA-256.

Nhiệm vụ của bạn là tạo ra một chương trình sẽ lấy đầu vào byte (ít nhất là ASCII) và xuất ra một byte không theo byte (theo định dạng bạn chọn) sẽ tạo ra hàm băm SHA-256 chứa 2016trong biểu diễn base64 của nó khi được thêm vào bản gốc đầu vào byte.

Dưới đây là một số ví dụ về các giải pháp hợp lệ, lịch sự của các công cụ mà mọi người đã tạo ra, cũng như các băm mà họ tạo ra:

> foo
Nonce: 196870
SHA256 hash: OCUdDDtQ42wUlKz2016x+NROo8P2lbJf8F4yCKedTLE=

> bar
Nonce: 48230
SHA256 hash: CNcaOCQgT7bnlQzQPXNwuBu8/LYEdk2016khRaROyZk=

> happynewyear
Nonce: 1740131
SHA256 hash: XsKke6z2016BzB+wRNCm53LKJ6TW6ir66GwuC8oz1nQ=

> 2016
Nonce: 494069
SHA256 hash: rWAHW2YFhHCr22016zw+Sog6aW76eImgO5Lh72u6o5s=

(note: the nonces don't actually have to be ASCII numbers; you can do
 any byte input you find convenient.)

Thư viện được xây dựng sẵn duy nhất (ngoài các hàm đầu vào và đầu ra tiêu chuẩn) mà chương trình của bạn có thể sử dụng là một SHA256(bytes)hàm lấy đầu vào byte và trả về hàm băm SHA256, ở bất kỳ định dạng nào kể cả base64.

Chương trình để làm điều này trong vài byte mã nguồn chiến thắng.

Perl 5.10+, 39 + 18 = 57 byte

sha256_base64($_.++$i)!~2016?redo:say$i

Điều này cần phải được chạy với -nMDigest::SHA=/./chuyển đổi dòng lệnh, được bao gồm trong số byte. Nó cũng sử dụng saytính năng Perl 5.10+ và do đó cần phải được chạy bằng công tắc dòng lệnh -M5.010(hoặc -E), được coi là miễn phí. Đầu vào phải được cung cấp trên stdin, không có dòng mới (trừ khi bạn muốn dòng mới được coi là một phần của đầu vào).

Ví dụ:

$ echo -n foo | perl -nMDigest::SHA=/./ -E 'sha256_base64($_.++$i)!~2016?redo:say$i'
196870
$ echo -n bar | perl -nMDigest::SHA=/./ -E 'sha256_base64($_.++$i)!~2016?redo:say$i'
48230
$ echo -n happynewyear | perl -nMDigest::SHA=/./ -E 'sha256_base64($_.++$i)!~2016?redo:say$i'
1740131
$ echo -n 2016 | perl -nMDigest::SHA=/./ -E 'sha256_base64($_.++$i)!~2016?redo:say$i'
494069

Toán học, 94

(For[i=0,IntegerDigits[4Hash[#<>ToString@++i,"SHA256"],64]~SequenceCount~{54,52,53,58}<1,];i)&

Hàm này sẽ thử các số nguyên dương làm ứng viên. Phải mất hơn 4 phút trên máy tính xách tay của tôi để có câu trả lời chính xác.

%["foo"]
(* 196870 *)

Tuy nhiên, ~5xviệc triển khai ( ) lâu hơn sẽ sử dụng song song hóa:

f[k_]:=
    Do[If[Length@#>0,Return[i+#[[1,1]]]]&@
        Position[ParallelMap[IntegerDigits[4Hash[k<>ToString@#,"SHA256"],64]
            ~SequenceCount~{54,52,53,58}&,i+Range@1*^4],1]
        ,{i,0,∞,1*^4}]

Ruby, 87 86 byte

Tôi không chắc mình đã hiểu đúng thách thức hay chưa, nhưng nó sẽ tìm thấy 196870trong vài giây nếu bạn nhập foo.

require"digest"
gets.chop!
$.+=1until/2016/=~Digest::SHA256.base64digest("#$_#$.")
p$.

PowerShell, 150 152 153 byte

while([Convert]::ToBase64String([Security.Cryptography.SHA256]::Create().ComputeHash([Text.Encoding]::UTF8.GetBytes("$args$i")))-notmatch2016){$i++}$i

Thí dụ

PS > .\BitCoin.ps1 foo
196870

PS > .\BitCoin.ps1 bar
48230

PS > .\BitCoin.ps1 happynewyear
1740131

PS > .\BitCoin.ps1 2016
494069

C #, 179 byte

s=>{int i=0;while(!System.Convert.ToBase64String(System.Security.Cryptography.SHA256.Create().ComputeHash(System.Text.Encoding.UTF8.GetBytes(s+i))).Contains("2016"))i++;return i;}

Tương tự như giải pháp PowerShell, chỉ cần lâu hơn.