プログラミングのお題スレ Part22 (862ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
9(58): 9 [sage] 2023/08/07(月)01:46 ID:PMO8D1QO(1/2)
>>3 Perl5
for (<DATA>) {
my %h = map{$_ => 1} grep{/[a-z]/i} split '';
push @a, $_ if 26 == keys %h;
}
@s = sort{length($a) <=> length($b)} @a;
print $s[0];
__DATA__
The quick brown fox jumps over a lazy dog.
The jay, pig, fox, zebra and my wolves quack!
Pack my box with seven dozen liquor jugs.
The horse, pig, fox, zebra and my wolves quack!
Jackdaws love my small sphinx of quartz.
Jackdaws love my big sphinx of quartz.
The quick brown fox jumps over a lazy cat.
Pack my box with five dozen liquor jugs.
※ 見易くするためインデントを全角スペースに置換してあります。
実行結果：
$ perl 22_3_az26.pl
Jackdaws love my big sphinx of quartz.
10(1): デフォルトの名無しさん [sage] 2023/08/07(月)01:57 ID:PMO8D1QO(2/2)
>>9 ｺﾞﾒﾝ、2行目に間違いあり…orz
my %h = map{$_ => 1} grep{/[a-z]/i} split '';
↓正しくは
my %h = map{$_ => 1} map{lc} grep{/[a-z]/i} split '';
実行結果は今回のテストデータだとたまたま同じ結果になる。
26: 9 [sage] 2023/08/11(金)02:38 ID:4P/NDj/+(1/2)
ｽﾚが伸びているので何かと思えば、ｵﾚほか一部の回答者がsortを使ったのが
そんなに気に入らなかったか、気に障ったか、
ざまぁみろｗ としか言いようがないが
後出しでｹﾁつけてるのは出題者じゃないようだが
そしたらsortも、そしてminもあえて使わないバージョン、
書き方はいろいろあると思うけど：
>>3 Perl5
use List::Util 'first';
for (<DATA>) {
my %h = map{lc $_ => 1} /([A-Za-z])/g;
$a[length $_] = $_ if 26 == keys %h;
}
print first{defined} @a;
__DATA__
The quick brown fox jumps over a lazy dog.
The jay, pig, fox, zebra and my wolves quack!
Pack my box with seven dozen liquor jugs.
The horse, pig, fox, zebra and my wolves quack!
Jackdaws love my small sphinx of quartz.
Jackdaws love my big sphinx of quartz.
The quick brown fox jumps over a lazy cat.
Pack my box with five dozen liquor jugs.
実行結果
~ $ perl 22_3_az26_a.pl
Jackdaws love my big sphinx of quartz.
29: 9 [sage] 2023/08/11(金)08:37 ID:4P/NDj/+(2/2)
O(nlog(n))がダメかどうかは、データの規模および実行時間による
43(2): 9 [sage] 2023/08/16(水)13:32 ID:vjpqg3x7(1/2)
>>40 bash、curl および GraphicsMagick の convert コマンドを使用。動作確認したOSはUbuntu 20.04LTS。数百枚のjpegからgifへのconvertには多少時間がかかります。
オプション -h または --highres を指定すると 2048x2048、オプション無しあるいは -l または --lowreso を指定すると 512x512、なおボーナスはスイス銀行の秘密口座に。
※見易くするためインデントは全角スペースに置換してあります。8月16日23時まで取得するようにしているがまだ無い将来の画像は含まない。
res='512x512' # default
OPT=`getopt -o hl -l highreso,lowreso -- "$@"`
eval set -- "$OPT"
while true; do
case "$1" in
-h | --highreso)
res='2048x2048'
shift ;;
-l | --lowreso)
res='512x512'
shift ;;
--)
shift
break ;;
esac
done
dir=$(mktemp -d TmpDir.XXXXXX)
for d in $(seq -w 01 16); do
for h in $(seq -w 0 23); do
dh="$d$h"
file="HMW92308${dh}.globe.1.jpg"
url="http://agora.ex.nii.ac.jp/digital-typhoon/globe/color/2023/${res}/${file}"
echo $url; curl -f -s -R -o "$dir/$file" $url
done
done
#set -x
time convert $(ls $dir/*.jpg) TyphoonAime${res}.gif
ls -o TyphoonAime${res}.gif
44: 9 [sage] 2023/08/16(水)13:42 ID:vjpqg3x7(2/2)
>>43 ｔｙpo orz
-h または --highres
↓
-h または --highreso
45: 9 [sage] 2023/08/16(水)19:12 ID:y9YJABkH(1)
>>43 これだと、scriptを実行するたびに全てのjpegファイルをtemporaryディレクトリにdownloadするためサーバの負荷の面で行儀がよくないので、
ディレクリは TyphoonJpegDir512x512 または TyphoonJpegDir2048x2048 で固定とし、未取得のjpegがあればdownloadするように直すわ。
res='512x512' # default
OPT=`getopt -o hl -l highreso,lowreso -- "$@"`
eval set -- "$OPT"
while true; do
case "$1" in
-h | --highreso)
res='2048x2048'
shift ;;
-l | --lowreso)
res='512x512'
shift ;;
--)
shift
break ;;
esac
done
dir=./TyphoonJpegDir${res}
for d in $(seq -w 01 16); do
for h in $(seq -w 0 23); do
file="HMW92308${d}${h}.globe.1.jpg"
url="http://agora.ex.nii.ac.jp/digital-typhoon/globe/color/2023/${res}/${file}"
[ -f $dir/$file ] || { echo $url; curl -f -s -R -o "$dir/$file" $url; }
done
done
#set -x
time convert $(ls $dir/*.jpg) TyphoonAime${res}.gif
ls -o TyphoonAime${res}.gif
※見やすくするためインデントは全角スペースに置換してあります。
89: 9 [sage] 2023/09/22(金)16:53 ID:8M97O6g7(1)
>>85 Perl5
rename "abc$_.mp4", sprintf 'abc%03d.mp4',$_ for 1..20;
※abc1.mp4 abc2.mp4 .. abc20.mp4 があるとしています。
また abc001.mp4 abc002.mp4 ... abc020.mp4 は既存かのチェックは省いています。
121(1): 9 [sage] 2023/10/08(日)20:24 ID:zYJ3wh+h(1)
>>120
「もっとも効率がいいエレベーターの停止順序」とは？
1.停止回数がもっとも少ない
2.移動した階数の和が最も小さい
3.ほか
など、どのような指標？
188(1): 9 [sage] 2024/01/16(火)02:37 ID:SfyAs2IF(1/2)
>>187 Perl5
use Time::Piece;
use Time::Seconds;
for (qw{00:00:00 23:59:59}) {
$t = Time::Piece->strptime($_, '%T') + 1;
print "入力:$_\n出力:", $t->strftime('%T'), "\n";
}
※見易くするためインデントを全角スペースに置換してあります
実行結果
~ $ perl 22_187_1秒後.pl
入力:00:00:00
出力:00:00:01
入力:23:59:59
出力:00:00:00
189: 9 [sage] 2024/01/16(火)02:38 ID:SfyAs2IF(2/2)
>>188
use Time::Seconds;
これ要らなかった…orz
216: 9 [sage] 2024/02/04(日)16:39 ID:jTY6zdRX(1/2)
>>208 Perl5
use feature qw{:5.16 signatures};
no warnings qw(experimental::signatures);
@s = qw[a1=a2 b1=b2 b3=b2 c1=c2 e1=e2 a3=a4 c3=c4 e1=e3 a2=a4 c3=c1 b3=a4 c2=d1 a4=a5 d2=c1 b4=b3 d3=c3];
for (map{[sort /(\w+)=(\w+)/]} @s) {
($l, $r) = @$_;
$g{$r} //= $g{$l} //= $g{$r} // $l;
$h{$g{$r}} = $g{$l} if $g{$l} ne $g{$r};
}
$h{$k} = sub($e){$h{$e} ? __SUB__->($h{$e}) : $e}->($v) while ($k, $v) = each %h;
$g{$_} = $h{$g{$_}} // $g{$_} for keys %g;
push @{$r{$v}}, $k while ($k, $v) = each %g;
say "@$_" for values %r;
※見易くするためインデントを全角スペースに置換してあります
実行結果
$ perl 22_206_grouping.pl
b3 a3 a5 b4 a4 a1 b1 a2 b2
c1 d1 d3 c3 c2 d2 c4
e3 e1 e2
217: 9 [sage] 2024/02/04(日)18:22 ID:jTY6zdRX(2/2)
>>208 宛てじゃなかった
>>206 の回答だったわ… orz
241(1): 9 [sage] 2024/02/16(金)02:56 ID:7jtCAGu+(1/2)
>>234 Perl5
for $n (0,17,100,123459321) {
my %a;
for (0..$n) {
$i = $n - $_;
$a{$i} = $i if 0 <= $i and $i =~ /^((\d)(?1)\2|\d?)$/;
$j = $n + $_;
$a{$j} = $j if $j =~ /^((\d)(?1)\2|\d?)$/;
last if keys %a;
}
@a = keys %a;
print "$n -> @a\n";
}
※見やすくするためインデントを全角スペースに置換してあります。
実行結果
$ perl 22_234_palindromic_number.pl
0 -> 0
17 -> 22
100 -> 99 101
123459321 -> 123464321 123454321
242: 9 [sage] 2024/02/16(金)03:13 ID:7jtCAGu+(2/2)
>>241
last if keys %a;
}
@a = keys %a;
は
last if @a = keys %a;
}
とコンパクトに書けるんだった、まぁいいや
243(1): 9 [sage] 2024/02/16(金)14:47 ID:TIAwaOOw(1)
>>234 Perl5、小さい方の検索は0で止まるので負の値を避ける必要はなかった、書き直し。
$r = qr/^((\d)(?1)\2|\d?)$/;
for $n (0,17,100,123459321) {
my %a;
for (0..$n) {
$a{$n - $_} = 1 if ($n - $_) =~ $r;
$a{$n + $_} = 1 if ($n + $_) =~ $r;
last if @a = keys %a;
}
print "$n -> @a\n";
}
246(1): 9 [sage] 2024/02/17(土)02:10 ID:K8P5qDCx(1)
>>234 Python3
def f(k):
s = str(k)
return s == s[::-1]
for n in [0, 17, 100, 123459321]:
l = set()
for i in range(n + 1):
if f(n - i): l.add(n - i)
if f(n + i): l.add(n + i)
if l:
print(n, l)
break
※見易くするためインデントは全角空白に置換してあります
実行結果
$ python3 22_234_palindromic_number..py
0 {0}
17 {22}
100 {99, 101}
123459321 {123454321, 123464321}
263: 9 [sage] 2024/02/20(火)17:18 ID:X5uoFLgg(1)
「どんなテストしたの？」
って質問だよ
362: 9 [sage] 2024/06/11(火)14:41 ID:NjINqn/m(1)
>>348 Perl5
($x = '04:05:06') =~ s/:/*/g;
print eval $x;
363(3): 9 [sage] 2024/06/13(木)14:34 ID:XgNTPGgf(1/3)
>>349
> 「バイトが1だったら次の4バイトを読み込んで整数として出力し、」
正直、意味がわからんかった
例で見ると
1 1 0 0 0 → 1
1 128 0 0 0 → 128
ということだが
1に続く4バイトを加算して出力するって意味だったのかいな
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.040s