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

**デフォルトの名無しさん** · 2019/07/28(日) 19:39:57.54

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part14
http://mevius.5ch.net/test/read.cgi/tech/1558168409/

**デフォルトの名無しさん** · 2019/09/13(金) 13:13:33.48

>>412 Tcl
set x {1 2 3 4 5}
set r {}
foreach {a b} $x {set r [concat $r $a]}
puts $r

実行結果
1 3 5

**デフォルトの名無しさん** · 2019/09/13(金) 21:31:55.35

>>427
> foreach {a b}

こんなオサレな書き方で二個処理できるのすごい

**デフォルトの名無しさん** · 2019/09/13(金) 21:37:33.86

tcl/tkで「tk部分ははいいがtclがクソ」みたいなのよく見た気がするんだけど、あれどういうとこが根拠なん？

**デフォルトの名無しさん** · 2019/09/14(土) 04:14:12.84

お題: すべての人民は和平のために火急的に速やかに自己の復元を実現しなければならない。

**デフォルトの名無しさん** · 2019/09/14(土) 04:28:39.19

>>412 Io
a := list(1, 2, 3, 4, 5)
a select(i, v, i isEven) println

実行結果
list(1, 3, 5)

**デフォルトの名無しさん** · 2019/09/14(土) 07:49:29.90

>>419

>>420

スレ違いだし、関数型言語だけが再利用性が高いとは言わないけど、
仮にoddlistがリストに対して良く使われる処理なら

[1,2,3,4,5].oddlist()

とか使いたいよね？
確かRubyはそう言う基本クラスにメソッド追加出来たと思うけど(うろ覚え)、
それをライブラリにして公開したいとする。

そうなると名前の競合とか起こり得るので

import mylib

[1,2,3,4,5].mylib.oddlist()

としたいとか、ならないだろうか。

変数と関数は別が良いって思った。

(議論の流れになるなら、別スレに誘導してね)

**デフォルトの名無しさん** · 2019/09/14(土) 08:17:19.38

>>412 Python

print([ i for i in range(1,6,2) ])
# [1, 3, 5]

**デフォルトの名無しさん** · 2019/09/14(土) 08:24:26.09

>>429
スレチだが教えてやる
数字が文字列として扱われて実行時にパースされるから馬鹿みたいに遅いことだ

**デフォルトの名無しさん** · 2019/09/14(土) 08:30:44.01

>>412 Python a~f

print( ['a','b','c','d','e'][::2] )
# ['a', 'c', 'e']

**デフォルトの名無しさん** · 2019/09/14(土) 19:11:38.33

>>426
クリプタって何？

**デフォルトの名無しさん** · 2019/09/14(土) 19:29:31.44

ザラキ唱える人じゃないか

**デフォルトの名無しさん** · 2019/09/14(土) 19:57:54.64

>>436
Crypter.

Crypt + er.

**デフォルトの名無しさん** · 2019/09/14(土) 20:22:44.80

>>437
それはクリフト

**デフォルトの名無しさん** · 2019/09/14(土) 21:03:45.14

cryptoなんだからcryptorじゃないの？

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/14(土) 21:19:35.56

それをゆうなら、encrypterの方が自然じゃん。

**デフォルトの名無しさん** · 2019/09/14(土) 22:06:47.02

でも、それをいうならの方が自然かも

**デフォルトの名無しさん** · 2019/09/14(土) 22:21:17.26

EnCrypterか。了解。
忘れたらごめんなさい。

**デフォルトの名無しさん** · 2019/09/14(土) 22:23:04.61

EnCrypterはおかしい
Encryperでいい

**デフォルトの名無しさん** · 2019/09/14(土) 22:23:28.79

tが抜けた

**デフォルトの名無しさん** · 2019/09/14(土) 22:26:10.43

EmScriptEn

**デフォルトの名無しさん** · 2019/09/14(土) 22:35:29.16

>>444
なんか癖になってるんだ。
小学校から英語やってるわけじゃないからなぁ・・・。

**デフォルトの名無しさん** · 2019/09/14(土) 23:35:07.41

>>432
釈迦に説法は空しいし恥ずかしいのでやめよう
どう考えてもおまいより>>419のほうが力量が上
議論の余地は無いので安心していい

**デフォルトの名無しさん** · 2019/09/15(日) 10:23:47.74

>>426 Perl 5.30

# -*- coding: utf-8 -*-
no warnings 'experimental::signatures';
use feature qw(say signatures); # lexical_subs);
sub ReversibleHash_Encode($S, $C) {
　@a = unpack 'C*', $S;
　$l = @c = split '', $C;
　my $o; ++$o while $l**$o < 256; #my $o = 1 + log(256)/log $l;
　use integer;
　my sub _enc($i) { join '', reverse map{($i, $m) = ($i/$l, $i%$l); $c[$m]} 1..$o }
　%e = map{$_ => '%'._enc $_} 0..255;
　join '', map{$e{$_}} @a;
}
sub ReversibleHash_Decode($S, $C) {
　@s = $S =~ /(%\w+)/g;
　%d = map{$e{$_} => $_ } keys %e;
　pack 'C*', map{$d{$_}} @s;
}
say $t = ReversibleHash_Encode 'ウィキペディア', '0123456789';
say $s = ReversibleHash_Decode $t, '0123456789';
$Ch = "abcdefghijklnmopqrstuvwxyz0123456789";
say $t = ReversibleHash_Encode $s, $Ch;
say $s = ReversibleHash_Decode $t, $Ch;

実行結果
~ $ perl 15_426.pl
%227%130%166%227%130%163%227%130%173%227%131%154%227%131%135%227%130%163%227%130%162
ウィキペディア
%gl%dw%ew%gl%dw%et%gl%dw%e3%gl%dx%ek%gl%dx%d1%gl%dw%et%gl%dw%es
ウィキペディア

**デフォルトの名無しさん** · 2019/09/15(日) 10:37:25.58

zipとunzip関数があるからそれで偶数と奇数に分ければいい

**デフォルトの名無しさん** · 2019/09/15(日) 11:42:49.90

>>412 Prl5 (≦5.28)、配列の添字を0始まり以外にする$[ (array_base feature)を使用

$[ = 1;
@a = a..z;
@x = grep{$_ & 1} 1..@a;
@b = @a[@x];
print "@b\n";

実行結果
~ $ perl 15_412_array_base.pl
a c e g i k m o q s u w y

※5.12～5.28では$[は非推奨になり、設定すると
Use of assignment to $[ is deprecated at 15_412_2.pl line 1.
というwarningが出ます、5.30からは$[の設定できなくなりました

**デフォルトの名無しさん** · 2019/09/15(日) 15:11:01.79

>>412 R
要素が奇数個だとワーニングが出ちゃうけど

a<-1:9
print(matrix(a,2)[1,])

**デフォルトの名無しさん** · 2019/09/15(日) 15:41:23.29

鰐んぐ
魚にんぐ

**デフォルトの名無しさん** · 2019/09/15(日) 16:31:54.72

>>449
実行はしてないが、成果については「GJ!!」だ！

**デフォルトの名無しさん** · 2019/09/16(月) 04:35:46.66

お題: 文字列が渡されるので文字vの左隣の文字を小文字、右隣の文字を大文字に変換しなさい

**デフォルトの名無しさん** · 2019/09/16(月) 06:10:07.69

>>455
"avbvc" の結果を教えてくれ

**デフォルトの名無しさん** · 2019/09/16(月) 08:35:06.75

>>456
その場合はvに挟まれた文字をxに変換してください

**デフォルトの名無しさん** · 2019/09/16(月) 08:42:47.33

>>457
"avvb" の結果を教えてくれ

**デフォルトの名無しさん** · 2019/09/16(月) 11:06:17.48

頭悪そうなお題はパスで

**デフォルトの名無しさん** · 2019/09/16(月) 15:26:20.20

お題:１から１００までの自然数がある。ランダムに30個抜き出せ。

**デフォルトの名無しさん** · 2019/09/16(月) 15:30:00.20

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

**デフォルトの名無しさん** · 2019/09/16(月) 16:08:30.72

>>460
Kotlin script

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

**デフォルトの名無しさん** · 2019/09/16(月) 16:53:32.17

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

**デフォルトの名無しさん** · 2019/09/16(月) 16:59:32.09

>>460 J
(30?100) { >: i. 100

**デフォルトの名無しさん** · 2019/09/16(月) 17:36:43.98

>>464
なるほど全然わからん

**デフォルトの名無しさん** · 2019/09/16(月) 20:23:01.84

>>460 Pharo/Squeak Smalltalk

(1 to: 100) asArray shuffled first: 30

**デフォルトの名無しさん** · 2019/09/17(火) 17:37:59.85

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

**デフォルトの名無しさん** · 2019/09/17(火) 18:15:13.62

あうあうあー -> あうあうあー
ああああ -> あ4

**デフォルトの名無しさん** · 2019/09/17(火) 18:37:25.07

そゆこと

**デフォルトの名無しさん** · 2019/09/17(火) 19:42:43.30

python にあ2い2う2
のようにカウンティング結果を含んだリストを返すライブラリが
はいっていたな

**デフォルトの名無しさん** · 2019/09/17(火) 21:40:53.07

>>467
haskellだよー

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

**デフォルトの名無しさん** · 2019/09/17(火) 21:47:22.78

>>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]];
}
}, [])
.flat(Infinity)
.join``;

**デフォルトの名無しさん** · 2019/09/17(火) 23:32:50.16

>>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";
}

実行結果
~ $ perl 15_467.pl
あいうえお
あ2い2う2
あいうあいう
あうあうあー
あ4

**デフォルトの名無しさん** · 2019/09/17(火) 23:58:08.34

>>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
}
for (qw{あいうえおああいいううあいうあいうあうあうあーああああ}) {
　print f($_)."\n";
}

~ $ perl 15_467_f.pl
あいうえお
あ2い2う2
あいうあいう
あうあうあー
あ4

**デフォルトの名無しさん** · 2019/09/18(水) 10:00:45.90

>>467 Ruby

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

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

**デフォルトの名無しさん** · 2019/09/18(水) 10:37:56.54

>>432 Ruby

module Hoge
　　refine Array do
　　　　def oddlist
　　　　　　select.with_index{|s, i| i.odd?}
　　　　end
　　end
end

class C1
　　p [0, 1, 2, 3, 4].oddlist rescue p$!
　　# => #<NoMethodError: undefined method `oddlist' for []:Array>
end

class C2
　　using Hoge
　　p [0, 1, 2, 3, 4].oddlist
　　# => [1, 3]
end

**デフォルトの名無しさん** · 2019/09/18(水) 15:45:23.52

>>467
https://ideone.com/3jC9wU
C++。いい感じにかけた。

**デフォルトの名無しさん** · 2019/09/18(水) 17:30:11.83

むずかし過ぎワロタｗｗｗ
俺にC++は絶対ムリｗｗｗｗｗ

**デフォルトの名無しさん** · 2019/09/18(水) 17:40:05.70

>>478
自分の福祉のために圧迫しない程度に冗長に書いてるけど、ショートコーディングももちろんできるよ。
記憶力と直感と若干の経験で書いている。

**デフォルトの名無しさん** · 2019/09/18(水) 19:34:59.80

完成品はないけどなｗ

**デフォルトの名無しさん** · 2019/09/18(水) 19:48:16.27

>>480
ウインドウズのアプリっぽいの一個位は作ったことあるよ。

**デフォルトの名無しさん** · 2019/09/18(水) 19:56:52.36

はいはいいつもの

**デフォルトの名無しさん** · 2019/09/18(水) 20:22:10.02

>>482
ボット認定していい？

**デフォルトの名無しさん** · 2019/09/18(水) 22:47:30.76

>>483
bot(だと自分で思ってる)相手にレスしちゃう男の人なんて……

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/19(木) 03:17:38.21

お題: 明日の東京都の天気を教えてくれる「お天気ねえさん」を実装せよ。

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

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

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/19(木) 03:40:46.99

ある種のデータは石油のように重要だから、データ自動生成は条件が揃えばお金儲けにつながる。まあ、とことんチャレンジしたまえ。

**デフォルトの名無しさん** · 2019/09/19(木) 04:53:29.17

>>485
sh と perl5
https://pastebin.com/3dXzkYvR
https://i.imgur.com/G3ehbXa.png

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

**デフォルトの名無しさん** · 2019/09/19(木) 20:26:10.81

google の検索結果を 10 づつ合計 1000 件ダウンロードするプログラム

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/09/19(木) 20:38:41.32

>>488
ボットはあかん

**デフォルトの名無しさん** · 2019/09/19(木) 21:01:33.69

>>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
　　 r=r..c
　　 c=1
　　 end
　　 end
　　 end
　　 return(r)
end
print(f("aaabbc"))

実行結果
a3b2c

**デフォルトの名無しさん** · 2019/09/19(木) 21:11:19.84

>>460 octave
https://ideone.com/0BVjSC

>>467 ruby
https://ideone.com/GR4Uu2

**デフォルトの名無しさん** · 2019/09/19(木) 21:20:20.35

>>467
perl5
デバッガが日本語で化けるんで英語だけ
print("aabbccddd" =~ s{ (.) \1* }{ "$1" . length"$&" }xgre);
a2b2c2d3

**デフォルトの名無しさん** · 2019/09/20(金) 00:35:55.08

>>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');
$xml = LWP::UserAgent->new->get($url)->content;
use XML::Simple;
my $xs = new XML::Simple; #(keyattr => ['area']); # (forcearray => ['info'], keyattr => ['pref']);
my $data = $xs->XMLin($xml);
say "$_: $data->{$_}" for qw{title link description pubDate author managingEditor};
$pref = $data->{pref}; say "都道府県: $pref->{id}";
%area = %{$pref->{area}};
for $region (keys %area) {
　$area = $area{$region};
　printf "地域: $region (緯度=%s, 経度=%s)\n", @{$area->{geo}}{qw{lat long}};
　for $info (@{$area->{info}}) {
　　say "　$info->{date} 天気:$info->{weather} (画像 $info->{img})";
　　$info->{$_} and say '　'x9, $info->{$_} for qw{weather_detail wave};
　　%temp = %{$info->{temperature}};
　　say '　'x6, " 気温[$temp{unit}]: ", join 'から', sort map{"$_->{content}°"} @{$temp{range}};
　　%rfc = %{$info->{rainfallchance}};
　　say '　'x6, " 降水確率　: ", join ', ', map{"$_->{hour}時:$_->{content}$rfc{unit}"} @{$rfc{period}};
　}
}

**デフォルトの名無しさん** · 2019/09/20(金) 00:38:16.81

実行結果(例)

~ $ 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)
2019/09/19 天気:くもり時々雨 (画像 http://www.drk7.jp/MT/images/MTWeather/202.gif)
　　　　　　　　　北東の風　やや強く　くもり　夜のはじめ頃　雨　八丈島　では　夜遅く　雷を伴い　激しく　降る
　　　　　　　　　波　３メートル　うねり　を伴う
　　　　　　気温[摂氏]: 21°から23°
　　　　　　降水確率　: 00-06時:0％, 06-12時:80％, 12-18時:50％, 18-24時:50％
2019/09/20 天気:くもり時々雨 (画像 http://www.drk7.jp/MT/images/MTWeather/203.gif)
　　　　　　　　　東の風　やや強く　くもり　一時　雨
　　　　　　　　　波　４メートル　のち　３メートル　ただし　三宅島　では　３メートル
　　　　　　気温[摂氏]: 20°から23°
　　　　　　降水確率　: 00-06時:50％, 06-12時:60％, 12-18時:60％, 18-24時:50％
2019/09/21 天気:くもり一時雨 (画像 http://www.drk7.jp/MT/images/MTWeather/202.gif)
　　　　　　気温[摂氏]: 21°から26°
　　　　　　降水確率　: 00-06時:70％, 06-12時:70％, 12-18時:70％, 18-24時:70％
2019/09/22 天気:くもり一時雨 (画像 http://www.drk7.jp/MT/images/MTWeather/202.gif)
　　　　　　気温[摂氏]: 23°から29°
　　　　　　降水確率　: 00-06時:50％, 06-12時:50％, 12-18時:50％, 18-24時:50％
2019/09/23 天気:くもり一時雨 (画像 http://www.drk7.jp/MT/images/MTWeather/202.gif)
　　　　　　気温[摂氏]: 25°から29°
　　　　　　降水確率　: 00-06時:50％, 06-12時:50％, 12-18時:50％, 18-24時:50％
…(後略

**デフォルトの名無しさん** · 2019/09/20(金) 01:09:22.21

お天気おねぃさんとは、ほど遠いなｺﾘｬ…

**デフォルトの名無しさん** · 2019/09/20(金) 04:34:57.12

お題

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

答えは、上下が反転する

a b c 44
x y 33
z 22
11

**デフォルトの名無しさん** · 2019/09/20(金) 07:37:10.18

>>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
a b c 44

**デフォルトの名無しさん** · 2019/09/20(金) 08:14:00.92

>>467
Common Lisp https://ideone.com/1VXrLk
Perl https://ideone.com/8SVG3V
JavaScript https://ideone.com/Cn73uX

**デフォルトの名無しさん** · 2019/09/20(金) 09:52:16.00

>>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
x y 33
a b c 44

**デフォルトの名無しさん** · 2019/09/20(金) 13:59:42.96

>>489
合法的? にやるにはどうすればいいの?

**デフォルトの名無しさん** · 2019/09/20(金) 14:08:52.93

>>500
初手でウエイト入れないで読みに行って、アクセス規制法に引っかかるのとかありそう。
鯖落としたら、怒られるからな。警察に。

**デフォルトの名無しさん** · 2019/09/20(金) 15:01:57.40

>>496 J
echo@>(/: {: @:(0&".) &.>) <;._2 stdin ''

**デフォルトの名無しさん** · 2019/09/20(金) 15:07:26.20

http://appmarketinglabo.net/osaka-bakurotalk/
Ｑ、hamonさん、ここだけの面白い話は何かありますか？

hamon：
絶対にこれをつくれば海外で10万DLされるという「超鉄板ジャンル」がある。
それは「3Dのリアルな人間をつかった実在のスポーツゲーム」、中身がクソでも10万DLはされる。
「ボクシングvs腕相撲」という実質もぐらたたきのようなゲームが30万DLいった。
「スキージャンプアルティメイタム」というゲームが10万DLくらい。
マイナーなスポーツでもそのような結果なので、競技人口のベスト10のスポーツを調べてつくれば10万DLは固い。
普通につくるとコストがかかるが、UNITYでつくればストア上でモーションも売っているのでかなり稼げると思う。

**デフォルトの名無しさん** · 2019/09/21(土) 00:27:57.30

お題: 同じ文字列がいくつあるか数えるプログラムを作成しなさい。
※出力は出現回数順でソートされている必要はありません。

入力
Hoge
Fuga
Foo
Fuga
Foo
Hoge
Bar
Fuga

出力
Hoge 2
Fuga 3
Foo 2
Bar 1

**デフォルトの名無しさん** · 2019/09/21(土) 00:39:37.54

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

**デフォルトの名無しさん** · 2019/09/21(土) 00:45:45.24

>>504
https://ideone.com/5PI58a
C++。今回はメインロジックの記述が少なくて楽だった。

**デフォルトの名無しさん** · 2019/09/21(土) 00:46:28.49

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

**デフォルトの名無しさん** · 2019/09/21(土) 00:50:19.09

うほっ。C++のunordered_mapはオーダー要求しないから、そこを使って最適化物故むとかやるんかいな。
VCとGCCと挙動違う。

**デフォルトの名無しさん** · 2019/09/21(土) 00:59:47.45

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

**デフォルトの名無しさん** · 2019/09/21(土) 04:32:25.24

>>496
Kotlin
https://paiza.io/projects/6vObtBsKGF8CSWLHW8cUSQ

**デフォルトの名無しさん** · 2019/09/21(土) 05:21:21.47

>>504
Kotlin
https://paiza.io/projects/iaaP87ST43fSPdMkOiqSGQ

**デフォルトの名無しさん** · 2019/09/21(土) 05:37:07.36

>>504 Ruby
a=readlines.map(&:chomp)
a.uniq.each{|v| puts("#{v} #{a.count(v)}")}

**デフォルトの名無しさん** · 2019/09/21(土) 15:59:00.83

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

**デフォルトの名無しさん** · 2019/09/21(土) 16:12:27.45

お題：正の整数が与えられるので、英語の序数に変換せよ
1 => 1st
23 => 23rd
12 => 12th

**デフォルトの名無しさん** · 2019/09/21(土) 16:40:16.71

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

**デフォルトの名無しさん** · 2019/09/21(土) 16:54:30.22

>>514 Perl5、 >>515 はもう少しコンパクトに書けた

%o = qw{1 st 2 nd 3 rd};
printf "$_%s\n", $o{$_}//'th' for 1..10,12,23;

**デフォルトの名無しさん** · 2019/09/21(土) 17:38:27.55

>>514 ruby
https://ideone.com/3Mupna

**デフォルトの名無しさん** · 2019/09/21(土) 18:24:27.24

>>504
Common Lisp https://ideone.com/VW5xja
Perl https://ideone.com/kfn4xI

**デフォルトの名無しさん** · 2019/09/21(土) 19:12:36.02

1st 2nd 3rd
11th 12th 13th
21st 22nd 23rd
101st 102nd 103rd
111th 112th 113th
121st 122nd 123rd

皆さんここらへん大丈夫？

**デフォルトの名無しさん** · 2019/09/21(土) 19:41:28.17

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

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/09/21(土) 20:51:54.21

お題: 与えられた西暦年月日を年号年月日に変換しなさい。ただし、変換するのは大正時代から令和までとし、範囲外であればERRORを表示しなさい。

**さまよえる蟻人間** ◆T6xkBnTXz7B0 · 2019/09/21(土) 21:04:33.10

お題: YYYY/MM/DD形式で与えられた西暦年月日の文字列が正しい年月日を表しているかどうか判定せよ。

**蟻人間** ◆T6xkBnTXz7B0 · 2019/09/21(土) 21:24:10.22

>>522, >>521の順に解いて下さい。

1970/01/05
1990/12/31
2019/04/28
2019/05/01
1920/02/29

**デフォルトの名無しさん** · 2019/09/21(土) 22:12:07.89

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

**524** · 2019/09/21(土) 22:29:42.44

>>524

Time::Piece->strptime は
1900/01/01 よりも前の日付だと
正しい西暦の年月日を入力しても
parse結果が不定となってしまうということがさっき分かりました。
したがって残念ながら>>524のcodeは>>522の題意を満たしているとは
言いがたいものでした。ｺﾞﾒﾝね～

**デフォルトの名無しさん** · 2019/09/21(土) 22:37:53.07

>>521-523 Java
https://ideone.com/5XMVPB