[過去ﾛｸﾞ] プログラミングのお題スレ Part17 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
131(4): 蟻人間 ◆T6xkBnTXz7B0 2020/04/14(火)12:53 ID:QRiFiZHs(1) AAS
お題: 整数の閉区間がいくつか与えられる。
それらの和集合を求め、それをいくつかの閉区間で出力せよ。
出力の閉区間の個数はなるべく少なくすること。
(例)
[1, 5], [2, 6], [-1, 10] ==> [-1, 10].
[2, 3], [3, 4], [7, 10] ==> [2, 4], [7, 10].
132(1): 2020/04/14(火)14:56 ID:vknfd45S(1) AAS
>>129
三項演算子ではない(Kotlinには三項演算子はない)。?: はエルビス演算子で、左側の式が null だったら右側の値を使うというやつ。nullでなければそのまま左側の値を使う。
で、その部分は先頭のレス番号のキーがまだ作られてなかったら0で初期化する部分だ。
m[n] = m[n] ?: 0
とも書けるが、これは何か無駄な感じがする。nullでなければ同じ値の代入になるので。だからifで必要な時だけの代入(初期化)にした。
133: 2020/04/14(火)15:14 ID:U0kTSrBw(1) AAS
>>131 Perl5
sub f {
my @s;
while (defined (my $e = shift)) { push @s, $e }
@_ ? (@s ? (\@s, f(@_)) : f(@_)) : \@s;
}
sub g { map{"[$$_[0],$$_[-1]]"} @_ }
for ([[1, 5], [2, 6], [-1, 10]],
[[2, 3], [3, 4], [7, 10]]) {
%h = map{$_ => $_} map{$$_[0]..$$_[1]} @$_;
省11
134: 2020/04/14(火)15:35 ID:cZOfM+S5(2/2) AAS
>>132
なるほど。ありがとうございます。
135(6): 2020/04/14(火)17:17 ID:h96nPay3(1) AAS
数式を標準入力から与えられる。
計算結果を出力しなさい。
条件
・数式の長さが1000を超える場合や、不正な数式についてはErrorと出力すること
・整数を出力しなさい
・小数点が出る場合は切り捨てた値を出力すること
・eval禁止
・数式に利用できる文字 0123456789+-*/()
・数式に半角スペースは含まれない
136: 2020/04/14(火)17:45 ID:SdOMVfQl(1) AAS
>>135 数式のサンプルよろ
137(1): 2020/04/14(火)17:50 ID:OuRgqSbO(1) AAS
100/2(3+4)
はいくつですか？
138: 2020/04/14(火)17:56 ID:7oi1O/kb(1) AAS
>>137
*が省かれているからErrorとする
あるいは100/2*(2+3)とみなして250
じゃまいか
139(2): 蟻人間 ◆T6xkBnTXz7B0 2020/04/14(火)19:35 ID:Ozse1OSh(1) AAS
お題: CD/DVDドライブのトレイを開きなさい。
140: 2020/04/14(火)19:48 ID:rsqvGSlE(1/2) AAS
>>135 Ruby
eval gets rescue $><<:Error
141: 2020/04/14(火)19:50 ID:rsqvGSlE(2/2) AAS
typo
p eval$_ rescue$><<:Error while gets
142(1): 2020/04/14(火)20:13 ID:AV9/Nsy0(1) AAS
>>139
言語:日本語
実行:日本人
CD/DVDドライブのトレイを開きなさい。
143: ◆QZaw55cn4c 2020/04/14(火)20:35 ID:42R+WK0w(1) AAS
>>142
言語：日本語
実行：日本語を理解する人
の方が正確ですね
144: 2020/04/14(火)22:24 ID:8w/NVh3l(1) AAS
>>139 Python
import ctypes
ctypes.windll.WINMM.mciSendStringW(u"set cdaudio door open", None, 0, None)
145(1): 2020/04/15(水)01:04 ID:RHvlA1sV(1) AAS
三項演算子ないとかゴミだな
146: 2020/04/15(水)12:23 ID:229B67vy(1) AAS
>>131 js
let input = [[2, 3], [3, 4], [7, 10]];
let result = input.reduce((merged, range) => {
let under = range.map(n =>
merged.filter(mrange => mrange[0] <= n && n <= mrange[1])[0]||[]);
let extended = [under[0][0] || range[0], under[1][1] || range[1]];
let bored = merged.filter(mrange => !(extended[0] <= mrange[0] && mrange[1] <= extended[1]));
省3
147: 2020/04/15(水)12:57 ID:qoEmvMwd(1) AAS
>>135 F#
外部ﾘﾝｸ:ideone.com
148(1): 2020/04/15(水)15:02 ID:3oL83xUj(1) AAS
>>145 Perl5、再帰降下parser generator使わせてもらいました
sub evalop {
my (@list) = @{$_[0]};
my $val = shift(@list)->();
while (@list) {
my ($op, $arg2) = splice @list, 0, 2;
$op->($val,$arg2->());
} $val }
use Parse::RecDescent;
$parse = new Parse::RecDescent(<<'EOG');
省19
149: 2020/04/15(水)15:04 ID:IXOt/09v(1) AAS
AA省
150(2): 蟻人間 ◆T6xkBnTXz7B0 2020/04/15(水)21:28 ID:mz+a7+dL(1/2) AAS
お題: 二次元空間にナゾの物体Pが2個ある。2個のPは初期状態に(-3, -2), (3, 1)[単位:m]にあるものと仮定する。
2個のPは離れすぎると距離r[m]に比例する引力加速度2*r[m/s^2]を生じ、近づきすぎると距離r[m]に反比例する反発
加速度k/r[m/s^2]が発生する。rが収束するとき(一秒あたりの距離の変化が0.01[m]以下)の距離をRと表す。
kとRの関係を調べたい。kを1.0から1.5まで0.1刻みで動かし、それぞれで数値積分によって2つのPの収束位置を近似計算し、Rを求め、(k, R)の組を出力せよ。
151: 2020/04/15(水)21:56 ID://wWJwAN(1) AAS
はい、次の方どうぞ
152: 蟻人間 ◆T6xkBnTXz7B0 2020/04/15(水)22:30 ID:mz+a7+dL(2/2) AAS
お題: 次のようなプログラムを作れ。プログラムを起動したとき、ファイル「times.txt」に現在の日時を秒単位で記録した後、
前回の起動日時との差を求め、時間差の秒数を表示せよ。
ただし、うるう秒を考慮すること。
153(1): 2020/04/15(水)23:31 ID:/1JmN5U2(1) AAS
>>150
慣性が働いて抵抗が無いなら収束などしない
永遠に振動し続ける
初速度も書いて無いし
離れすぎ、近づきすぎの条件も書いてない
154: 2020/04/16(木)00:11 ID:qhHxDSDQ(1) AAS
>>131 c
外部ﾘﾝｸ:ideone.com
155: 2020/04/16(木)00:30 ID:qxGCpnz3(1) AAS
乙。
156: 2020/04/16(木)01:19 ID:6omvFBXS(1) AAS
>>153
アスペルガー症候群は黙ってた方がいい
157: 2020/04/16(木)01:25 ID:Yc0fbgtG(1/2) AAS
初速度や離れすぎ、近づきすぎの条件が書いてないのは事実で回答しようも無いんだし
そういうのはやめたらどうかと思うんだが
158(1): 2020/04/16(木)01:27 ID:iTxUXfYH(1/3) AAS
そういう柔軟性のなさがアスペルガー症候群くさいんだよなぁ…
まあ本当は出題の意図は分かってて敢えてイチャモン付けてるんだろうけど
159: 2020/04/16(木)01:28 ID:Yc0fbgtG(2/2) AAS
>>158
じゃあ、お前さんがお題の回答プログラム
どうぞよろしく
160(1): 2020/04/16(木)01:37 ID:iTxUXfYH(2/3) AAS
俺なら初期位置も計算の打ち止め条件も完全に無視してポテンシャルの極小値を求めるプログラムを書いて提示するかな
出題者が期待してるのはそういうものだろうし些細な出題の問題点をいちいち指摘してボツにさせる気なんか起きないな
161(1): 2020/04/16(木)01:40 ID:s4YIDkZq(1/10) AAS
>>160
そのプログラムを投稿すればいいだけの話
162: 2020/04/16(木)01:43 ID:iTxUXfYH(3/3) AAS
じゃあ俺はアスペルガー症候群では？って言っただけの話
163: 2020/04/16(木)01:47 ID:s4YIDkZq(2/10) AAS
>>161
自分では回答も提示せず人様をアスペ呼ばわりして
でも周りはアスペではなかったどうするの
164: 2020/04/16(木)01:49 ID:s4YIDkZq(3/10) AAS
無名掲示板とはいえ、人様に言う言葉にはもう少し気を使え
165: 2020/04/16(木)01:50 ID:XsJA9brB(1) AAS
せっかく考えて出題してくれてるのに頭ごなしにボツにされようとしてるのを見て許せなかったんだよ
166: 2020/04/16(木)01:52 ID:s4YIDkZq(4/10) AAS
それとこれとは別問題
お前の気分しだいで人に失礼なことをするのはよせ
167: 2020/04/16(木)01:54 ID:0k+XXy1f(1) AAS
君、ネット向いてないよ
168: 2020/04/16(木)01:57 ID:s4YIDkZq(5/10) AAS
飲むとスルー力が鈍るのは認める。
169: 2020/04/16(木)01:58 ID:XeDXz4LY(1) AAS
まるでシラフならスルースキル高いかのような言い草で寒っ
170: 2020/04/16(木)02:00 ID:s4YIDkZq(6/10) AAS
今日はちょっと虫の居所が悪くてな、すまんな。
ちな上の方のレスのうち、どれが俺の回答か分かるかな
171: 2020/04/16(木)02:05 ID:oMF0NE5s(1) AAS
急に語り出して劇寒
172: 2020/04/16(木)02:06 ID:s4YIDkZq(7/10) AAS
あげあしとりで終わりかよ
つまんねー
173: 2020/04/16(木)02:08 ID:s4YIDkZq(8/10) AAS
>>150
大体お前が悪いんだよ
もう少し考えて出題できませんかね
174: 2020/04/16(木)02:21 ID:kjXrQDZb(1) AAS
今までも同じようにあまりよろしくないお題を出してそのたびにスルーか同じように指摘され続けてるんだからこんなもんでは？
個人的には全く解いてみたいと思えないお題ばかり
お題作るのは難しいなぁとつくづく感じる
175: 2020/04/16(木)02:24 ID:7PlP0fH8(1) AAS
ここはすききらいをしゃべるすれではありません
176: 2020/04/16(木)02:24 ID:GrYlaJ67(1) AAS
お題作るのは難しいよ
ちょうどいい難易度が難しい
177: 2020/04/16(木)02:25 ID:s4YIDkZq(9/10) AAS
そりゃ気持ちはわかっけどさー
解いてみたいと思えないお題ばかり、ってことはさすがに無い。
お題によって回答したい、したくないはあるぞ、
時間が許せば、それには回答してきた
178(1): 2020/04/16(木)02:27 ID:/gsmKway(1) AAS
おまえ名言()とか好きそうだな
179: 2020/04/16(木)02:27 ID:s4YIDkZq(10/10) AAS
>>178
何か心に響いたか？
180: 2020/04/16(木)04:43 ID:G88s3oE4(1) AAS
糞コテのお題をスルーできてない時点でどっちもゴミ
181(4): 2020/04/16(木)05:18 ID:FKJpjkAo(1) AAS
お題、ＪＡＶＡ
ウインドウで、ボールを動かして、振り子にしろ。
182(1): 2020/04/16(木)15:33 ID:CZ2awm/7(1) AAS
>>181 js（Javaじゃなくてすまん）
外部ﾘﾝｸ:codepen.io
183: 2020/04/16(木)18:34 ID:Ao1pcPxo(1) AAS
眠くなってきた
184: 2020/04/16(木)19:17 ID:A3RNLqkM(1/2) AAS
草
185: 2020/04/16(木)19:18 ID:D2Oboa0/(1) AAS
>>182
しゅごい・・・
186(5): 2020/04/16(木)21:50 ID:yL7j0Eir(1) AAS
お題：
2次元平面上の点が5つ与えられる。
これらを順番に線分で結んだとき、星形が構成できるかどうか判定せよ
0 0
1 2
2 0
0 1
2 1
=> true
0 0
省17
187: 2020/04/16(木)22:15 ID:A3RNLqkM(2/2) AAS
線型代数の問題だな
188(3): 2020/04/16(木)22:30 ID:+l2higCM(1) AAS
お題
急減少列かどうかを判定せよ。
ただし急減少列とは、（末尾以外の）どの要素もそれ以降の要素の総和より大きい列のこと。
32,16,8,4,2,1 -> true
32,16,8,4,2,1,1 -> false
610,377,144,55,21,8,3,1 -> true
987,610,233,89,34,13,5,2,1 -> false
189: 2020/04/16(木)22:37 ID:dbvXh7HJ(1) AAS
逆順に並べた方が良いなあ
急増加列？
190: 2020/04/16(木)22:57 ID:tWuPngtw(1) AAS
>>188 Perl5
sub f {
my $i = shift;
my $r = f(@_) if @_;
$i <= $r and die;
$i + $r;
}
for ([32,16,8,4,2,1], [32,16,8,4,2,1,1], [610,377,144,55,21,8,3,1], [987,610,233,89,34,13,5,2,1]) {
eval { f @$_ };
$s = "$@" ? 'false' : 'true';
省8
191: 2020/04/17(金)00:26 ID:aBy1G2y60(1) AAS
>>186 js
線分交差判定アルゴリズムはググった
外部ﾘﾝｸ:ideone.com
192(1): 2020/04/17(金)02:37 ID:GLu8MX8J(1/2) AAS
>>188
Perl5
外部ﾘﾝｸ:paiza.io
単に逆順にして加算しながら比較しているだけの誰にでも出来る簡単なお仕事。
193(1): 2020/04/17(金)09:07 ID:uUpf2Y3l(1/4) AAS
>>186
外部ﾘﾝｸ:ideone.com
194: 2020/04/17(金)09:10 ID:uUpf2Y3l(2/4) AAS
直線と点の位置関係判別を6回に減らした
195(1): 2020/04/17(金)16:03 ID:FcD+/8tF(1) AAS
AA省
196(1): 2020/04/17(金)17:08 ID:TdOLExdu(1) AAS
>>195 間違えてた
× $ans = ($ang > 3.14 and 3.15 < $ang) ? 'true' : 'false';
○ $ans = (3.14 < $ang and $ang < 3.15) ? 'true' : 'false';
しかし、実行結果は
~ $ perl 17_186_istar.pl
true
true
false
true
二番目がtrueになってしまう…orz
197: 2020/04/17(金)17:12 ID:tQG0pn8t(1) AAS
>>196
内角の和が180°かで判定すると二番目のデータのような
星のひしゃげたような形も星型扱いされてしまう
交線計算が要るんじゃないかな
198: 2020/04/17(金)18:56 ID:uUpf2Y3l(3/4) AAS
>>193
条件が1個足りなかった
最低7回ですかね
199: 2020/04/17(金)19:39 ID:uUpf2Y3l(4/4) AAS
外部ﾘﾝｸ:ideone.com
200: 2020/04/17(金)23:20 ID:GLu8MX8J(2/2) AAS
>>188
Kotlin
外部ﾘﾝｸ:paiza.io
やってることは >>192 とほぼ同じ。reduce() という丁度良いやつがあったのでそれを使った。
201: 2020/04/18(土)04:51 ID:hOyj3UHi(1) AAS
お題: クリックすると画面が上下左右に揺れまくるボタンを作りなさい
202: 2020/04/18(土)06:43 ID:YnXQesFn(1) AAS
「五角形P0-P1-P2-P3-P4が星形である」と「五角形P0-P2-P4-P1-P3が凸五角形である」は同値でいいのかな
203(1): 2020/04/18(土)06:48 ID:N4WXNODD(1/7) AAS
自明だね
204: 2020/04/18(土)14:12 ID:IwpZ9OtG(1) AAS
atan2とか要りそう
知らんけど
205: 2020/04/18(土)14:40 ID:rV7GPkSs(1) AAS
内積とかでできそう
知らんけど
206(1): 2020/04/18(土)16:18 ID:/6mIZfhm(1) AAS
>>203 同値ではない
>>186 の三番目のデータは凸五角形だが、順番に線分で結んでも星形にならない
207(1): 2020/04/18(土)16:34 ID:N4WXNODD(2/7) AAS
>>206
3番目のデータに関して
「五角形P0-P1-P2-P3-P4が星形である」 => false
「五角形P0-P2-P4-P1-P3が凸五角形である」 => false
反例にはなっていないはずだが？
208: 2020/04/18(土)16:47 ID:30AxPVCB(1/3) AAS
「五角形P0-P1-P2-P3-P4が凸五角形である」 => true
「五角形P0-P2-P4-P1-P3が星形である」 => true
多分言いたいのはこっちでしょ
いずれにしろ反例になってないけど
209: 2020/04/18(土)16:59 ID:oyi4MQQP(1) AAS
結局コードは同じになりそう
知らんけど
210: 2020/04/18(土)17:09 ID:30AxPVCB(2/3) AAS
そりゃ同値なんだから
点の指定順が変わるだけ
211: 2020/04/18(土)17:29 ID:8ogfpEcQ(1/2) AAS
同値だと違うアルゴリズムでも同じコードになるのか
知らんかった
212: 2020/04/18(土)17:34 ID:30AxPVCB(3/3) AAS
何を言ってるんだこの人は
213: 2020/04/18(土)17:37 ID:8ogfpEcQ(2/2) AAS
なんだ違うのか orz
214: 2020/04/18(土)18:04 ID:U3Va20gw(1) AAS
いつものキチガイでしょ。
215(1): 2020/04/18(土)22:39 ID:9Ypi4rqk(1) AAS
>>207
4番目のデータは?
216(1): 2020/04/18(土)22:46 ID:N4WXNODD(3/7) AAS
>>215
「五角形P0-P1-P2-P3-P4が星形である」 => true
「五角形P0-P2-P4-P1-P3が凸五角形である」 => true
だから反例じゃねえだろ
つーか凸角形の定義と対角線の定義から同値性は自明だろ
何が分からないのかが素でわからん
というか日本語通じてんのかこれ
217: 2020/04/18(土)22:48 ID:n1sMw7/h(1/2) AAS
またキチガイが暴れてるのか…
218(1): 2020/04/18(土)22:50 ID:H1RDccYw(1) AAS
>>216
4番目のデータの「五角形P0-P2-P4-P1-P3」は変な形してない？
219(1): 2020/04/18(土)22:50 ID:N4WXNODD(4/7) AAS
>>218
綺麗な凸5角形ですがなにか
220(1): 2020/04/18(土)22:52 ID:n1sMw7/h(2/2) AAS
ID真っ赤やん
221(2): 2020/04/18(土)22:53 ID:r5aLC6gt(1) AAS
>>219
「P0-P2-P１-P４-P3」のことを言っている？
「P0-P2-P4-P1-P3」を結んだ五角形みた？
222: 2020/04/18(土)22:54 ID:N4WXNODD(5/7) AAS
>>221
「P0-P2-P4-P1-P3」が綺麗な凸５角形だと言ってる
>>220
お前は死ね
223: 2020/04/18(土)22:57 ID:N4WXNODD(6/7) AAS
これ見てよく考えて
_4____
2____1
______
______
______
______
03____
224(1): 2020/04/18(土)22:59 ID:GFBeMLbL(1) AAS
>>221
ホントだすまんおれの手元の描画ミス
検算プログラム書いたが4番目のデータ、0-2-4-1-3で一周回ってきたときの方向かえる角度の和が2piにならんのよね
ANG: -0.785398163397448 -1.03037682652431 -1.14103404769821 -0.896055384571344 -1.5707963267949
和： -5.42366074898621
なーにかが間違ってるのか…
225: 2020/04/18(土)23:19 ID:3QrrEgXO(1) AAS
五角形の内角の和は540度だぞw
226: 2020/04/18(土)23:23 ID:N4WXNODD(7/7) AAS
内角じゃなくてどれだけ曲がったかの和を計算してるんだから２PIで良いだろ
数値があってんのかは知らんが
227: 2020/04/18(土)23:50 ID:tXl890QR(1) AAS
ﾆﾁｬｧ…
228: 2020/04/18(土)23:58 ID:ZN+TZ1sR(1) AAS
算数できないやつが単発IDで必死にマウント取ろうとしてて草
229(1): 2020/04/19(日)00:09 ID:10eyuplu(1/2) AAS
>>224
どうやって計算したのか知らんが
3番目は2.0005586058915847だな
230(1): 2020/04/19(日)00:25 ID:suK8nNv5(1/2) AAS
>>229
検算とヒントありがと、2.00055860589158 - (-1.14103404769821) = 3.14159265358979
プログラの間違い直せたら書き込むわ
上下前次1-新書関写板覧索設栞歴
あと 772 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.026s