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

---

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

---

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

---

540(10): 2020/05/15(金)23:46 ID:PLtuBlLM(1) AAS
AA省

---

541: 540 2020/05/15(金)23:48 ID:V3+gK270(1) AAS
>>540
ｺﾞﾒﾝ、これ間違いがある

---

543: 540 2020/05/16(土)00:00 ID:6i7hUAj2(1) AAS
>>540
6行目
× push @rl, [$f[0], na(@f[1..4]), $f[5]//0];
↓
○ push @rl, [$f[0], na(@f[1..4]), -1 & 2**$f[5]-1];

---

545: 540 2020/05/16(土)00:46 ID:fpR/KoQd(1) AAS
あんさんのお代に共通して言えることだけど、
難易度はさておいて、パスワード辞書に登録されているか調べたり
英単語辞書に登録された単語化調べたりするのは
それなりに冗長でサイズがかさんで回答しにくい。（難易度とは別に手間がかかる）
こういうところに出すお題は、もっと手短にかける回答になるないと
対応しにくい

---

547: 540 2020/05/16(土)01:16 ID:qT19c9Q0(1/2) AAS
また荒れるようにあおる理由は何よ

---

549: 540 2020/05/16(土)01:18 ID:qT19c9Q0(2/2) AAS
>>548
まかせた。
俺はこのお題は下りる。

---

829(2): 540 2020/06/07(日)03:37 ID:Wd4DvZSU(1) AAS
>>826 Perl5

for (<DATA>) {
　chomp;
　@a = split/\\/;
　sub {
　　$k = shift @a;
　　$_[0]->{$k} = {} unless exists $_[0]->{$k};
　　__SUB__->($_[0]->{$k}) if @a;
　}->(\%h);
}
省20

---

832: 540 2020/06/07(日)11:06 ID:SSw/Xffq(1) AAS
>>830 ハイハイ、修正修正

use feature qw{current_sub signatures};
for (<DATA>) {
　chomp;
　@a = split/\\/;
　sub ($hr) {
　　$k = shift @a;
　　$hr->{$k} //= {};
　　__SUB__->($hr->{$k}) if @a;
　}->(\%h);
省21

---

875(1): 540 2020/06/13(土)11:52 ID:P7Ehsk1I(1) AAS
>>834 Perl5、こういうﾌﾟﾛｸﾞﾗﾑでは日にち曜日計算を自分で考える前に、いつも使っているﾓｼﾞｭｰﾙの利用をすぐ思い浮かんでしまう

for (qw{02 03 07 10 14 17 21 24 28 30 31}) {
　$date = "2020-05-$_";
　$t = Time::Piece->strptime($date, '%Y-%m-%d');
　$n = 1 + int($t->mday / 7);
　$dw = $n . $t->day(qw{日 月 火 水 木 金 土});
　$t1 = $t - ONE_DAY * ($t->mday - 1);
　$wk = 1 + int(($t->mday + $t1->_wday - 1) / 7);
　print "$date: 第$wk週目の第$dw曜日です。\n";
}
省13

---

876: 540 2020/06/13(土)14:11 ID:+1OrBM6u(1) AAS
>>875
先頭に
use Time::Piece;
use Time::Seconds;
が抜けてたてorz

---

892: 540 2020/06/15(月)21:52 ID:rjrfpKII(1) AAS
>>881 Perl5

use LWP::Simple;
use LWP::Protocol::https;
print mirror('外部ﾘﾝｸ:google.com './robots.txt'), "\n";

実行結果
~ $ perl 17_881_https_mirror_robots_txt.pl
200
~ $ ls -o robots.txt
-rw-r--r-- 1 user 7035 Jun 9 03:00 robots.txt

---

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

---

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

---

ぬこの手 ぬこTOP 0.051s