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

**デフォルトの名無しさん** · 2018/04/24(火) 20:45:14.49

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

前スレ
プログラミングのお題スレ Part10
https://mevius.5ch.net/test/read.cgi/tech/1514772904/

【出題と回答例】
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/

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

**デフォルトの名無しさん** · 2018/09/08(土) 22:41:19.06

>>865
誤爆

**デフォルトの名無しさん** · 2018/09/08(土) 22:56:28.52

>>864 Squeak/Pharo Smalltalk

"①"
((1 to: 50) copyWithoutAll: #(2 16 22 23 42.50)) shuffle first: 10.

"②"
#(1 2 5 6 16 18 20 21 23 28 30 33 39 40 47 49 50) shuffle first: 10.

**デフォルトの名無しさん** · 2018/09/09(日) 10:46:50.62

>>864 Ruby
([*1..50] - [2, 16, 22, 23, 42, 50]).sample(10)
[1, 2, 5, 6, 16, 18, 20, 21, 23, 28, 30, 33, 39, 40, 47, 49, 50].sample(10)

というか1~44までの数字の中で数字を10個ランダムで選ぶ乱数ツール使えばいいだけなのに質問者が謎

**デフォルトの名無しさん** · 2018/09/09(日) 10:51:12.28

ロト６を当てたい一般人だろ
そんくらいは察してやれよ

**デフォルトの名無しさん** · 2018/09/09(日) 11:22:22.79

>>868>>869
自演

**デフォルトの名無しさん** · 2018/09/09(日) 11:49:05.41

>>868
アスペ

**デフォルトの名無しさん** · 2018/09/09(日) 12:05:30.79

お、質問者様の登場か？ｗ

**デフォルトの名無しさん** · 2018/09/09(日) 13:55:51.77

>>872
糖質かよ

**デフォルトの名無しさん** · 2018/09/09(日) 14:04:26.80

発達障害イライラでワロタ

**デフォルトの名無しさん** · 2018/09/09(日) 14:05:05.91

くこけ？😗

**デフォルトの名無しさん** · 2018/09/09(日) 14:06:54.57

とうふさんはすこか？？😍

**デフォルトの名無しさん** · 2018/09/09(日) 14:08:03.90

自演死ね

**デフォルトの名無しさん** · 2018/09/09(日) 14:08:44.70

　　　　　　　　　　　　　　　ｲ　　　　　　　　　　　'、
　　　　　　　　　　　　　　 / 　　　　　ﾊ　　　　　　 ',
　　　　　　　　　　　　　　 i　　　ﾊ　ﾉ |　　i、　　　|　
　　 r‐-､　　 ,...,,　　　　　|　　ﾘ从-ﾉﾉﾘﾉﾉ-）ﾘ、　　l　
　　 :i!　 i!　　|: : i!|　　　　　| 　ﾘ　‐=･-;　　-･=‐ Y　 l　　　　　イェ～イ～プログラミング好きなオタクみってるう？なんJ民デース！
　　　 !　 i!. 　|　 ;|　 .　　 .i从 |　｀￣,:　　￣´　|从!　　　
　　　 i!　ヽ　|　　| 　　　　i ﾘ,i 　　ﾟ人,,__,,人:. 　 | ﾘ}　　
　　　　ゝ　 `-! 　:|! .　　　　ﾊ: i.　　,　__iｊ..__ ､: 　'iﾉ´　
　　 r'"~`ヾ、　　　i!　　　　　彡､　｀Ⅶｴlﾌ'´　/ミ　
　　,.ゝ､　　r'""`ヽ､i!　　　　彡ｲ＼　｀￣´　／ﾄミ
　　!､　 `ヽ､ー､　　ヽ　　　　_／ ∧　＞ ―＜　 ∧ ＼
　　 | ＼ i:" ）　　　　 ─ ' ¨: : : : |　＼　　　　／　|: : : ＼

**デフォルトの名無しさん** · 2018/09/09(日) 14:09:07.67

くこは罠🙅‍♀

**ニャース** · 2018/09/09(日) 14:09:35.76

ここでしたか

**デフォルトの名無しさん** · 2018/09/09(日) 14:09:50.68

グレイシアちゃんのふたなりチンポ

**デフォルトの名無しさん** · 2018/09/09(日) 14:10:48.73

【怒報】ワイ専門板にて1人からアスペやら糖質認定を受ける【援護求む】
http://swallow.5ch.net/test/read.cgi/livejupiter/1536469396/

**デフォルトの名無しさん** · 2018/09/09(日) 14:11:31.78

なんJから来たンゴwwwwwwww

**デフォルトの名無しさん** · 2018/09/09(日) 14:12:42.07

なんjの絆舐めるな！

**デフォルトの名無しさん** · 2018/09/09(日) 14:14:26.66

試合中やぞ

**デフォルトの名無しさん** · 2018/09/09(日) 14:15:18.48

なんだこのスレ😨

**デフォルトの名無しさん** · 2018/09/09(日) 14:15:42.19

アスペの>>868が居ると聞いて

**デフォルトの名無しさん** · 2018/09/09(日) 14:16:23.81

なんj書き込んだキッズ
今度から一人で解決しようね🤗

**デフォルトの名無しさん** · 2018/09/09(日) 14:16:27.10

>>871
>>873
実はこいつがなんJでスレ建てたんやで
>>868
は被害者や

**デフォルトの名無しさん** · 2018/09/09(日) 14:17:33.96

はい��

**デフォルトの名無しさん** · 2018/09/09(日) 14:18:16.63

ここになんjに助けを求めたガイジはいませんかー？🙋
負け犬は何処かな🤔

**デフォルトの名無しさん** · 2018/09/09(日) 14:18:35.22

くこけ？

**デフォルトの名無しさん** · 2018/09/09(日) 14:19:05.04

なんJにスレ立ててまでするチンパンジーが見れると聞いて来ました

**デフォルトの名無しさん** · 2018/09/09(日) 14:20:44.64

恥ずかしがらずに出てこいよ😘
ガイジくん😁
それとも顔真っ赤で出てこれないかな？🤔

**デフォルトの名無しさん** · 2018/09/09(日) 14:24:20.57

>>894
負け犬はお前定期

**デフォルトの名無しさん** · 2018/09/09(日) 14:26:08.47

>>895
キターーー😁
本物ですわ😏

**デフォルトの名無しさん** · 2018/09/09(日) 14:26:42.15

>>895
スレ立てガイジ本人いて草

**デフォルトの名無しさん** · 2018/09/09(日) 15:05:27.62

図星か

**デフォルトの名無しさん** · 2018/09/09(日) 15:07:21.91

>>895
大丈夫か？��

**デフォルトの名無しさん** · 2018/09/09(日) 15:57:06.11

意味わからないんだがｗ
ハンＪでしょうもないプログラミングの質問した人がいたってことか？

**デフォルトの名無しさん** · 2018/09/09(日) 15:58:03.09

ハンＪじゃないなんＪ

**デフォルトの名無しさん** · 2018/09/09(日) 16:03:08.91

また日本語怪しいじゃん君なんJでもまともに喋れなかったよね？

**デフォルトの名無しさん** · 2018/09/09(日) 16:07:58.48

>>871が建てたのはこれかｗ
http://tomcat.2ch.s c/test/read.cgi/livejupiter/1536469396/

**デフォルトの名無しさん** · 2018/09/09(日) 16:20:59.20

で元のレスがこれか
https://mevius.5ch.net/test/read.cgi/tech/1526606537/893

**デフォルトの名無しさん** · 2018/09/09(日) 17:03:05.57

>>903
立ててないぞ
人になすりつけるな

**デフォルトの名無しさん** · 2018/09/09(日) 17:12:29.21

>>900でなんjをハンjと打ち間違える時点で通報騒動知ってるやつやん
>>872で自分に都合の悪いレスつくと本人認定するような奴だしなんでもかんでも人のせいにしてきたんだろうな

**デフォルトの名無しさん** · 2018/09/09(日) 17:20:33.91

あ、これ俺に成りすまして他板でクソスレ立てて人をこっちに呼び込んでんのね
今理解したわ
このスレの住人なら>>870-871程度のことで他の板にスレ立てるわけないってわかってもらえると思うけど
荒れると嫌なんでしばらくＲＯＭりますわ

**デフォルトの名無しさん** · 2018/09/09(日) 17:27:07.85

>>907
今理解したわとか嘘だろ
>>903で>>871が建てたと認定してる時点でお前はとっくにわかってただろ

**デフォルトの名無しさん** · 2018/09/09(日) 17:44:29.85

単発ばっかだし質問を小馬鹿にされた質問者が自演で荒らしてんだろ
いちいち反応すんなｋｚ

**デフォルトの名無しさん** · 2018/09/10(月) 21:43:55.78

>>909
kzとかいつの時代やねん
お前はミスターアンモナイトかｗｗｗｗｗ

**デフォルトの名無しさん** · 2018/09/11(火) 11:59:19.26

a-zからなる単語のペアが与えられるのでそれぞれの元を辞書順にソートした上で同値類を求めなさい
なお同一のペアが2度以上入力されることはなく、また出力時の各行は順不同とする

例
-*- input -*-
goose pigeon
cat dog
eel goldfish
goose duck
horse dog
cod eel
dove pigeon
dog rhino
goldfish squid
goose lark

-*- output -*-
dove duck goose lark pigeon
cat dog horse rhino
cod eel goldfish squid

**デフォルトの名無しさん** · 2018/09/11(火) 15:17:49.53

>>911
同値類とは？

**デフォルトの名無しさん** · 2018/09/11(火) 17:41:21.76

>>912
入力のペア"A B"は A = B を表しているものとして等しいもの同士をグループにまとめて出力してねという問題
正確には「同値類に分割せよ」か「商集合を出力せよ」と言うべきだったか

例えば S = {A, B, C, D, E, F, G} に対して
A = B, C = A, D = F, E = G ……(☆) が成り立っているとすると
S の全ての要素は A = B = C と D = F と E = G っていう同じもの同士に分類できるよね
で (☆) の下で A の S における同値類とは {A, B, C} のことであり、
(☆) の下での S の商集合とは {{A, B, C}, {D, F}, {E, G}} のことを言うよ

問題を解く上で数学的な要素は無いから数学の言葉を使わないで出題すべきだった

**デフォルトの名無しさん** · 2018/09/11(火) 18:43:20.13

>>911 Squeak Smalltalk

| input groups |
input := 'goose pigeon
cat dog
eel goldfish
goose duck
horse dog
cod eel
dove pigeon
dog rhino
goldfish squid
goose lark'.

groups := OrderedCollection new.
input linesDo: [:line |
　| pair |
　pair := line subStrings.
　(groups detect: [:group | group includesAnyOf: pair] ifNone: [groups add: Set new])
　　addAll: pair
].
(groups collect: [:each | each asSortedCollection joinSeparatedBy: ' ']) asStringWithCr

"=> 'dove duck goose lark pigeon
cat dog horse rhino
cod eel goldfish squid' "

**デフォルトの名無しさん** · 2018/09/11(火) 18:58:42.97

>>913
それは良いとしても>>911の問題における同値類とはなんなのか？

例として出されているのは入力が動物の名前のようで、出力は重複をなくした上で大まかな種類ごとに分類されているようではある。
しかしこのそれぞれの分類は一体いかなる基準によって同じと判別したのか？

もしこれが単語の意味、およびそれの分類(動物なら四つ足だとか哺乳類だとか)によって分けなければならないとすると、単語の意味やその分類がプログラムの側でわかっていなければならない。
しかも入力にはどんな単語が来るかわからないというのであれば辞書並みの単語数に関してそれを保持していなければまともに分類できない。

**デフォルトの名無しさん** · 2018/09/11(火) 19:06:31.95

>>914
え？それでいいの？ペアになってるなつが同じ種類ってこと？

**デフォルトの名無しさん** · 2018/09/11(火) 19:55:35.45

>>915-916
＞入力のペア"A B"は A = B を表している

**デフォルトの名無しさん** · 2018/09/11(火) 21:04:39.05

なるほど。また最初の問題が不備で無限の回答が出るか一つも回答が出ないパターンだったと。

**デフォルトの名無しさん** · 2018/09/11(火) 21:40:27.09

見た感じ問題に不備はない
まだ何か勘違いしてるのでは

**デフォルトの名無しさん** · 2018/09/11(火) 22:23:42.34

>>911 Squeak Smalltalk （>>914 は入力順等によっては機能しないので差し替え）

| fn input |
fn := [:str |
　| groups |
　groups := OrderedCollection new.
　str linesDo: [:line |
　　| pair found |
　　pair := line subStrings asSet.
　　found := (groups select: [:group | group includesAnyOf: pair])
　　　ifEmpty: [{groups add: Set new}].
　　groups removeAll: found; add: (found inject: pair into: #,)
　].
　(groups collect: [:group | group asSortedCollection joinSeparatedBy: ' ']) asStringWithCr
].
input := 'goose pigeon
以下略'.

fn value: input.

"=> 'cat dog horse rhino
cod eel goldfish squid
dove duck goose lark pigeon' "

fn value: input, String cr, 'squid lark'.

"=> 'cat dog horse rhino
cod dove duck eel goldfish goose lark pigeon squid' "

**デフォルトの名無しさん** · 2018/09/11(火) 22:32:02.08

>>917
「それぞれの元を辞書順にソートした上で」
これは間違いってことね。

**デフォルトの名無しさん** · 2018/09/11(火) 22:42:05.94

cat dog horse rhinoとかってアルファベット順に出力するよう要請してるのだから少なくともそのフレーズに間違いはないよ

**デフォルトの名無しさん** · 2018/09/12(水) 08:18:25.07

>>911 「cat cat」とか重複するペアとか任意のペアが来てもオッケーなバージョン

def qs(er)
h = Hash.new　Float::INFINITY
erc = 0
er.each do |r|
min = r.map{|e| h[e]}.min
ern = min == Float::INFINITY ? erc += 1 : min
r.each{|e| h[e] = ern}
end
h.group_by(&:last).values.map{|s| s.map(&:first).sort}
end

er = $<.readlines.map　&:split
puts qs(er).map{|a| a * ' '} * $/
#=>
dove duck goose lark pigeon
cat dog horse rhino
cod eel goldfish squid

**デフォルトの名無しさん** · 2018/09/12(水) 10:35:33.91

>>923
その実装だと仮に squid lark のペアが末尾に追加されたとき
すでにある goldfish squid がキャンセルされちゃうけど？

https://ideone.com/sbA9P5

**デフォルトの名無しさん** · 2018/09/12(水) 11:17:32.60

>>924
指摘ありがと　確かにまずかった

https://ideone.com/gbKlMH

**デフォルトの名無しさん** · 2018/09/13(木) 02:06:53.72

>>911
Kotlin
https://paiza.io/projects/QoBZQmhMgIbx2IHLgWC07A

**デフォルトの名無しさん** · 2018/09/13(木) 08:17:03.84

>>926
よーわからんがペアの両方が既知の場合のマージ処理が抜けてない？
A B
C D
A C
の場合とか

**デフォルトの名無しさん** · 2018/09/13(木) 10:08:33.08

>>911の例をマージが必要になる順とかにしといてくれてれば…

**デフォルトの名無しさん** · 2018/09/13(木) 10:14:48.87

>>911　perl
%h;
while(<>){
chomp;
($f, $s) = split/ /;#first, second

undef $keyf;
undef $keys;

for $k (keys %h){
$keyf = $k if grep /$f/, @{$h{$k}};
$keys = $k if grep /$s/, @{$h{$k}};
}

if(!defined $keyf and !defined $keys){
push @{$h{$.}}, $f;
push @{$h{$.}}, $s;
}else{
push @{$h{$keys}}, $f unless defined $keyf;
push @{$h{$keyf}}, $s unless defined $keys;
}
}

map{print join " ", (sort{$a cmp $b}@{$h{$_}}), "\n"}keys %h;

**デフォルトの名無しさん** · 2018/09/13(木) 11:37:05.45

>>929
これもマージ処理>>927が抜けてない？

https://ideone.com/NAvn2f

**デフォルトの名無しさん** · 2018/09/13(木) 12:31:55.31

>>927
両方が既に入ってるなら何もする必要ないと思うのだが。

**デフォルトの名無しさん** · 2018/09/13(木) 13:14:56.32

>>931
https://paiza.io/projects/YTmp_QaHw0hpHqxX4cBGKw
入力
A B
C D
A C

出力
A B C
C D

期待される出力
A B C D

じゃろ？

**デフォルトの名無しさん** · 2018/09/13(木) 14:17:54.21

>>911 >>932
%h;
while(<>){
chomp;
($f, $s) = split / /;#first, second

undef $keyf;
undef $keys;

for $k (keys %h){
$keyf = $k if grep /$f/, @{$h{$k}};
$keys = $k if grep /$s/, @{$h{$k}};
}

if(!defined $keyf and !defined $keys){
push @{$h{$.}}, $f;
push @{$h{$.}}, $s;
}elsif( (defined $keyf and defined $keys) and !($f eq $s) ){#merge
push @{$h{$keys}}, @{$h{$keyf}};
delete $h{$keyf};
}else{
push @{$h{$keys}}, $f unless defined $keyf;
push @{$h{$keyf}}, $s unless defined $keys;
}
}

map{print join " ", (sort{$a cmp $b} @{$h{$_}}), "\n"} sort{$a <=> $b} keys %h;

**デフォルトの名無しさん** · 2018/09/13(木) 20:39:52.56

>>932
あー。なるほど。そういうことか。
また考えよう。

**デフォルトの名無しさん** · 2018/09/14(金) 03:38:24.35

>>927
>>926は修正した。(URL同じ)

**デフォルトの名無しさん** · 2018/09/14(金) 04:53:58.08

>>935
差し支えなければ修正前のコードも別URLで再掲載してもらえますか？
あるいは公開バージョンの履歴や差分を参照する機能がpaoza.ioにあったら教えてください

くしくもマージを考慮「しない版」と「する版」が出揃ったのでどういう修正で対処したか調べると
それぞれの言語の（あるいはアルゴリズムの）特徴が際立って面白いのではないかなぁとふと思ったので

**デフォルトの名無しさん** · 2018/09/14(金) 08:32:54.25

>>936
すまん。前の版はもうない。paiza.ioはそういう機能はない。
思い出して時間があったらなんとかする。

**デフォルトの名無しさん** · 2018/09/14(金) 09:31:32.78

>>937
あーいやそこまでしなくても結構です。ありがとうございます！

**デフォルトの名無しさん** · 2018/09/14(金) 12:57:38.55

わざわざ書こうとしてくれるなんて良いやつだな

**デフォルトの名無しさん** · 2018/09/14(金) 18:45:13.33

>>936
>>932が>>926の古いコードのコピペ

**デフォルトの名無しさん** · 2018/09/14(金) 20:03:21.13

>>940
おおありがとう！

**デフォルトの名無しさん** · 2018/09/14(金) 20:39:39.94

>>940
おお。ナイス。

**デフォルトの名無しさん** · 2018/09/14(金) 20:50:46.38

結構みんな人の書いたコード読んでるんだな
いい意味でびっくり

**デフォルトの名無しさん** · 2018/09/14(金) 23:34:38.18

逆になんで読まないの？

**デフォルトの名無しさん** · 2018/09/15(土) 00:06:11.66

>>911
Rubyで。
https://ideone.com/MEO7XO

**デフォルトの名無しさん** · 2018/09/15(土) 08:52:18.54

>>945
訂正。Rubyで。
https://ideone.com/er8XUC

**デフォルトの名無しさん** · 2018/09/15(土) 18:55:39.79

>>946　とは別の戦略。
Rubyで。
https://ideone.com/osABKT

**デフォルトの名無しさん** · 2018/09/15(土) 19:09:51.94

>>947
ソート忘れてんよ

**デフォルトの名無しさん** · 2018/09/16(日) 00:15:22.99

>>948
付けといて。

**デフォルトの名無しさん** · 2018/09/16(日) 08:13:10.07

>>911
Rubyで。ソート、コメント付き。
https://ideone.com/9RyjEF

**デフォルトの名無しさん** · 2018/09/18(火) 20:26:30.74

https://www.rco.recruit.co.jp/career/engineer/entry/
↑
この問題どうですか？

自分でも書いてみたのですが合ってるかちょっと分かりません
C# https://ideone.com/KNpwLL

**デフォルトの名無しさん** · 2018/09/18(火) 20:38:45.88

こういうのって答え公開してもいいんか？

**デフォルトの名無しさん** · 2018/09/18(火) 20:48:39.65

企業がやってるのって大体駄目だったと思うで

**デフォルトの名無しさん** · 2018/09/18(火) 20:49:39.59

>>952
あくまでも過去の出題例、だからいいんじゃないですか？

**デフォルトの名無しさん** · 2018/09/19(水) 00:29:21.73

アウトかセーフか分からないときは答え公開しないほうが無難

**デフォルトの名無しさん** · 2018/09/19(水) 01:18:48.14

>>955
アウトになる条件は、「エントリー後メールにて送付されるコーディング試験問題は、当社への応募以外の目的で無断使用しない」…①
だが、>>951 のリンクの問題は「エントリー後メールにて送付されるコーディング試験問題」ではないから①に反しない…②
さらに、無条件に誰でも見ることのできる問題であること…③
②よりアウトではないと断定できるし、③が②の結論を補強する
結論として、>>951 のリンクの問題を公開しても問題ない

>>955 「アウトかセーフかわからない」という結論にどういう道筋で到達したの？

**デフォルトの名無しさん** · 2018/09/19(水) 19:43:34.67

お題：コンプリートパネル(出展：高校生クイズ2018)

5×5のパネルが与えられる。各パネルは赤色か白色である。
各パネルに侵入すると、そのパネルの色が赤なら白、白なら赤に変化する。
最初のステップは、場外(左下のパネルの左隣)から左下のパネルへ侵入することである。
以降のステップでは、上下左右に移動することができる。
ただし、ひとつ前のパネルや場外に移動することはできない。

すべてのパネルを白色にするための移動経路を構成せよ。

WWWRR
WWWWR
WWWWR
WWWRR
RRRRW
=> 10 RRRRURUUUL (→→→→↑→↑↑↑←)

WWWWW
WWWWW
WWWWW
WWWWW
WWWWW
=> 0 (移動の必要なし)

WWWWW
WWWWW
WWWWW
WRWWW
WWWWW
=> 21 RRRRULULLDDRULURRDRDL (必ずしも最短経路である必要はない)

**デフォルトの名無しさん** · 2018/09/19(水) 19:51:24.03

>ひとつ前のパネルや場外に移動することはできない

全部踏めばいいんだからライツアウトの解法の亜種で解けるんじゃねえの

**デフォルトの名無しさん** · 2018/09/19(水) 19:59:02.78

状態を変えずに任意の場所まで移動できるなら
6箇所だけそれぞれ1つだけRだった場合を計算してあとは回転なりなんなりして重ね合わせればいけるな

**デフォルトの名無しさん** · 2018/09/19(水) 20:34:03.00

↑
□□□
□□□→

２＊３の全パターンで、この二つの方向のどちらかに抜ける経路が存在すればいい
あとは合成で何とかなる

**デフォルトの名無しさん** · 2018/09/19(水) 21:11:11.50

うーん。これはブルートフォースでやろうとするとかなり無駄が多くなって時間とメモリを山盛りに食いそうな予感。

**デフォルトの名無しさん** · 2018/09/19(水) 23:00:29.71

5x5=25マスの赤or白の2値だから25bit、現在位置25通り(5bit)に前回位置相対で4通り(2bit)、あわせて32bitパターン？

**デフォルトの名無しさん** · 2018/09/19(水) 23:25:52.07

５ｘ５は序の口で、１００ｘ１００くらいが本命でしょう
ついでに最短の最適解も

問題も作るだけならラクだから１０００ｘ１０００だって0.1秒程度で作れる
もちろん解くのは面倒

**デフォルトの名無しさん** · 2018/09/20(木) 01:27:25.92

>>957
手でしか試してないけど
解けないパターンとかありそうな予感
https://i.imgur.com/u8zgEum.png

**デフォルトの名無しさん** · 2018/09/20(木) 09:43:56.68

プログラム考える以前に解くためのいいアルゴリズムが思い浮かばん