[過去ログ]
プログラミングのお題スレ Part15 (1002レス)
プログラミングのお題スレ Part15 http://mevius.5ch.net/test/read.cgi/tech/1564310397/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
505: デフォルトの名無しさん [sage] 2019/09/21(土) 00:39:37.54 ID:6wFtRpPA >>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 http://mevius.5ch.net/test/read.cgi/tech/1564310397/505
506: デフォルトの名無しさん [sage] 2019/09/21(土) 00:45:45.24 ID:Ei1MM/mp >>504 https://ideone.com/5PI58a C++。今回はメインロジックの記述が少なくて楽だった。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/506
507: デフォルトの名無しさん [sage] 2019/09/21(土) 00:46:28.49 ID:YPz6oCKs >>504 cat text Hoge Fuga Foo Fuga Foo Hoge Bar Fuga cat text | perl -ne '$dirs{ s/\R//r } += 1; END{for $key (keys %dirs) {printf "%-4s %s\n", $key, $dirs{$key} } }' Foo 2 Fuga 3 Bar 1 Hoge 2 http://mevius.5ch.net/test/read.cgi/tech/1564310397/507
508: デフォルトの名無しさん [sage] 2019/09/21(土) 00:50:19.09 ID:Ei1MM/mp うほっ。C++のunordered_mapはオーダー要求しないから、そこを使って最適化物故むとかやるんかいな。 VCとGCCと挙動違う。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/508
509: デフォルトの名無しさん [sage] 2019/09/21(土) 00:59:47.45 ID:6wFtRpPA >>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 11 z 22 x y 33 a b c 44 http://mevius.5ch.net/test/read.cgi/tech/1564310397/509
510: デフォルトの名無しさん [] 2019/09/21(土) 04:32:25.24 ID:DxluyDWg >>496 Kotlin https://paiza.io/projects/6vObtBsKGF8CSWLHW8cUSQ http://mevius.5ch.net/test/read.cgi/tech/1564310397/510
511: デフォルトの名無しさん [] 2019/09/21(土) 05:21:21.47 ID:DxluyDWg >>504 Kotlin https://paiza.io/projects/iaaP87ST43fSPdMkOiqSGQ http://mevius.5ch.net/test/read.cgi/tech/1564310397/511
512: デフォルトの名無しさん [] 2019/09/21(土) 05:37:07.36 ID:RmdAWOHY >>504 Ruby a=readlines.map(&:chomp) a.uniq.each{|v| puts("#{v} #{a.count(v)}")} http://mevius.5ch.net/test/read.cgi/tech/1564310397/512
513: デフォルトの名無しさん [sage] 2019/09/21(土) 15:59:00.83 ID:uZ0K83Mw >>496 ruby https://ideone.com/VtI7C7 puts readlines.sort_by {|s| s[/\d+$/].to_i} >>504 ruby https://ideone.com/Sw6k17 puts $<.read.scan(/\w+/).group_by(&:itself).map {|a, b| '%s %d' % [a, b.size]} http://mevius.5ch.net/test/read.cgi/tech/1564310397/513
514: デフォルトの名無しさん [sage] 2019/09/21(土) 16:12:27.45 ID:ZyFDPzPp お題:正の整数が与えられるので、英語の序数に変換せよ 1 => 1st 23 => 23rd 12 => 12th http://mevius.5ch.net/test/read.cgi/tech/1564310397/514
515: デフォルトの名無しさん [sage] 2019/09/21(土) 16:40:16.71 ID:6wFtRpPA >>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 6th 7th 8th 9th 10th 12th 23th http://mevius.5ch.net/test/read.cgi/tech/1564310397/515
516: デフォルトの名無しさん [sage] 2019/09/21(土) 16:54:30.22 ID:6wFtRpPA >>514 Perl5、 >>515 はもう少しコンパクトに書けた %o = qw{1 st 2 nd 3 rd}; printf "$_%s\n", $o{$_}//'th' for 1..10,12,23; http://mevius.5ch.net/test/read.cgi/tech/1564310397/516
517: デフォルトの名無しさん [sage] 2019/09/21(土) 17:38:27.55 ID:uZ0K83Mw >>514 ruby https://ideone.com/3Mupna http://mevius.5ch.net/test/read.cgi/tech/1564310397/517
518: デフォルトの名無しさん [] 2019/09/21(土) 18:24:27.24 ID:9SoaGQ4l >>504 Common Lisp https://ideone.com/VW5xja Perl https://ideone.com/kfn4xI http://mevius.5ch.net/test/read.cgi/tech/1564310397/518
519: デフォルトの名無しさん [] 2019/09/21(土) 19:12:36.02 ID:AojYT9zq 1st 2nd 3rd 11th 12th 13th 21st 22nd 23rd 101st 102nd 103rd 111th 112th 113th 121st 122nd 123rd 皆さんここらへん大丈夫? http://mevius.5ch.net/test/read.cgi/tech/1564310397/519
520: デフォルトの名無しさん [sage] 2019/09/21(土) 19:41:28.17 ID:6wFtRpPA >>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 3 => 3rd 4 => 4th 11 => 11th 12 => 12th 13 => 13th 21 => 21st 22 => 22nd 23 => 23rd 101 => 101st 102 => 102nd 103 => 103rd 111 => 111th 112 => 112th 113 => 113th 121 => 121st 122 => 122nd 123 => 123rd http://mevius.5ch.net/test/read.cgi/tech/1564310397/520
521: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/21(土) 20:51:54.21 ID:BmADEcuL お題: 与えられた西暦年月日を年号年月日に変換しなさい。ただし、変換するのは大正時代から令和までとし、範囲外であればERRORを表示しなさい。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/521
522: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/21(土) 21:04:33.10 ID:BmADEcuL お題: YYYY/MM/DD形式で与えられた西暦年月日の文字列が正しい年月日を表しているかどうか判定せよ。 http://mevius.5ch.net/test/read.cgi/tech/1564310397/522
523: 蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/09/21(土) 21:24:10.22 ID:BmADEcuL >>522, >>521の順に解いて下さい。 1970/01/05 1990/12/31 2019/04/28 2019/05/01 1920/02/29 http://mevius.5ch.net/test/read.cgi/tech/1564310397/523
524: デフォルトの名無しさん [sage] 2019/09/21(土) 22:12:07.89 ID:y97V3EOz >>522 Perl5 use Time::Piece; for (<DATA>) { chomp; my $t; eval {$t = Time::Piece->strptime($_, '%Y/%m/%d')}; $t //= 'Invalid'; print "$_: $t\n"; } __DATA__ 1970/01/05 1990/12/31 2019/04/28 2019/05/01 1920/02/29 0000/13/32 実行結果 1970/01/05: Mon Jan 5 00:00:00 1970 1990/12/31: Mon Dec 31 00:00:00 1990 2019/04/28: Sun Apr 28 00:00:00 2019 2019/05/01: Wed May 1 00:00:00 2019 1920/02/29: Sun Feb 29 00:00:00 1920 0000/13/32: Invalid http://mevius.5ch.net/test/read.cgi/tech/1564310397/524
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 478 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.008s