[過去ﾛｸﾞ] プログラミングのお題スレ Part15 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
1(5): 2019/07/28(日)19:39 ID:832c/ukY(1) AAS
プログラミングのお題スレです。
【出題と回答例】
1 名前：デフォルトの名無しさん
お題：お題本文
2 名前：デフォルトの名無しさん
>>1 使用言語
回答本文
結果がある場合はそれも
【ソースコードが長くなったら】 (オンラインでコードを実行できる)
外部ﾘﾝｸ:ideone.com
省11
2(1): 2019/07/28(日)21:03 ID:KnbJf+WN(1) AAS
宿題、チューリングの泥沼、条件不足等回避のため
出題者は自分で回答可能か確認してからお題を出すこと
3(3): 2019/07/28(日)21:08 ID:OTB4c+BP(1) AAS
※QZは書き込み禁止
4(4): 2019/07/28(日)21:32 ID:MO+jaDzY(1) AAS
お題
とあるゲームでは、10面ダイスによってスコアを次のように定める
1. x個のダイスを全部振る
2. 振ったダイスのうち、最大の出目をスコアとする
3. 出目がc以上のダイスが存在するなら、その全てのダイスを使って同じ試行を行い、スコアに加算する
例えばc=7の時、2個のダイスの結果が(10,7)→(8,3)→(2)ならスコアは10+8+2=20となる
最初に振るダイスの個数Nとc(≧2)が分かっている時、スコアの期待値を求めよ
5(3): 2019/07/29(月)11:14 ID:3vvajVS9(1/4) AAS
>>4
外部ﾘﾝｸ:ideone.com
C++,モンテカルロしてみた。
値がちょっと怖い値になったので、バグ報告歓迎。
6(3): 2019/07/29(月)11:34 ID:3vvajVS9(2/4) AAS
外部ﾘﾝｸ:ideone.com
>>5が不安だったので、出力変えてみたけど、最大値で500近くになるんだな。
何かビビった。
7: 2019/07/29(月)11:49 ID:3vvajVS9(3/4) AAS
サイコロの偏りをもっと明確にしたいなら、乱数エンジンを複数持つか、ランダムデバイスそのもので実行する。
ランダムデバイスは遅いことになってるのでMTに投げるんだけど。
8: 2019/07/29(月)11:55 ID:3vvajVS9(4/4) AAS
一様乱数のサイコロは、現実では職人が作ったサイコロですなあ。
9(1): 蟻人間 ◆T6xkBnTXz7B0 2019/07/30(火)00:00 ID:NJpsA13e(1) AAS
お題: 炭素原子C, 酸素原子O, 水素原子Hという三種類の原子をそれぞれいくつか組み合わせて、非イオンの分子を作る。C, O, Hの結合の手の本数は、それぞれ四本、二本、一本である。
ゼロ以上の整数p,q,rが与えられ、Cがp個、Oがq個、Hがr個あると仮定するとき、原子を余らせず、また、結合の手を余らせずに一つの連結された分子を作りたい。
C, O, Hをこの順でp+q+r個、並べたリストLについて、m番目の原子L[m]とn番目の原子L[n]の結合の個数をA[m,n]と書くとき、A[m,n]によってなる行列Aを一つ求めなさい。不可能な場合は「None.」と表示しなさい。
例)
(p, q, r)=(0, 2, 0) → A=((0, 2), (2, 0)).
(p, q, r)=(1, 2, 0) → A=((0, 2, 2), (2, 0, 0), (2, 0, 0)).
(p, q, r)=(0, 1, 2) → A=((0, 1, 1), (1, 0, 0), (1, 0, 0)).
10: 2019/07/30(火)03:21 ID:NEOgIkE0(1) AAS
問題がわかりづらい。
11: 2019/07/30(火)06:42 ID:x+cPGemS(1) AAS
出題者は自分で解けることを確認してからお題にしてるのかね？
自明でない不可能な場合の例とか出してこないし怪しいもんだ
12: 2019/07/30(火)10:22 ID:xUDKdiN7(1) AAS
慣れない言語の勉強に使うのに丁度いいね
出題者が答えも貼っといてくれるとありがたい(´・ω・｀)
13(1): 2019/07/30(火)16:13 ID:YUdTZrG6(1) AAS
良いプログラムは良い数式がないと作れないのでこのスレは過疎化する。
14(2): 2019/07/30(火)16:39 ID:qFxGgTrm(1) AAS
久々にこの板きたけど、宿題スレってなくなったんだね
15: 蟻人間 ◆T6xkBnTXz7B0 2019/07/30(火)16:51 ID:gia580F5(1) AAS
解空間は、サイズ(p+q+r)×(p+q+r)の整数行列の集合になる。
結合の手の個数は有限だから、解行列の成分は上限がある。
よって行列の各成分についてしらみつぶし探索が可能。
自分自身とは結合しないので、A[k,k]＝0（つまり、行列の対角成分はゼロ）。
ある行の和は、行番号に対応する原子の結合の手の個数になる。
ある列の和は、列番号に対応する原子の結合の手の個数になる。
連結条件のチェックが必要。
16: 2019/07/30(火)17:04 ID:RYwsY7rK(1) AAS
お題: xのn次式を簡潔に表現できる関数を書け(rationalじゃなくてもOK)
a+bx+cx^2+dx^3+...
を
f x a b c d ...
のように表現する
(可変引数を処理する)
例えば
(defun f (x &rest as) (reduce #'+ (loop for a in as for i from 0 collect (* a (expt x i)))))
(loop for x from -5 to 5 do (print (f x 0 -1 0 1/3)))
-110/3
省10
17: 2019/07/30(火)17:10 ID:CNgKzCU7(1) AAS
>>14
基地外粘着uyによって潰された
18: 2019/07/30(火)19:44 ID:RfvVlMN8(1) AAS
>>13
良い数式が立てられないのでモンテカルロに酔っているオレ・・・。
19: ◆QZaw55cn4c 2019/07/30(火)20:12 ID:3dZzemsO(1/2) AAS
>>9
複雑すぎます
非環状アルカン（CnH2n+2）の構造異性体を列挙せよ、という簡略化したお題を提案します
20(1): ◆QZaw55cn4c 2019/07/30(火)20:13 ID:3dZzemsO(2/2) AAS
>>14
存在することはするのですが、誰も近寄らなくなりました、キチガイが一匹しつこく居候しているので
21(1): 2019/07/30(火)21:52 ID:WkS1m6T1(1) AAS
>>20
つ 鏡
22: 2019/07/30(火)23:15 ID:1jiiGCYP(1) AAS
>>21
草生える
23(5): 2019/07/30(火)23:24 ID:2GPXM96o(1) AAS
お題: 1 + 1 を計算させて 3 と出力させなさい
24: 2019/07/30(火)23:34 ID:77FpHlNC(1) AAS
>>23 Perl5
$a = 1 + 1;
print ~$a%10;
実行結果
$ perl 15_23.pl
3
※64bit整数版で実行してね
25: 2019/07/31(水)00:12 ID:w173sz60(1/6) AAS
>>23
perl5
print ("1", "+", "1")
1+1
print $_ =()= ("1", "+", "1")
3
26: 2019/07/31(水)04:39 ID:BcGPMjSP(1/2) AAS
>>23
perl
1+1;
print "3\n"
27: 2019/07/31(水)05:06 ID:B/3ESziM(1) AAS
>>23 ruby
class Fixnum
alias :add :+
def +(val)
if self == 1 && val == 1
puts 3
2
else
self.add(val)
end
省6
28: 2019/07/31(水)09:55 ID:w173sz60(2/6) AAS
>>23
perl5
print qw(1 + 1)
1+1
print eval q(1 + 1)
2
print $_ =()= qw(1 + 1)
3
29(1): 2019/07/31(水)14:18 ID:6BPSvdm1(1/2) AAS
お題、東大入試
a^2 - a が、10,000 で割り切れるような奇数a を求めよ。
ただし、3 <= a <= 9,999
ヒント
a^2 - a = a(a - 1) で、aは奇数、a-1 は偶数。
10,000 = 10^4 = 2^4 * 5^4
答え、625
東京大【整数マスターに俺はなる！#31】
動画ﾘﾝｸ[YouTube]
30: 2019/07/31(水)14:46 ID:w173sz60(3/6) AAS
>>29
common lisp
(loop for n from 3 to 10000 when (and (equal (mod n 2) 1) (equal 0 (mod (- (expt n 2) n) 10000))) collect n)
(625)
31: 2019/07/31(水)15:57 ID:oxQy3lj+(1) AAS
・女体限定で、3次元の写真から3Dポリゴンモデルデータを自動作成
・そのデータから胴体部の着衣部分を、裸モデルに修正
・水着でついた脇乳の段差も修正
・元写真の地肌色を使い、女体テンプレのテクスチャを作成
・完成したモデルから胴体部だけ精密レンダリング
・元の写真に貼り付けて完成
32(4): 2019/07/31(水)17:25 ID:6BPSvdm1(2/2) AAS
プログラミングのお題スレ Part14
2chｽﾚ:tech
漏れは、前スレの981 ではないですが、この問題の応用で、
括弧のネストの深さの最大値を求めよ
括弧の対応が取れていない場合は、-1 を出力せよ。
2種類の括弧が順序通りに、閉じていないものも、-1 です
ヒント : stack を使うと良いかも
省5
33: 2019/07/31(水)20:22 ID:AESVjm16(1) AAS
自分でスタックするか再起にして自動で積ませるか、といったところか。
34: 2019/07/31(水)21:44 ID:CaRsLsI2(1) AAS
>>32 Java
外部ﾘﾝｸ:ideone.com
35: 2019/07/31(水)22:14 ID:w173sz60(4/6) AAS
>>32
perl5
外部ﾘﾝｸ:ideone.com
36: 2019/07/31(水)22:19 ID:w173sz60(5/6) AAS
ideone バグっているのか？
STDIN の1行目空だと
ちゃんと標準入力としてプログラムに伝わっているけど
リンク先の stdin 枠の中だと省略されているように見える
stdout の 0 はその空を受け取ったもの
37(1): 2019/07/31(水)22:42 ID:w173sz60(6/6) AAS
twitterやっていたようなので
そこにバグフィックス要請とテストケース画像貼っておいた
たぶんそのうち直るでしょう
38(1): 2019/07/31(水)23:32 ID:M5c7ILzZ(1) AAS
問題
n桁のヒットアンドブローのソルバーを作る。
39: 2019/07/31(水)23:34 ID:BcGPMjSP(2/2) AAS
君の言っていることの意味がよくわからない。
40: 2019/08/01(木)00:15 ID:i4UPQl8k(1) AAS
>>37
GJ
41: 2019/08/01(木)15:40 ID:eeSbVWum(1) AAS
>>38
大分前に作ったけど、コード紛失した。
アルゴリズムも忘れた。
ガーン。
42(1): 2019/08/01(木)15:47 ID:/tDwAGeP(1) AAS
年収n円の人が生活費と交遊費2種類だけで1年間の収入のすべてを消費するとして
税率がt1からt2に上がった時
税抜き価格ベースでの生活費が変動しないものと考えると
税抜き価格ベースでの交遊費の減少額はいくらになるか？
（端数は切り上げとする）
ex)
年収n=5,000,000
税率t1=8%
税率t2=10%
税抜き価格ベースでの生活費a
省5
43: 2019/08/01(木)16:10 ID:WaJjQk0q(1/2) AAS
>>42
wolfram
Simplify[ x-y, {5000000 == (a+x)*1.08,5000000 == (a+y)*1.1} ]
84175.1
44: 2019/08/01(木)16:16 ID:WaJjQk0q(2/2) AAS
切り上げか
Ceiling[ Simplify[ x-y, {5000000 ==(a+x)*1.08 == (a+y)*1.1} ] ]
84176
45(1): 2019/08/01(木)16:17 ID:9Ke7npq5(1/2) AAS
何も考えずにceiling(n/1.08-n/1.1)でいいんとちゃうけ？
46: 2019/08/01(木)19:07 ID:CMxA9z9p(1) AAS
>>32 Ruby
f = -> str {s = +str.delete(?\ ); (0..).each{|i| s.gsub!(/{}|\(\)/, '') || (break s.size.zero? ? i : -1)}}
['', '( )', '{ ( { ( ) } ( ) ) } ( )', '} {', '( { ) }'].each{|e| puts '%p => %d' % [e, f[e]]}
# =>
"" => 0
"( )" => 1
"{ ( { ( ) } ( ) ) } ( )" => 4
"} {" => -1
"( { ) }" => -1
47: 2019/08/01(木)21:02 ID:9Ke7npq5(2/2) AAS
>>45
ちょっと考えたらceiling(n/59.4)だったｗ
48(8): 2019/08/02(金)20:14 ID:fXsI78QL(1) AAS
お題: 数字が与えられるので、その数字を元の数より大きくなるように再構築せよ
大きくできなければ元の数字をそのまま出力せよ
例:
in < 123
out > 231, 213, 321, 312
in < 921
out > 921
49(1): 2019/08/02(金)20:54 ID:Awh9QXRy(1) AAS
123を入力したときに132が出力されないのはなぜ?
50: 2019/08/02(金)21:09 ID:ec2C26mu(1) AAS
パーミュテーション作って終わりじゃあないのコレ
51: 2019/08/02(金)21:52 ID:TUgs2HTj(1) AAS
>>49
ミスだよぉ！
52: 2019/08/02(金)22:45 ID:T1FFAKuC(1) AAS
そんなんばっかだなお前
53: 2019/08/03(土)01:06 ID:0ts56itm(1/2) AAS
>>48
外部ﾘﾝｸ:ideone.com
C++。ご期待通り（？）にパーミテーション回してみたよ。
重いお。
上下前次1-新書関写板覧索設栞歴
あと 949 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s