[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
554: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)22:00 ID:rZK31NHQ(2/5) AAS
>>553
カレンダー苦手？
そりゃごめんね。誰でも解けるような問題解いて面白い？ もしかして
555: 2019/09/22(日)22:02 ID:35++XhB6(4/6) AAS
とりあえずNGにした
556: 2019/09/22(日)22:03 ID:35++XhB6(5/6) AAS
うっかり回答しないように連鎖にしとく方がいいか
557: 2019/09/22(日)22:23 ID:W3ewN8v1(3/4) AAS
>>548
\ls -l --time-style=+%a:%T ~/ | perl -lane 'print $F[5]' | sed "/^$/d" | perl -F: -lane '{++$i{$F[0]}; $acc{$F[0]} += $F[1]*3600 + $F[2] *60 + $F[3] }END{ print "$_ ". $acc{$_}/$i{$_} . " seconds" for keys %acc}'
日 49262.7 seconds
金 52984.3125 seconds
火 56316.8461538462 seconds
木 47056.3333333333 seconds
月 53660.7894736842 seconds
土 49998.1538461538 seconds
水 48117.5 seconds
558: 2019/09/22(日)22:24 ID:W3ewN8v1(4/4) AAS
スルーだったか
559(5): 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)22:44 ID:rZK31NHQ(3/5) AAS
お題: 自分のプログラムファイルが何バイトかを表示せよ。
560(1): 2019/09/22(日)22:48 ID:Yf8464Y3(1/3) AAS
>>548 Perl5、なお>>550は(utimeを使えばできますが)回答は作成いたしません
use File::Find 'find';
sub hier {
my $mtime = (lstat)[9];
push @epochs, $mtime if -f _;
}
find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents");
@w = ([],[],[],[],[],[],[]);
for (@epochs) {
($sec, $min, $hour, $wday) = (localtime $_)[0..2,6];
省20
561: 2019/09/22(日)22:50 ID:JOdgUuSI(1/2) AAS
>>548
馬鹿っぽ
562: 2019/09/22(日)22:53 ID:JOdgUuSI(2/2) AAS
蟻人間、プログラミングに興味を持ち始めた中学生臭がすごい
563: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)23:00 ID:rZK31NHQ(4/5) AAS
>>559
はいはい、模範解答出せばいいんでしょ？
// C++/Win32
#include <windows.h>
#include <stdio.h>
int main(void)
{
char buf[MAX_PATH];
GetModuleFileNameA(NULL, buf, MAX_PATH);
WIN32_FIND_DATAA find;
省5
564: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)23:03 ID:rZK31NHQ(5/5) AAS
>>559 別解ね。
/* C */
#include <stdio.h>
int main(int argc, char **argv)
{
FILE *fp = fopen(argv[0], "rb");
fseek(fp, 0, SEEK_END);
printf("%ld bytes\n", ftell(fp));
fclose(fp);
return 0;
省1
565: 2019/09/22(日)23:10 ID:Yf8464Y3(2/3) AAS
>>559 Perl5
print -s $0, "bytes\n";
実行
~ $ perl 15_559.pl
25bytes
566: 2019/09/22(日)23:25 ID:35++XhB6(6/6) AAS
>>514 Pharo/Squeak Smalltalk
| suffixes fn |
suffixes := #(st nd rd), (Array new: 7 withAll: #th).
suffixes := (0 to: 9) gather: [:idx | suffixes].
suffixes from: 11 to: 13 put: #th.
fn := [:n | n asString, (suffixes atWrap: n)].
fn value: 1. "=> '1st' "
fn value: 23. "=> '23rd' "
fn value: 12. "=> '12th' "
567(1): 2019/09/22(日)23:32 ID:Yf8464Y3(3/3) AAS
>>560 修正、0割回避、localtimeが返すepochのmtimeはUTCベースなのでTZ設定追加し9時間ずれ対策
$ENV{TZ} = 'UTC';
use File::Find 'find';
use Time::Piece;
sub hier {
my $mtime = (lstat)[9];
push @epochs, $mtime if -f _;
}
find({wanted => \&hier}, "$ENV{USERPROFILE}/My Documents");
print "Number of files = " . @epochs . "\n";
省15
568(3): 蟻人間 ◆T6xkBnTXz7B0 2019/09/23(月)00:23 ID:JAc5gnVl(1) AAS
>>548
出題の狙い。犯罪捜査において被疑者または関係者の生活パターンを知りたいときに、パソコンのファイルの日時の統計のデジタル鑑識により、パソコンの使用実態が類推可能であることを示すものである。
569: 2019/09/23(月)00:28 ID:GyCF+Do4(1) AAS
出勤とか寝る時間があまり変わらないという仮定で
同一人物の疑いがある2つのコテハンを
数百スレ分から時間別書き込み頻度から検証したことがあるが
それにくらべると得られる情報少なすぎて草
570: 2019/09/23(月)00:30 ID:iF+DbCXr(1/2) AAS
>>568
馬鹿っぽ
571: 2019/09/23(月)01:01 ID:ZSRjXCoe(1/2) AAS
>>568
朝と夜に作ったファイルの平均は昼になるし
ダウンロードした大規模なOSSのアーカイブを展開した物とか入っているんで
曜日ごとの平均時刻じゃー何の傾向も分かりません
572: 2019/09/23(月)01:43 ID:ZSRjXCoe(2/2) AAS
>>567
そうじゃねぇだろ、file systemのmtimeはUTCベースなのに
わざわざlocaltimeでTZ=JST_9の日時に変換してから
時分秒だけTime::Pieceに食べさせるから
GMTとして解釈され9時間ずれたんだよ。
それを回避するためTZ環境変数にUTCを設定するとは
何たる尻の青い、くちばしの黄色い、まだ駆け出しの青二才、未熟者
573: 2019/09/23(月)04:00 ID:Sp7ybd6s(1) AAS
>>559 Common Lisp
外部ﾘﾝｸ:ideone.com (sbcl)
外部ﾘﾝｸ:ideone.com (clisp)
ideoneは、sbclの場合は compile-file で作成したファイルを実行しているらしく
結果が異なっているのはそのため
上下前次1-新書関写板覧索設栞歴
あと 429 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.232s*