プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

474(4): 01/04(土)21:19 ID:uiECOsgP(2/2) AAS
お題
貨幣・銀行券を次の文字列で表すとします
(1)
(5)
(10)
(50)
(100)
省16

---

475: 01/04(土)22:52 ID:frbzLXtQ(1) AAS
>>474 c
外部ﾘﾝｸ:ideone.com

---

477: 01/05(日)21:35 ID:6Z+55hA8(1) AAS
>>474 ruby
外部ﾘﾝｸ:ideone.com

---

479: 警備員[Lv.18] 01/12(日)04:47 ID:zWON4EbF(2/2) AAS
>>474
Kotlin
外部ﾘﾝｸ:paiza.io

---

483(1): 9 01/20(月)01:11 ID:zWVP8H/r(1) AAS
>>474 Perl5

$s = '(100)(10)(1)[10000](5)(500)[1000][5000][1000][1000](10)(100)(50)(100)[1000]';
$h{$_} .= $_ for $s =~ /\(\d+\)|\[\d+\]/g;
use List::Util 'sum';
$v{$h{$_}} = sum($h{$_} =~ /\d+/g) for keys %h;
print "$_\n" for sort{$v{$b} <=> $v{$a}} keys %v;

実行結果
省10

---

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

---

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

---

ぬこの手 ぬこTOP 0.026s