13(2): デフォルトの名無しさん [sage] 2023/08/07(月) 20:51:54.50 ID:ZWV0+Q1Z(1) AAS
>>3
Haskell
外部ﾘﾝｸ:ideone.com

14(1): デフォルトの名無しさん [] 2023/08/08(火) 16:30:48.37 ID:mHXT/QMM(1) AAS
>>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