[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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
https://ideone.com/0BVjSC
>>467 ruby
https://ideone.com/GR4Uu2
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 = "https://www.drk7.jp/weather/xml/$pno.xml";
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
実行結果(例)
~ $ 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
上下前次1-新書関写板覧索設栞歴
あと 493 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.016s