[過去ﾛｸﾞ] プログラミングのお題スレ Part16 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

411(6): 2019/12/21(土)17:30 ID:BSqycIZI(1) AAS
お題
ビットコインの採掘問題です

000 〜 300 までの3桁の整数の文字列を、MD5 で暗号化した時に、
冒頭部分から、5 が最も多く続く、整数は何？

答え、239 : 555d6〜

---

412: 2019/12/21(土)21:23 ID:WOeaPgYE(1) AAS
>>411
Java
外部ﾘﾝｸ:paiza.io

---

413: 2019/12/21(土)22:58 ID:hbXQRpYW(1) AAS
>>411　PowerShell
$MD5 = new-object "System.Security.Cryptography.MD5CryptoServiceProvider"
$a = 0..300
$hash = $a |% {-join ($MD5.ComputeHash([char[]]("{0:000}" -f $_)) |% {"{0:x2}" -f $_})}
$n = $hash |% {[RegEx]::Match($_, "^5+").length}
$max = ($n | measure -max).Maximum
$a |? {$n[$_] -eq $max} |% {"$_ : " + $hash[$_]}

-- 実行結果 --
239 : 555d6702c950ecb729a966504af0a635

---

414: 2019/12/22(日)03:50 ID:lBW/6Z3k(1) AAS
>>411
Kotlin
外部ﾘﾝｸ:paiza.io

---

415: 2019/12/22(日)14:00 ID:sfBU8dhx(1) AAS
>>411 Ruby

require 'digest'
p ("000".."300").map{|i|[Digest::MD5.hexdigest(i).index(/[^5]/),i]}.max[1]

---

416: 411 2019/12/22(日)19:20 ID:u+b66RrE(1) AAS
>>411 Ruby

require 'digest'

# :count は、先頭から続く、5の数
Result = Struct.new( :num, :md5, :count )

res = ( "000".."300" ).each_with_object( Result.new( nil, nil, -1 ) ) do |num, res|
md5 = Digest::MD5.hexdigest( num ) # ハッシュ化

md5.each_char.with_index do |char, idx| # 1文字ずつ処理する
if char != "5"
if idx > res.count # 大きい時だけ更新する
res.num = num
省9

---

417: 2019/12/23(月)15:49 ID:8tSOZ4fL(1) AAS
>>411
Perl5
外部ﾘﾝｸ:paiza.io

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.050s