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

**デフォルトの名無しさん** · 2018/01/01(月) 11:15:04.40

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

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

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

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文

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

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

**デフォルトの名無しさん** · 2018/04/04(水) 08:27:21.83

じゃー、ソートすれば常に0だな。
おしまーい。

**デフォルトの名無しさん** · 2018/04/04(水) 08:39:36.72

これ、プログラムのお題じゃなくてイジワル問題ってやつだ。
一応間引くとは言ったけど、どのように間引きたいかは書いてない。
それを考えろっていうもんだいで、じょうけんとしては何もだされていない。
べつに大きくしてもよい。
が、大きくする必要性もないので、条件内でやる最善手がソートして昇順にするだけででも満たされうる。

以上。

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

https://ideone.com/G4cjeS
C++。これが間違ってるんだったらその理論を聞きたい。

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

思想でも読んでるのかなぁ。

**デフォルトの名無しさん** · 2018/04/04(水) 10:01:46.30

なんだその、｢牛乳を1個買ってきて。卵があったら6個買ってきて｣と言われて卵があったから牛乳を6個買ってくるような行動
リアルでこんな奴いるんだな……
間違ってるわけではないのが余計質悪い

**デフォルトの名無しさん** · 2018/04/04(水) 10:05:40.95

>>563
ん？だから説明が悪いっていのを体現しただけ。
>>558　で書いてるでしょ。
多分思想問題なんだよこれ。

**デフォルトの名無しさん** · 2018/04/04(水) 10:10:25.80

例えばね、例えば。
この数字が暗号で間引くと人が死ぬとかいうシチュエーションでそもそも間引く必要あるの？っていう趣旨返しなわけ。

**デフォルトの名無しさん** · 2018/04/04(水) 10:25:05.16

与えられたデータが数列とも限らないし勝手に解釈して好きなように作る以外にやりようがない問題
自由度が大きい問題はあらゆる答えが正解ともいえるから一つの正解にたどり着く過程を楽しむ数学好きとかには不評だろう

**デフォルトの名無しさん** · 2018/04/04(水) 12:49:19.51

おいおいおいおい
勝手に解釈して好きなように作るしかない問題(←否定的な表現)だからあらゆる答えが正解だ、というの？

これは「どう解釈しても構わないから好きなように答えれば良い問題」っていうんだよ。

例えばソートのアルゴリズムだって別に数値かどうかなど決めずとも考察も品評もできる
「比較回数だけでいうならo(1)のバケツソートが最高。はい論破」とか言うのも自由
答えが一個ならただの問い、クイズだよ

**デフォルトの名無しさん** · 2018/04/04(水) 16:23:18.45

[[[[[[][}[[[ [ {} [] ]]][ [[ [

**デフォルトの名無しさん** · 2018/04/04(水) 16:49:39.45

暗号か？

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

C言語
なんか>>544とほとんど同じになってしまった
https://ideone.com/xraUUB

**デフォルトの名無しさん** · 2018/04/04(水) 19:50:20.24

>>556
荒らしっていうかさ
その子はこのスレにながく張り付いてる
無職でかつガイジ
かわいそうな子だから放置しといてあげて

**デフォルトの名無しさん** · 2018/04/05(木) 00:22:00.99

A(間引く)の処理の後にB(小さい順に並べる)の処理をすると読んでしまったのは内緒

**デフォルトの名無しさん** · 2018/04/05(木) 22:33:01.28

お題
以下の配列pで与えられるツリー構造を図示せよ
・pの要素数はN
・p[i]はノードiの親ノードを表す
・p[i]=-1の場合、ノードiは根ノードである
・pに含まれる-1の数はちょうど1つ

[input]
1 2 -1 0 0 1 1 2

[outupt]
2
|-- 1
| |-- 0
| | |-- 3
| | `-- 4
| |-- 5
| `-- 6
`-- 7

**デフォルトの名無しさん** · 2018/04/06(金) 06:25:51.13

p[0]=1
p[1]=0

**デフォルトの名無しさん** · 2018/04/06(金) 06:27:10.11

p[2]=-1

**デフォルトの名無しさん** · 2018/04/06(金) 06:40:00.16

連結ではない <===> ループが存在する

**デフォルトの名無しさん** · 2018/04/06(金) 08:57:39.15

>>573
https://ideone.com/u2CqvF

**デフォルトの名無しさん** · 2018/04/06(金) 11:36:10.59

お題にツリー構造って明記されてるから閉路は無いのでは

**デフォルトの名無しさん** · 2018/04/06(金) 12:54:56.14

条件には書いてない
根が1個という条件だけ中途半端に書いてある
はて

**デフォルトの名無しさん** · 2018/04/06(金) 13:12:46.44

「～で与えられるツリー構造」

**デフォルトの名無しさん** · 2018/04/06(金) 13:39:17.95

条件には書いてない！（書いてある）
目か頭かどちらかあるいは両方おかしい。
頭の方ならこれからエクストリーム言い訳が来るだろうから楽しみにしてるｗ

**デフォルトの名無しさん** · 2018/04/06(金) 14:45:17.05

「解無し」という答えに文句言ったくち？

**デフォルトの名無しさん** · 2018/04/06(金) 16:12:43.87

>>577以外のやり方以外のやり方考えるの面倒だな。
てか、いきなり最適解が出てしまった感あるな。
他の言語に書き換えるのは簡単だが移植しただけになってなんとなく無意味。

**デフォルトの名無しさん** · 2018/04/06(金) 17:02:31.80

再帰じゃない解とか

**デフォルトの名無しさん** · 2018/04/06(金) 17:09:52.76

階層構造なのに再帰使わないのは辛いなあ。自分でデータを積む事になるだろうし。しかしそれぐらいしかないか？

**デフォルトの名無しさん** · 2018/04/06(金) 17:12:50.15

そだね
なにかアクロバティックな解法でもあれば面白いんだけど凡才で思いつけん

**デフォルトの名無しさん** · 2018/04/06(金) 18:06:53.73

お題
5以上の素数が与えられたとき1番近い6の倍数を求める

**デフォルトの名無しさん** · 2018/04/06(金) 18:13:50.95

5以上の素数しか与えられない？
素数以外も与えられることもある？

**デフォルトの名無しさん** · 2018/04/06(金) 18:15:51.07

日本語読めないのか？

**デフォルトの名無しさん** · 2018/04/06(金) 18:17:05.45

(n+3)/6*6 かな

**デフォルトの名無しさん** · 2018/04/06(金) 18:18:14.39

素数列挙がメンドだから日本語で。
素数を6で割って、ラウンドして1プラスして、6倍する。
であってる？

**デフォルトの名無しさん** · 2018/04/06(金) 18:19:17.00

四捨五入の方がいいか？

**デフォルトの名無しさん** · 2018/04/06(金) 19:32:58.29

>>588
5以上の素数が与えられなかった場合の動作については何も書かれてないので
好きに仕様を決めれば良いんだよ

**デフォルトの名無しさん** · 2018/04/06(金) 19:36:58.77

エラー表示
動作不定
与えられるまでまつ
など

>>589
仕事だとそういうところでもめたりするのだ
今回は仕事じゃないので好きに決めればいい

**デフォルトの名無しさん** · 2018/04/06(金) 19:41:53.07

それ言い出したら、言語によっては実数も文字列も行列も与えられるし、きりがないよ

**デフォルトの名無しさん** · 2018/04/06(金) 19:47:17.56

int q587(int p){//pは5以上の素数
return (p % 6==1)? 6*(p/6):6*(p/6+1);
}

**デフォルトの名無しさん** · 2018/04/06(金) 19:51:17.88

>>595
「今回は仕事じゃないので好きに決めればいい」

**デフォルトの名無しさん** · 2018/04/06(金) 20:02:53.64

>>591>>592
7が与えられたら結果はいくつになるそれ？

**デフォルトの名無しさん** · 2018/04/06(金) 20:08:15.85

>>587
n - (-1)^(n%6/5)

**デフォルトの名無しさん** · 2018/04/06(金) 20:13:35.02

>>587
こっちの方がいいか。除算は切り捨て
n - 1 + n%6/5*2

**デフォルトの名無しさん** · 2018/04/06(金) 20:34:39.42

>>587 Ruby
-~n/6*6

**デフォルトの名無しさん** · 2018/04/06(金) 20:46:11.62

n+1 ってのを -~n と短縮してるわけか
面白い

**デフォルトの名無しさん** · 2018/04/06(金) 21:04:40.65

一番近くない答えを出す回答が混ざってるのが面白い

**デフォルトの名無しさん** · 2018/04/06(金) 21:06:03.82

面白いか？
どっちも

**デフォルトの名無しさん** · 2018/04/06(金) 22:19:03.40

お題
整数n(0 <= n < 2^32)を英語で表記する
0 => zero
134 => one hundred thirty four
1000000 => one million
4294967295 => ???

**デフォルトの名無しさん** · 2018/04/06(金) 23:06:37.46

その???のところどんな形式でもいいの？
それともtwo to the power of thirty two subtracted by oneじゃないとダメ？

**デフォルトの名無しさん** · 2018/04/06(金) 23:22:09.18

four billion なんちゃらだろjk

**デフォルトの名無しさん** · 2018/04/06(金) 23:56:30.88

>>605 Ruby

https://ideone.com/F3RT13

**デフォルトの名無しさん** · 2018/04/07(土) 00:21:05.83

>>588
https://ideone.com/d3UrjB
C++。プライム検出をダメコードででっち上げて書いた。正直遅い。

**デフォルトの名無しさん** · 2018/04/07(土) 00:24:29.61

>>598
下がる方考慮してなかったから考慮したコード書いたよ。

**デフォルトの名無しさん** · 2018/04/07(土) 00:55:56.21

鈴木貫太郎
北海道大学　２種類の数字でできてるｎ桁の数字の個数
https://youtu.be/SHdUszy0qQs

2種類の数字だけでできている、4桁の数字は、いくつあるか？
答え、567

2種類の数字だけでできている、N桁の数字は、いくつあるか？
答え、81(2^(N-1) - 1)

N=5 の時も、求めて

**デフォルトの名無しさん** · 2018/04/07(土) 01:12:51.88

>>611
普通に 81 * (2^(5 - 1) - 1) = 1215 なのに何を求めるの
10C2 * 5C2 - 9*5 + 10C2 * 10P2 - 9 * 10 = 1215 みたいに場合分けしてもう一度計算しろってことかね

**デフォルトの名無しさん** · 2018/04/07(土) 01:38:08.29

>>587
その問題って元の値が素数かどうかは関係ないのでは？
Perl だとnが正の整数なら int((n+3)/6)*6 の計算で出来てしまうと思うが。
/ の割り算が整数で出るような言語なら整数化も不要。(C言語で int n だった場合等)。

**デフォルトの名無しさん** · 2018/04/07(土) 01:39:34.76

素数は奇数だから、6 で割った余りのうち、1, 5 のみが素数になり得る。
つまり、6N + 1, 6N + 5 (6N ± 1)だけ。
6N + 3 は、3 の倍数になるので、素数にならない

この動画を参照

鈴木貫太郎
整数、素数、京都大学入試問題　数学
https://youtu.be/PCX6sqN9FhA

p, q が共に素数のとき、
p^q + q^p が素数になる、p, q をすべて求めよ

ヒント、どちらか一方は必ず、2 となる。
答え、(2, 3), (3, 2)

ちなみに、答えが合っていても、0点です。
それ以外に解が存在しないという、証明に加点される

**デフォルトの名無しさん** · 2018/04/07(土) 02:02:01.73

n = p^q + q^p, p <= q とすると
n >= 8 なのでnは奇素数
よって p = 2, q >= 3
q > 3 の時 n = 2^q + q^2 = 2 + 1 = 3 mod 6 で矛盾
q = 3 の時 n = 17 で必要条件を満たしている
よって (p, q) = (2, 3), (3, 2)

でこれをSATソルバーでも使って解けっていうのかね

**デフォルトの名無しさん** · 2018/04/07(土) 04:51:35.83

>>605
Kotlin
https://paiza.io/projects/z6BKEqpdH_DuzQpj6TtxZg

色々細かいことやって英語に近づけたので少し複雑なものになってしまったような気もする。

**デフォルトの名無しさん** · 2018/04/07(土) 14:36:40.48

ttp://next.rikunabi.com/rnc/img/1820/o/0015904477.jpg
犯人は誰だ？

**577** · 2018/04/07(土) 23:23:36.77

>>577
訂正
https://ideone.com/yYE1Jb

[-1, 0, 1, 2] の出力が
0
└─ 1
│ └─ 2
│ │ └─ 3
となって間違った枝が伸びてました。

文字列を積みながら再帰は気持ち悪いから
フラグのリストとかの方がいいかも。

**611** · 2018/04/08(日) 12:22:11.48

>>611
N桁(4, 5桁)の数字の場合、どうプログラミングする？
ややこしい

誰か、N桁で一般化して、Ruby で書いて

**デフォルトの名無しさん** · 2018/04/08(日) 12:34:02.96

算数で止まってるから証明できないけどモンテカルロなら書けるよ。

**デフォルトの名無しさん** · 2018/04/08(日) 12:49:35.30

Xがi個YがN - i個あるときの考えらえれる数字の数は
(10_C_2 - 9) N_C_i
だから
((10_C_2 - 9)/2) Σ{i in 1..N - 2}N_C_i
=(81/2)*(2^N - 2)
=81*(2^(N - 1) - 1)

81*(2^(N - 1) - 1)を計算すればいいだけなんだから算数でしょ

**デフォルトの名無しさん** · 2018/04/08(日) 13:10:11.62

https://ideone.com/YyAuGf
C++。というわけで書いた。
算数だとこんな感じになる。

**デフォルトの名無しさん** · 2018/04/08(日) 13:11:04.05

桁分割するときに%を&って書いてハマってた。＞＜；

**デフォルトの名無しさん** · 2018/04/08(日) 13:47:39.07

とりあえず、書いたら止まるのやめてよ。

**611** · 2018/04/08(日) 14:23:00.89

>>611
N桁(例えば4桁)で、aaaa ～ bbbb までのすべての順列を作るのは、
どうプログラミングする？

4桁と限定せず、N桁で一般化して、誰かRuby で書いて

aaaa, aaab, aaba, aabb, abaa,

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

無視されたのやめます。

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

Rubyで宿題でも出てるのけ？

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

>>625の態度が気に入らないので、日本語で書く。
桁数の文字をA分とB分をプッシュバックしてソートして順列回す。
文字が2種なのでオーダー爆発はあまり起きないと思う。

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

というか、競プロこんな解き方してREDになっても全く意味がない。
最上級に上り詰めてかってに市ね。

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

>>625 Ruby
[*0..9].combination(2).flat_map{|(a,b)|(1..n-1).map{|i|
([a]*i+[b]*(n-i)).permutation.uniq.reject{|e|e.first.zero?}.map{|e|e.join.to_i}}
}.flatten

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

コンビネーションいいなー。頭悪いから実装できないし毎回実装したくない。
はぁ・・・。

**611** · 2018/04/08(日) 15:15:37.38

Ruby に、product という順列を作るメソッドがある

[1,2].product([3,4],[5,6])
# => [[1,3,5],[1,3,6],[1,4,5],[1,4,6],[2,3,5],[2,3,6],[2,4,5],[2,4,6]]

これで考えてみる

**611** · 2018/04/08(日) 15:18:19.59

可読性が低い、C++ を読んで解析するのが、面倒

スマソ

**デフォルトの名無しさん** · 2018/04/08(日) 15:32:27.60

>>625 Ruby 2.5.0

def f(n)
return [] if n == 1
(1..9).flat_map{|i|
[10*i] + ([*1..9] - [i]).flat_map{|j| (10**n - 10)/9*i + j}
} + f(n - 1).flat_map{|e| e.digits.uniq.map{|i| 10*e + i}}
end

**デフォルトの名無しさん** · 2018/04/08(日) 15:39:18.26

ruby限定で、
しかもアルゴリズムを競うわけでもない単なるコード例ならrubyスレでやってくれと強く感じる

**デフォルトの名無しさん** · 2018/04/08(日) 15:48:31.89

訂正
def f(n)
return [] if n == 1
(1..9).flat_map{|i|
([*0..9] - [i]).flat_map{|j| (10**n - 10)/9*i + j}
} + f(n - 1).flat_map{|e| e.digits.uniq.map{|i| 10*e + i}}
end

**611** · 2018/04/08(日) 15:54:06.97

プログラミングは、このスレのためのものだから、
他の言語でも何でも、自由にプログラミングして下さい

言語にこだわらず、やって下さい。
その言語をやってる人が見るはず

**デフォルトの名無しさん** · 2018/04/08(日) 15:59:40.54

言語を指定しないでください
宿題等の依頼は遠慮願います

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

だな

**611** · 2018/04/08(日) 16:17:49.11

宿題じゃない。プログラミングのお題

他の言語でも何でも、自由にプログラミングして下さい

**デフォルトの名無しさん** · 2018/04/08(日) 17:05:29.95

宿題、学習「等」が目的であればここではなく然るべきところで

◆QZaw55cn4c · 2018/04/08(日) 17:47:47.72

>>641
その宿題とやらが問題として面白いものであれば、それならそれを解くことは個人的にはありうることでしょうね

**デフォルトの名無しさん** · 2018/04/08(日) 18:45:27.43

競争性の放棄とコードも書かないのに他人を煽る。ギルティですね。

**デフォルトの名無しさん** · 2018/04/08(日) 18:54:09.19

俺は書いたけど、無視されるわ、あげく必要ないっていわれましたからね。
70行も読めないなんてたかが知れてる。

**デフォルトの名無しさん** · 2018/04/08(日) 19:12:49.68

こんな依頼者相手にコードを提供するのがおかしい

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

最初はフラットなので、見分けるの大変なんですよ。

**デフォルトの名無しさん** · 2018/04/08(日) 19:16:13.27

>>645のことは考えてないですよ？611とやらに怒ってます。
やったこと無駄でした。ヒント与えなければよかった。

**デフォルトの名無しさん** · 2018/04/08(日) 20:46:20.65

お題
ビンゴゲームでリーチ数が最大の盤面をすべて列挙せよ

**デフォルトの名無しさん** · 2018/04/08(日) 21:26:48.16

そうですか。頑張ってください。

**デフォルトの名無しさん** · 2018/04/08(日) 21:53:53.31

>>648 Ruby ただしπ/2回転させた解は省略
出力はi行目に穴の空いていないマスの列数(0～4)を表示

[*1..4].combination(2).flat_map{|i,j|
[*1..4].combination(2).map{|k,l|
a = [4, 0, 1, 3, 2]
a[i], a[j] = a[j], a[i]
a[k], a[l] = a[l], a[k]
next if (1..4).any?{|i| a[i] == 4 - i} || a[2] + a[3] > 4 || a[1] + a[4] > 4
a
}
}.uniq.compact
#=> [[4, 0, 1, 3, 2], [4, 2, 0, 3, 1], [4, 1, 3, 0, 2], [4, 1, 0, 2, 3]]

**デフォルトの名無しさん** · 2018/04/08(日) 22:15:08.50

>>641
俺も>>642と同意見かな
出題者は勝手に出すだけ
回答者は勝手に回答するだけ
出題者の意図も回答者の意図もどっちも問わない

ただ、頼まれもしないのに延々糞コード書いて晒すやつは脳の障害とは思う

**デフォルトの名無しさん** · 2018/04/08(日) 22:20:36.69

回答者は回答するだけってのはまさにその通り
なんかc++の変なコードあげる人いるじゃん
変なコードは別に見ないからいいんだけど、その上　構ってちゃんなのがちょっとあれなのよね

**デフォルトの名無しさん** · 2018/04/08(日) 22:22:09.19

あ、おれが糞コードつってんのもそいつのことねｗ
といかこのスレで糞コードつったらそれしかないけど
まともにC++やってきた人間からしたら血圧上がるような糞コードなｗ

**デフォルトの名無しさん** · 2018/04/08(日) 23:18:12.27

c++ で書いてるヤツなんて俺以外いないよ…と思ったがNGID解除してみるといた

ruby のコードは読みやすいからruby使った回答は歓迎なんだけど、
回答もしたいからあんまり限定して欲しくはないな
(rubyで回答するほど好きではないから)

**デフォルトの名無しさん** · 2018/04/08(日) 23:31:45.71

ダラダラ長ったらしく書かれたC++コードも、ぱっと見意味の掴みにくいワンライナーコードも、同じくらいクソだと思うんですが・・・

**デフォルトの名無しさん** · 2018/04/08(日) 23:38:49.63

J言語好きとして読みにくいからクソというのには党派的に反対する
読みにくさを愛でる人もいる

でもさっきはうっかりしていた
ruby 限定とか C++ 禁止とかあってもいいと思います

**デフォルトの名無しさん** · 2018/04/08(日) 23:53:13.66

限定する目的がわからん
特定の言語だと簡単すぎるとか？

**デフォルトの名無しさん** · 2018/04/08(日) 23:58:04.55

ID:wX43tNlZ みたいなのをシャットアウトする目的なら限定してもいいだろう