プログラミングのお題スレ Part22 (857ﾚｽ)

プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

10: デフォルトの名無しさん [sage] 2023/08/07(月) 01:57:03.56 ID:PMO8D1QO >>9 ｺﾞﾒﾝ、2行目に間違いあり…orz 　my %h = map{$_ => 1} grep{/[a-z]/i} split ''; 　↓正しくは 　my %h = map{$_ => 1} map{lc} grep{/[a-z]/i} split ''; 実行結果は今回のテストデータだとたまたま同じ結果になる。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/10

14: デフォルトの名無しさん [] 2023/08/08(火) 16:30:48.37 ID:mHXT/QMM >>10 2行目はもっと簡潔に書ける 　my %h = map{$_ => 1} map{lc} grep{/[a-z]/i} split ''; 　↓ 　my %h = map{lc $_ => 1} /([A-Za-z])/g; 結局、これでよい筈 for (<DATA>) { 　my %h = map{lc $_ => 1} /([A-Za-z])/g; 　push @a, $_ if 26 == keys %h; } @s = sort{length $a <=> length $b} @a; print $s[0]; __DATA__ … (ry http://mevius.5ch.net/test/read.cgi/tech/1691038333/14

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.632s*