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

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

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

494: 2019/09/20(金)00:38 ID:brDhMnbX(2/3) AAS
実行結果(例)

~ $ perl 15_485.pl
title: weather forecast xml
link: http://www.drk7.jp/weather/xml/13.xml
description: 気象庁の天気予報情報を XML で配信。1日1回 AM 6:00 ごろ更新。
pubDate: Thu, 19 Sep 2019 18:00:01 +0900
author: 気象庁
managingEditor: drk7.jp
都道府県: 東京都
地域: 伊豆諸島南部 (緯度=33.2419, 経度=139.8418)
省20

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 https://ideone.com/1VXrLk
Perl https://ideone.com/8SVG3V
JavaScript https://ideone.com/Cn73uX

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
http://appmarketinglabo.net/osaka-bakurotalk/
Ｑ、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
https://ideone.com/5PI58a
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
https://paiza.io/projects/6vObtBsKGF8CSWLHW8cUSQ

511: 2019/09/21(土)05:21 ID:DxluyDWg(2/2) AAS
>>504
Kotlin
https://paiza.io/projects/iaaP87ST43fSPdMkOiqSGQ

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
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]}

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

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

ぬこの手ぬこTOP 0.014s