プログラミングのお題スレ Part15

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

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

454: 2019/09/15(日)16:31 ID:vhYJbDpr(1) AAS
>>449
実行はしてないが、成果については「GJ!!」だ！

455(1): 2019/09/16(月)04:35 ID:NOoJUh0d(1/2) AAS
お題: 文字列が渡されるので文字vの左隣の文字を小文字、右隣の文字を大文字に変換しなさい

456(1): 2019/09/16(月)06:10 ID:VWND3fAL(1) AAS
>>455
"avbvc" の結果を教えてくれ

457(1): 2019/09/16(月)08:35 ID:NOoJUh0d(2/2) AAS
>>456
その場合はvに挟まれた文字をxに変換してください

458: 2019/09/16(月)08:42 ID:3bKCxc1X(1) AAS
>>457
"avvb" の結果を教えてくれ

459: 2019/09/16(月)11:06 ID:uJI/7eR2(1) AAS
頭悪そうなお題はパスで

460(6): 2019/09/16(月)15:26 ID:eLMc9ESO(1) AAS
お題:１から１００までの自然数がある。ランダムに30個抜き出せ。

461: 2019/09/16(月)15:30 ID:4Q9Ti1cA(1) AAS
>>460 Ruby

p [*1..100].sample(30)

# => [13, 29, 96, 79, 78, 17, 89, 88, 69, 51, 44, 16, 54, 62,
47, 19, 45, 26, 43, 40, 91, 32, 30, 86, 84, 85, 15, 6, 41, 95]

462: 2019/09/16(月)16:08 ID:ShPpQTCq(1) AAS
>>460
Kotlin script

println((1..100).toMutableList().apply {shuffle()}.slice(0..29).joinToString())

463: 2019/09/16(月)16:53 ID:P3J/MfSa(1) AAS
>>460 Perl5、※選択に重複がないようにした

@a = 1..100;
use List::Util shuffle;
@b = (shuffle @a)[0..29];
print "@b\n";

実行結果
~ $ perl 15_460.pl
64 90 99 41 46 11 25 23 2 12 43 42 24 96 59 44 19 7 92 47 15 86 84 68 13 100 76 34 87 9

464(1): 2019/09/16(月)16:59 ID:ZgnCsjLO(1) AAS
>>460 J
(30?100) { >: i. 100

465: 2019/09/16(月)17:36 ID:enU8we0d(1) AAS
>>464
なるほど全然わからん

466: 2019/09/16(月)20:23 ID:LKlzCOg4(1) AAS
>>460 Pharo/Squeak Smalltalk

(1 to: 100) asArray shuffled first: 30

467(11): 2019/09/17(火)17:37 ID:IoM9hprN(1/2) AAS
プログラム言語標準の文字列(e.g. java.lang.String) が与えられ、ランレングス圧縮した結果をプログラム言語標準の文字列で返す関数を作成してください。ただし、入力に数字が入っていた場合のケースは考慮しなくても構いません。
テストケース(関数名 = f)
f("あいうえお") -> "あいうえお"
f("ああいいうう") -> "あ2い2う2"
f("あいうあいう") -> "あいうあいう"

468: 2019/09/17(火)18:15 ID:kyKgfAv0(1) AAS
あうあうあー -> あうあうあー
ああああ -> あ4

469: 2019/09/17(火)18:37 ID:IoM9hprN(2/2) AAS
そゆこと

470: 2019/09/17(火)19:42 ID:N7hzq5cx(1) AAS
python にあ2い2う2
のようにカウンティング結果を含んだリストを返すライブラリが
はいっていたな

471: 2019/09/17(火)21:40 ID:nuFS/S7T(1) AAS
>>467
haskellだよー

join.map ((:).head <*> (bool "".show.length <*> (1 <).length)).group

472: 2019/09/17(火)21:47 ID:s7WBnLNZ(1) AAS
>>467 JavaScript
const f = s => [...s]
.reduce((acc, ch) => {
const [lastCh, n = 1] = acc.pop() || [];
if (!lastCh) return [[ch]];
if (lastCh == ch) {
return [...acc, [lastCh, n + 1]];
} else {
return [...acc, [lastCh, n == 1 ? '' : n], [ch]];
}
省3

473: 2019/09/17(火)23:32 ID:htBCID9n(1/2) AAS
>>467 Perl5

use utf8;
binmode STDOUT, ':encoding(utf-8)';
for (qw{あいうえおああいいううあいうあいうあうあうあーああああ}) {
　my $s;
　while (/((.)\g-1*)/g) {
　　$s .= $2;
　　$s .= $l if 1 < ($l = length $1);
　}
　print "$s\n";
省8

474: 2019/09/17(火)23:58 ID:htBCID9n(2/2) AAS
>>467 Perl5、しくった、お題は「関数を作れ」だった…orz

use utf8;
binmode STDOUT, ':encoding(utf-8)';
sub f {
　my $s;
　while (/((.)\g-1*)/g) {
　　$s .= $2;
　　$s .= $l if 1 < ($l = length $1);
　}
　$s
省10

475: 2019/09/18(水)10:00 ID:Qm7jF2Kv(1/2) AAS
>>467 Ruby

f = -> s {s.gsub(/(.)\1+/){[$1, $&.size].join}}

%w[あいうえおああいいううあいうあいうあうあうあーああああ].each{|s| puts [s, f[s]].join(' => ')}
# =>
あいうえお => あいうえお
ああいいうう => あ2い2う2
あいうあいう => あいうあいう
あうあうあー => あうあうあー
ああああ => あ4

476: 2019/09/18(水)10:37 ID:Qm7jF2Kv(2/2) AAS
AA省

477: 2019/09/18(水)15:45 ID:GIOjMe2C(1/4) AAS
>>467
外部ﾘﾝｸ:ideone.com
C++。いい感じにかけた。

478(1): 2019/09/18(水)17:30 ID:quy23QLp(1) AAS
むずかし過ぎワロタｗｗｗ
俺にC++は絶対ムリｗｗｗｗｗ

479: 2019/09/18(水)17:40 ID:GIOjMe2C(2/4) AAS
>>478
自分の福祉のために圧迫しない程度に冗長に書いてるけど、ショートコーディングももちろんできるよ。
記憶力と直感と若干の経験で書いている。

480(1): 2019/09/18(水)19:34 ID:Dukdxvvo(1/2) AAS
完成品はないけどなｗ

481: 2019/09/18(水)19:48 ID:GIOjMe2C(3/4) AAS
>>480
ウインドウズのアプリっぽいの一個位は作ったことあるよ。

482(1): 2019/09/18(水)19:56 ID:Dukdxvvo(2/2) AAS
はいはいいつもの

483(1): 2019/09/18(水)20:22 ID:GIOjMe2C(4/4) AAS
>>482
ボット認定していい？

484: 2019/09/18(水)22:47 ID:Zy9clRCR(1) AAS
>>483
bot(だと自分で思ってる)相手にレスしちゃう男の人なんて……

485(2): 蟻人間 ◆T6xkBnTXz7B0 2019/09/19(木)03:17 ID:fzYUHnaE(1/3) AAS
お題: 明日の東京都の天気を教えてくれる「お天気ねえさん」を実装せよ。

外部ﾘﾝｸ:www.drk7.jp
ここのXMLデータを参考に、明日の東京都の天気を優しく説明してくれるような説明テキストを生成せよ。

例) 明日XX月YY日の東京都の天気は○○です。○○注意報が出ています。傘を忘れないでね。

486: 蟻人間 ◆T6xkBnTXz7B0 2019/09/19(木)03:40 ID:fzYUHnaE(2/3) AAS
ある種のデータは石油のように重要だから、データ自動生成は条件が揃えばお金儲けにつながる。まあ、とことんチャレンジしたまえ。

487: 2019/09/19(木)04:53 ID:kXMoSLFb(1) AAS
>>485
sh と perl5
外部ﾘﾝｸ:pastebin.com
画像ﾘﾝｸ[png]:i.imgur.com

colorlizerの中がperl入りで
見やすくするユーティリティー

488(1): 2019/09/19(木)20:26 ID:tW2U1Dga(1) AAS
google の検索結果を 10 づつ合計 1000 件ダウンロードするプログラム

489(1): さまよえる蟻人間 ◆T6xkBnTXz7B0 2019/09/19(木)20:38 ID:fzYUHnaE(3/3) AAS
>>488
ボットはあかん

490: 2019/09/19(木)21:01 ID:Iq+eqHsU(1) AAS
>>467 Lua
マルチバイト文字には対応していない。
function f(s)
　　 local r,c="",1
　　 for i=1,#s do
　　 if s:sub(i,i)==s:sub(i+1,i+1) then
　　 c=c+1
　　 else
　　　　 r=r..s:sub(i,i)
　　 if c>1 then
省10

491(1): 2019/09/19(木)21:11 ID:VNRPdI7o(1) AAS
>>460 octave
外部ﾘﾝｸ:ideone.com

>>467 ruby
外部ﾘﾝｸ:ideone.com

492: 2019/09/19(木)21:20 ID:7Zlc7qce(1) AAS
>>467
perl5
デバッガが日本語で化けるんで英語だけ
print("aabbccddd" =~ s{ (.) \1* }{ "$1" . length"$&" }xgre);
a2b2c2d3

493: 2019/09/20(金)00:35 ID:brDhMnbX(1/3) AAS
>>485 Perl5 (LWP::UserAgent、LWP::Protocol::https、XML::Simple のinstallしてあるPCで)

# -*- coding: utf-8 -*-
use utf8; use Data::Dump 'dump'; use Data::Dumper;
binmode STDOUT, ':encoding(utf-8)';
use feature say;
$pno = 13; # ex) 01:北海道, 13:東京, 20:長野, 47:沖縄
$url = "外部ﾘﾝｸ:www.drk7.jp
require LWP::UserAgent; # with LWP::Protocol::https
$ua = LWP::UserAgent->new;
$ua->agent('Mozilla/5.0 (Windows NT 6.3; WOW64; Trident/7.0; Touch; rv:11.0) like Gecko');
省19

494: 2019/09/20(金)00:38 ID:brDhMnbX(2/3) AAS
AA省

495: 2019/09/20(金)01:09 ID:brDhMnbX(3/3) AAS
お天気おねぃさんとは、ほど遠いなｺﾘｬ…

496(7): 2019/09/20(金)04:34 ID:vpcMUgg5(1) AAS
お題

以下の、列区切りが空白である入力文字列を、
最後の列の数値が、小さい順番で、行を並べ替えよ

答えは、上下が反転する

a b c 44
x y 33
z 22
11

497: 2019/09/20(金)07:37 ID:ZVVuMGcz(1) AAS
>>496
cat text
a b c 44
x y 33
z 22
11

cat text | perl -pe 's/.*? \s? (\d+)/$1:$&/xgm' | sort -n | perl -pe 's/^\d+://'
11
z 22
x y 33
省1

498: 2019/09/20(金)08:14 ID:ImrTQZdo(1) AAS
>>467
Common Lisp 外部ﾘﾝｸ:ideone.com
Perl 外部ﾘﾝｸ:ideone.com
JavaScript 外部ﾘﾝｸ:ideone.com

499: 2019/09/20(金)09:52 ID:PYkAN+VQ(1) AAS
>>496 Ruby

puts <<~EOS.each_line.sort_by{|s| s[/\S+\n?/].to_i}
　　a b c 44
　　x y 33
　　z 22
　　11
EOS

# =>
11
z 22
省2

500(1): 2019/09/20(金)13:59 ID:fZRbtgUM(1) AAS
>>489
合法的? にやるにはどうすればいいの?

501: 2019/09/20(金)14:08 ID:qcElLt/f(1) AAS
>>500
初手でウエイト入れないで読みに行って、アクセス規制法に引っかかるのとかありそう。
鯖落としたら、怒られるからな。警察に。

502: 2019/09/20(金)15:01 ID:8HAndpSr(1) AAS
>>496 J
echo@>(/: {: @:(0&".) &.>) <;._2 stdin ''

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も書き込み禁止

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

あと 449 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.061s