[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
503: 2019/09/20(金)15:07 ID:uyZD/oLi(1) AAS
外部ﾘﾝｸ:appmarketinglabo.net
Ｑ、hamonさん、ここだけの面白い話は何かありますか？
hamon：
絶対にこれをつくれば海外で10万DLされるという「超鉄板ジャンル」がある。
それは「3Dのリアルな人間をつかった実在のスポーツゲーム」、中身がクソでも10万DLはされる。
「ボクシングvs腕相撲」という実質もぐらたたきのようなゲームが30万DLいった。
「スキージャンプ アルティメイタム」というゲームが10万DLくらい。
マイナーなスポーツでもそのような結果なので、競技人口のベスト10のスポーツを調べてつくれば10万DLは固い。
普通につくるとコストがかかるが、UNITYでつくればストア上でモーションも売っているのでかなり稼げると思う。
504(10): 2019/09/21(土)00:27 ID:dB3ZeAcF(1) AAS
お題: 同じ文字列がいくつあるか数えるプログラムを作成しなさい。
※出力は出現回数順でソートされている必要はありません。
入力
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
省6
505: 2019/09/21(土)00:39 ID:6wFtRpPA(1/5) AAS
>>504 Perl5
$h{$_}++ for qw{Hoge Fuga Foo Fuga Foo Hoge Bar Fuga};
print "$_ $h{$_}\n" for keys %h;
実行結果
~ $ perl 15_504.pl
Fuga 3
Hoge 2
Bar 1
Foo 2
506: 2019/09/21(土)00:45 ID:Ei1MM/mp(1/2) AAS
>>504
外部ﾘﾝｸ:ideone.com
C++。今回はメインロジックの記述が少なくて楽だった。
507: 2019/09/21(土)00:46 ID:YPz6oCKs(1) AAS
>>504
cat text
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga
省5
508: 2019/09/21(土)00:50 ID:Ei1MM/mp(2/2) AAS
うほっ。C++のunordered_mapはオーダー要求しないから、そこを使って最適化物故むとかやるんかいな。
VCとGCCと挙動違う。
509: 2019/09/21(土)00:59 ID:6wFtRpPA(2/5) AAS
>>496 Perl5
sub f {$_[0] =~ /(\d+)/; $1};
print sort{ f($a) <=> f($b) } <DATA>;
__DATA__
a b c 44
x y 33
z 22
11
実行結果
~ $ perl 15_496.pl
省4
510: 2019/09/21(土)04:32 ID:DxluyDWg(1/2) AAS
>>496
Kotlin
外部ﾘﾝｸ:paiza.io
511: 2019/09/21(土)05:21 ID:DxluyDWg(2/2) AAS
>>504
Kotlin
外部ﾘﾝｸ:paiza.io
512: 2019/09/21(土)05:37 ID:RmdAWOHY(1) AAS
>>504 Ruby
a=readlines.map(&:chomp)
a.uniq.each{|v| puts("#{v} #{a.count(v)}")}
513: 2019/09/21(土)15:59 ID:uZ0K83Mw(1/2) AAS
>>496 ruby
外部ﾘﾝｸ:ideone.com
puts readlines.sort_by {|s| s[/\d+$/].to_i}
>>504 ruby
外部ﾘﾝｸ:ideone.com
puts $<.read.scan(/\w+/).group_by(&:itself).map {|a, b| '%s %d' % [a, b.size]}
514(8): 2019/09/21(土)16:12 ID:ZyFDPzPp(1) AAS
お題：正の整数が与えられるので、英語の序数に変換せよ
1 => 1st
23 => 23rd
12 => 12th
515(1): 2019/09/21(土)16:40 ID:6wFtRpPA(3/5) AAS
>>514 Perl5
%o = qw{1 st 2 nd 3 rd};
$o = $o{$_}//'th', print "$_$o\n" for 1..10,12,23;
実行
~ $ perl 15_514.pl
1st
2nd
3rd
4th
5th
省7
516: 2019/09/21(土)16:54 ID:6wFtRpPA(4/5) AAS
>>514 Perl5、 >>515 はもう少しコンパクトに書けた
%o = qw{1 st 2 nd 3 rd};
printf "$_%s\n", $o{$_}//'th' for 1..10,12,23;
517: 2019/09/21(土)17:38 ID:uZ0K83Mw(2/2) AAS
>>514 ruby
外部ﾘﾝｸ:ideone.com
518: 2019/09/21(土)18:24 ID:9SoaGQ4l(1) AAS
>>504
Common Lisp 外部ﾘﾝｸ:ideone.com
Perl 外部ﾘﾝｸ:ideone.com
519(1): 2019/09/21(土)19:12 ID:AojYT9zq(1) AAS
1st 2nd 3rd
11th 12th 13th
21st 22nd 23rd
101st 102nd 103rd
111th 112th 113th
121st 122nd 123rd
皆さんここらへん大丈夫？
520: 2019/09/21(土)19:41 ID:6wFtRpPA(5/5) AAS
>>514 Perl5、>>519 で指摘された誤りの修正 ﾃﾍﾍﾟﾛ
%h = qw{1 st 2 nd 3 rd};
for (1..4,11,12,13,21,22,23,101,102,103,111,112,113,121,122,123) {
/(\d?)(\d)$/;
printf "$_ => $_%s\n", $1 eq 1 ? 'th' : $h{$2}//'th';
}
実行結果
~ $ perl 15_514.pl
1 => 1st
2 => 2nd
省17
521(7): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/09/21(土)20:51 ID:BmADEcuL(1/3) AAS
お題: 与えられた西暦年月日を年号年月日に変換しなさい。ただし、変換するのは大正時代から令和までとし、範囲外であればERRORを表示しなさい。
522(8): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/09/21(土)21:04 ID:BmADEcuL(2/3) AAS
お題: YYYY/MM/DD形式で与えられた西暦年月日の文字列が正しい年月日を表しているかどうか判定せよ。
523(3): 蟻人間 ◆T6xkBnTXz7B0 2019/09/21(土)21:24 ID:BmADEcuL(3/3) AAS
>>522 >>521の順に解いて下さい。
1970/01/05
1990/12/31
2019/04/28
2019/05/01
1920/02/29
524(1): 2019/09/21(土)22:12 ID:y97V3EOz(1/2) AAS
>>522 Perl5
use Time::Piece;
for (<DATA>) {
chomp;
my $t;
eval {$t = Time::Piece->strptime($_, '%Y/%m/%d')};
$t //= 'Invalid';
print "$_: $t\n";
}
__DATA__
省13
525: 524 2019/09/21(土)22:29 ID:y97V3EOz(2/2) AAS
>>524
Time::Piece->strptime は
1900/01/01 よりも前の日付だと
正しい西暦の年月日を入力しても
parse結果が不定となってしまうということがさっき分かりました。
したがって残念ながら>>524のcodeは>>522の題意を満たしているとは
言いがたいものでした。ｺﾞﾒﾝね〜
526: 2019/09/21(土)22:37 ID:tuxPF//K(1/2) AAS
>>521-523 Java
外部ﾘﾝｸ:ideone.com
527(1): 蟻人間 ◆T6xkBnTXz7B0 2019/09/21(土)22:44 ID:7nrsNPcd(1) AAS
令和1年を令和元年にしないといけないという落とし穴があるようだ。
528: 2019/09/21(土)22:45 ID:Awwp+36u(1) AAS
>>504 Ruby
p $<.map(&:chomp).yield_self{|e| e.uniq.map{|v| [v, e.count(v)]}}
# => [["Hoge", 2], ["Fuga", 3], ["Foo", 2], ["Bar", 1]]
529: 2019/09/21(土)23:03 ID:tuxPF//K(2/2) AAS
>>527 Java
外部ﾘﾝｸ:ideone.com
しゅうせいしまった
530: 2019/09/22(日)01:12 ID:35++XhB6(1/6) AAS
>>496 Squeak Smalltalk
#('a b c 44' 'x y 33' 'z 22' '11') sortBy: [:x | x splitInteger last] ascending
"=> an OrderedCollection('11' 'z 22' 'x y 33' 'a b c 44') "
531: 2019/09/22(日)01:25 ID:35++XhB6(2/6) AAS
>>504 Pharo/Squeak Smalltalk
'Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga' lines asBag sortedElements
"=> {'Bar'->1 . 'Foo'->2 . 'Fuga'->3 . 'Hoge'->2} "
532: 2019/09/22(日)01:56 ID:35++XhB6(3/6) AAS
>>467 Pharo/Squeak Smalltalk
| fn |
fn := [:str | String streamContents: [:ss |
(str as: RunArray) runsAndValuesDo: [:n :x |
ss nextPut: x; nextPutAll: (n = 1 ifTrue: [''] ifFalse: [n asString])
]
]].
fn value: 'あいうえお'. "=> 'あいうえお' "
fn value: 'ああいいうう'. "=> 'あ2い2う2' "
fn value: 'あいうあいう'. "=> 'あいうあいう' "
533(1): 2019/09/22(日)08:19 ID:uuB9aO9i(1/2) AAS
>>514 Ruby
suffixes = %w[th st nd rd]
f = -> n {(-(-((n - 10) / 10 % 10) / 9)) * 41 / (n % 10 * 10 + 11) * (n % 10)}
[
1, 2, 3, 4, 11, 12, 13, 21, 22, 23, 101, 102, 103, 111, 112, 113, 121, 122, 123
].each{|v| puts '%1$d => %1$d%2$s' % [v, suffixes[f[v]]]}
# =>
1 => 1st
2 => 2nd
3 => 3rd
省16
534(1): 2019/09/22(日)08:57 ID:yY5QhyPL(1) AAS
>>533
ruby知らんけどそのfって何？
535(1): 2019/09/22(日)09:05 ID:8u0YwnlN(1) AAS
ラムダ式じゃねーの
おれもruby知らんが
536: 2019/09/22(日)09:16 ID:W3ewN8v1(1/4) AAS
(dolist (n (list 1 2 3 11 12 13 21 22 23 101 102 103 111 112 113 121 122 123) ) (format t "~:R~%" n))
first
second
third
eleventh
twelfth
thirteenth
twenty-first
twenty-second
twenty-third
省9
537: 2019/09/22(日)09:21 ID:uuB9aO9i(2/2) AAS
>>534-535
ラムダ式.
任意の自然数 n に対して次の式は n の序数詞の末尾が th なら 0, st なら 1, nd なら 2, rd なら 3 を返す.(除算は切り捨て)
(-(-((n - 10) / 10 % 10) / 9)) * 41 / (n % 10 * 10 + 11) * (n % 10)
538: 2019/09/22(日)10:14 ID:UtdvR7ZT(1) AAS
>>514 Lua
function f(n)
local r,x
x=n%10
if n%100-x==10 or x<1 or x>3 then
r="th"
else
r=({"st","nd","rd"})[x]
end
return n..r
省1
539: 2019/09/22(日)11:43 ID:OEThTvH6(1/2) AAS
>>514 JavaScript
const f=n=>n+=[,'st','nd','rd'][n%100>>3^1&&n%10]||'th'
実行結果略
540: 2019/09/22(日)11:51 ID:OEThTvH6(2/2) AAS
>>522 >>521 JavaScript
const isValid = seireki => {
let check
try {
check = new Intl
.DateTimeFormat('ja-JP', {year: 'numeric', month: '2-digit', day: '2-digit'})
.format(new Date(seireki))
} catch (e) { return false }
return seireki === check ? true : false
}
省22
541(3): 2019/09/22(日)14:55 ID:yzO2ACAf(1/4) AAS
AA省
542: 2019/09/22(日)14:59 ID:yzO2ACAf(2/4) AAS
>>541
一行目のｺﾒﾝﾄ
#use Data::Dump 'dump';
はdebugの際に使ったstatementの消し忘れにつき、不要
543: 2019/09/22(日)15:13 ID:yzO2ACAf(3/4) AAS
>>541
$nen = ($y = $t->year - $t0->year, $y ? $y + 1 : '元').'年' if $t0;
の「 if $t0」も削除し忘れだな、ｺﾞﾒﾝﾁｬｲ
544(1): 2019/09/22(日)16:19 ID:iYBBHKU1(1) AAS
外部ﾘﾝｸ[c]:github.com
このif elseの羅列をリファクタリングしてください(´・ω・`)
545: 2019/09/22(日)17:24 ID:W3ewN8v1(2/4) AAS
無駄に否定演算子で分かりにくくしている
if (!arg_reverse)
r = sd_journal_next_skip(j, 1 + after_cursor);
else
r = sd_journal_previous_skip(j, 1 + after_cursor);
546: 2019/09/22(日)17:45 ID:vTpi5vA1(1) AAS
>>544
外部ﾘﾝｸ:hengband.es.land.to
このあたりのspells1.cのproject_fのほうが豪華だよ
547: 2019/09/22(日)18:17 ID:yzO2ACAf(4/4) AAS
AA省
548(7): 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)20:58 ID:Pb++lLAf(1/2) AAS
お題: マイドキュメントにある全てのファイルの更新日時を取得し、曜日ごとに平均時刻を集計せよ。
549: 2019/09/22(日)21:11 ID:PDMeYfrK(1) AAS
マイドキュメントがなかった
550(2): 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)21:23 ID:Pb++lLAf(2/2) AAS
お題: あるフォルダにある全てのファイルの更新日時を全て同じ日時にリセットせよ。
551: 2019/09/22(日)21:30 ID:WdPSTicU(1) AAS
>>521-523 ruby 2.5.5
外部ﾘﾝｸ:ideone.com
・令和対応はRuby 2.6.3から
552: 蟻人間 ◆T6xkBnTXz7B0 2019/09/22(日)21:35 ID:rZK31NHQ(1/5) AAS
※未来の日時にするとMakefileなどで不具合の原因になるかもしれないので、やめよう。必ず過去の日付で。
553(1): 2019/09/22(日)21:40 ID:2VFOPinw(1) AAS
>>1
◆T6も書き込み禁止
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 で作成したファイルを実行しているらしく
結果が異なっているのはそのため
574: 蟻人間 ◆T6xkBnTXz7B0 2019/09/23(月)12:05 ID:Pxp3zDR1(1) AAS
>>548
C++/Win32 模範解答。
外部ﾘﾝｸ:gist.github.com
575: 2019/09/23(月)12:49 ID:iF+DbCXr(2/2) AAS
模範解答(汚ねえスパゲティ)
576: 2019/09/23(月)13:54 ID:2RLjyW/B(1) AAS
>>504 Lua
a={}
for x in io.lines() do a[x]=(a[x] or 0)+1 end
for k,v in pairs(a) do print(k,v) end
577: 2019/09/27(金)01:42 ID:/3CUbuCi(1/3) AAS
>>521
Kotlin
外部ﾘﾝｸ:paiza.io
578: 2019/09/27(金)02:44 ID:/3CUbuCi(2/3) AAS
>>522
Kotlin
外部ﾘﾝｸ:paiza.io
579: 2019/09/27(金)02:50 ID:/3CUbuCi(3/3) AAS
>>550
シェルスクリプト (find, touch コマンド使用)
2019/09/27 02:48:00 に合わせる場合
#!/bin/sh
find あるフォルダ -type f -exec touch -t 201909270248.00 {} \;
580(1): 2019/09/27(金)19:49 ID:jf7tgLq0(1/2) AAS
>>548
Powershell
ls ([Environment]::GetFolderPath(5)) -Recurse -Force |? {!$_.PSIsContainer} `
|% {$_.LastWriteTime} | sort {[int]$_.DayOfWeek} | group {"{0:ddd}" -f $_} `
|% {"{0}{1,10:T}" -f $_.Name, [DateTime][Int64]($_.Group |% {$_.TimeOfDay.Ticks} | measure -Average).Average}
581: 2019/09/27(金)19:57 ID:jf7tgLq0(2/2) AAS
>>580をコピペで実行するときは、`の後の半角空白を削除しないとエラーになる。
582(5): 2019/09/27(金)21:29 ID:vBAnAZ37(1) AAS
お題：リスト等の重複する要素を削除し、大きい順に並び替えよ
[3, 1, 4, 1, 5]
↓
[5, 4, 3, 1]
java
外部ﾘﾝｸ:ideone.com
rust
外部ﾘﾝｸ:ideone.com
ruby
外部ﾘﾝｸ:ideone.com
省2
583: 2019/09/27(金)22:41 ID:kWPPTdrf(1) AAS
>>582 Ruby
p [3, 1, 4, 1, 5].uniq.sort_by(&:-@)
# => [5, 4, 3, 1]
584: 2019/09/27(金)23:07 ID:Z4UqEtTG(1) AAS
>>582 javascript
[...new Set([3, 1, 4, 1, 5])].sort().reverse()
585: 2019/09/28(土)00:13 ID:OLAr2jSy(1) AAS
>>582 Pharo/Squeak Smalltalk
#(3 1 4 1 5) asSet sorted: #> "=> #(5 4 3 1) "
586: 2019/09/28(土)00:23 ID:gcUBCYXO(1) AAS
>>582 Perl5 二回答
%h = map{$_=>1} qw(3 1 4 1 5);
@a = sort{$b<=>$a} keys %h;
print "@a\n";
use List::Util 1.45 'uniq';
@a = uniq sort{$b<=>$a} qw(3 1 4 1 5);
print "@a\n"
実行結果、いずれも
~ $ perl 15_582.pl
5 4 3 1
587: 2019/09/28(土)00:52 ID:HcOq9X6n(1/7) AAS
>>568
それだったら曜日毎の1時間毎のファイル数でグラフにするとかしないと分かりづらいのではないか？
ああ。そういうお題作ればいいか。
588(4): 2019/09/28(土)01:09 ID:HcOq9X6n(2/7) AAS
お題: 指定のディレクトリ以下にある全てのファイルの更新日時を取得し、曜日毎、及び時間毎にしてグラフにして出せ。
これは同じ曜日の同じ時間で更新されているファイルのカウントということね。例えば今週と先週の土曜日の7:00代の更新ファイルが一つづつあれば土曜日7時代のカウントが2になる。
で、グラフにする時は表示方法はなんでもいいので例えばテキストでアスタリスク2個で出す。(後でこちらでもプログラム作るのでそれ参考にしてもいい)。
ディレクトリの指定方法は普通なら引数での指定が良いだろうけどプログラムに埋め込んでも標準入力やファイルから読み込んでも何でもいい。それはこのお題では肝心な事ではないので。
589(3): 2019/09/28(土)02:06 ID:63IK4172(1/3) AAS
それだったらファイル、ディレクトリ操作は除外してランダムに日時発生させるとかでいいだろ
機種依存するので
ランダム生成は依存しない
590: 2019/09/28(土)03:07 ID:HcOq9X6n(3/7) AAS
>>588
作った。
Kotlin
外部ﾘﾝｸ:paiza.io
591: 2019/09/28(土)03:08 ID:HcOq9X6n(4/7) AAS
>>589
？
592(1): 2019/09/28(土)03:10 ID:63IK4172(2/3) AAS
unixタイムとかで、日時と整数は一対一対応してるだろ
ランダム生成で日時は作れる
593: 2019/09/28(土)03:15 ID:HcOq9X6n(5/7) AAS
>>592
いや、そうじゃなくて >>589 は何番のレスに対するレスなの？
594(1): 2019/09/28(土)03:30 ID:63IK4172(3/3) AAS
何番と限らず日時と整数は一対一できるから日時が関係するあらゆる問題
595: 2019/09/28(土)03:58 ID:HcOq9X6n(6/7) AAS
>>594
いや、 >>589 は何かを読んだ結果書いたんでしょ? 何を読んで書いたの?
596: 2019/09/28(土)04:47 ID:HcOq9X6n(7/7) AAS
>>588
もう一つ作った。
Perl
外部ﾘﾝｸ:paiza.io
597: 2019/09/28(土)10:58 ID:bVbqLRNA(1) AAS
>>582
@Mathematica
deleteDuplicatesSort[lst_] := lst //
DeleteDuplicates //
Sort[#, Greater] & ;
In[1] := deleteDuplicatesSort[{3, 1, 4, 1, 5}]
Out[1] = {5, 4, 3, 1}
# Mathematica のカーネルがいつの間にか無償開放されてた！
#
# 「「Mathematica」や“Wolfram|Alpha”の核「Wolfram Engine」が開発者向けに無償開放」
省1
598: 2019/09/28(土)15:09 ID:E6lKnilk(1/4) AAS
C++標準のファイルシステムでは、パスは取れるが、時間を取得する関数がないっぽい。
599: 2019/09/28(土)15:18 ID:E6lKnilk(2/4) AAS
あぁ、あったわ。C++17で入ったからまだ不明瞭だ。自分にとって。
600: 2019/09/28(土)15:36 ID:E6lKnilk(3/4) AAS
>>559
外部ﾘﾝｸ:coliru.stacked-crooked.com
C++。C++17がいる。結構サクッとかけたな。
601: 2019/09/28(土)16:35 ID:E6lKnilk(4/4) AAS
>>548
外部ﾘﾝｸ:ideone.com
C++。マイドキュメントの列挙だけで力尽きた。ぐはぁ・・・。
602: 2019/09/28(土)21:56 ID:yaf8uxdw(1) AAS
>>588
PowerShell
$path = [Environment]::GetFolderPath(5)
$all = ls $path -Recurse |? {!$_.PSIsContainer} |% {$_.LastWriteTime}
$max = [Math]::Max(10, ($all | group DayOfWeek, Hour | measure Count -Max).Maximum)
"時" + (("日月火水木金土" -split "") -join "|".PadRight(9))
"--+" + ("-" * 10 + "+") * 7
$y = $all | group Hour -AsHashTable
0..23 |% {
if ($y[$_]) {
省11
上下前次1-新書関写板覧索設栞歴
あと 400 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.052s