[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
187: デフォルトの名無しさん [sage] 2019/02/14(木) 08:52:55.94 ID:QGThOkDI >>176 必要なパーツの種類と個数を出せば良いんだろう。 回転させて使おうがどうしようが自由。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/187
188: デフォルトの名無しさん [] 2019/02/14(木) 09:41:08.57 ID:9tQDIG7c >>178 パターン全てって書いてあるから単に 2^ドット数 だと思ってたんだが、人間が見た時に何らかの意味がありそうなパターンって事なの？ しかし何に意味がありそうと感じるかは主観の問題だからここでのお題としては適切ではないよね。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/188
189: デフォルトの名無しさん [sage] 2019/02/14(木) 10:37:38.67 ID:zlobX1y6 >>188 アホかお前 http://mevius.5ch.net/test/read.cgi/tech/1549160513/189
190: デフォルトの名無しさん [] 2019/02/14(木) 11:47:38.28 ID:E3VWek4W >>156 R cat(a) Error in cat(a) : object 'a' not found Execution halted http://mevius.5ch.net/test/read.cgi/tech/1549160513/190
191: デフォルトの名無しさん [sage] 2019/02/14(木) 11:52:48.67 ID:rq9LAi9f パーツの対称性を見るくらいしかなさそうだけどなぁ 90度回転で不変ならパーツ自体が正方形の場合しか充填し得ないし180度回転で不変なら長方形しかない 問題は対称性なしの場合で, 回転で得られる4通りの図形の組み合わせで少なくとも適当な長方形が作れる必要がある。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/191
192: デフォルトの名無しさん [sage] 2019/02/14(木) 12:23:18.44 ID:4UGy3YJR 出題者です、同じ1種類のパーツのみで敷き詰めるのを意図してた 回転なしは因数でおk、有りは一応解法は浮かんだが証明詰めきれなかったので好きに定めて良いって書いた http://mevius.5ch.net/test/read.cgi/tech/1549160513/192
193: デフォルトの名無しさん [] 2019/02/14(木) 12:26:41.67 ID:9tQDIG7c >>189 じゃあどう解釈すれば良いのか？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/193
194: デフォルトの名無しさん [] 2019/02/14(木) 12:30:54.48 ID:9tQDIG7c >>192 相変わらず問題がよくわからんよ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/194
195: デフォルトの名無しさん [sage] 2019/02/14(木) 12:50:46.70 ID:QGThOkDI >>192 2x3 の時は、1種類のパーツのみで埋めるとすると 111 111 の時は 111 x2個 1,1,1 1,1,1 の時は 1,1(2段) x3個 11,1 1,11 の時は 110,100(2段) 2個とするのか 11 が 2個と 1 が2個 は2種類のパーツだからダメ？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/195
196: デフォルトの名無しさん [sage] 2019/02/14(木) 13:04:00.12 ID:QGThOkDI >>195 90度回転を認めると、11が、3個で良いね。 回転なしなら、111 2個と 1が6個 1 1 2段のパーツが3個 の3種類が解？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/196
197: デフォルトの名無しさん [sage] 2019/02/14(木) 13:09:44.77 ID:zlobX1y6 上でもう出てんだろ 回転なしなら辺の約数の組み合わせで全部だっつーの http://mevius.5ch.net/test/read.cgi/tech/1549160513/197
198: デフォルトの名無しさん [sage] 2019/02/14(木) 13:44:03.89 ID:icHgtaXf ヤング図形考えて終わりじゃねえのコレ http://mevius.5ch.net/test/read.cgi/tech/1549160513/198
199: デフォルトの名無しさん [sage] 2019/02/14(木) 13:56:13.92 ID:iDdALKjs abcd badc abab cdcd aaba babb abbb aaab 同じパターンで埋めるのって色々できそうだけどこういうの全部いいの？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/199
200: デフォルトの名無しさん [sage] 2019/02/14(木) 18:55:26.99 ID:PxTMiczy >>199 それ何種類も使ってるじゃん。 最低何れかの縦横が連続していないとダメだろ。 パズソーのピースじゃないの？ 先ずは2x3で1種類のパーツのみで探せという問題の回答を決めてほしい。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/200
201: デフォルトの名無しさん [sage] 2019/02/14(木) 19:04:40.56 ID:iDdALKjs いや全部一種類だよ マスがくっついてないだけで 連続してるとは書かれてなかったし http://mevius.5ch.net/test/read.cgi/tech/1549160513/201
202: デフォルトの名無しさん [sage] 2019/02/14(木) 19:56:54.06 ID:IkVUbwNW お題を正しく理解できてない模様 >>176をもう1度確認 1つ目の#は6個、2つ目の###は2個、 3つ目の# 4つ目の### #は3個、 ###は1個で2行3列が全て埋まります http://mevius.5ch.net/test/read.cgi/tech/1549160513/202
203: デフォルトの名無しさん [sage] 2019/02/14(木) 20:35:35.28 ID:0TijawxO >>210 例えば、 最初の基本バーツは何？ どうしてこれが1種類なのかな？ abcd badc -----| http://mevius.5ch.net/test/read.cgi/tech/1549160513/203
204: デフォルトの名無しさん [sage] 2019/02/14(木) 20:45:00.72 ID:0TijawxO >>202 全く理解できない。 >>176 はどうして一つ目が6個なのかな？ 1個しかないじゃん？ 一つ目って何？ 二つ目って何？ https://i.imgur.com/GzvMfWg.jpg 自分が今見てるのは、iPhone BB2C http://mevius.5ch.net/test/read.cgi/tech/1549160513/204
205: デフォルトの名無しさん [sage] 2019/02/14(木) 20:54:16.99 ID:RyxU72PZ 回答の良し悪しだけじゃない、良問悪問ってあるよね… http://mevius.5ch.net/test/read.cgi/tech/1549160513/205
206: デフォルトの名無しさん [sage] 2019/02/14(木) 21:20:53.44 ID:IkVUbwNW >>204 1つ目の # は6個で2行3列が全て埋まります ### ### 2つ目の ### は2個で2行3列が全て埋まります ### ### 3つ目の # # は3個で2行3列が全て埋まります ### ### 4つ目の ### ### は1個で2行3列が全て埋まります ### ### http://mevius.5ch.net/test/read.cgi/tech/1549160513/206
207: デフォルトの名無しさん [sage] 2019/02/15(金) 01:14:00.78 ID:Ap6BYDwO >>203 回転を許す立場なら @_ _@ って言うパーツ一種類だけからできてんじゃん 頭大丈夫か？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/207
208: デフォルトの名無しさん [sage] 2019/02/15(金) 01:38:17.60 ID:nnYj1Xkq >>207 b と d が同じに見えるそっちこそ頭大丈夫か？ abcd badc これのどこが、 --@ @― なんだよ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/208
209: デフォルトの名無しさん [sage] 2019/02/15(金) 02:40:42.39 ID:YMyZWZCa 90度回転ありなら # # # # # と # と # と # で敷きつめられる(＝全て埋まる)という意味だろうけど >>179に抵触するので、これは無しでしょ http://mevius.5ch.net/test/read.cgi/tech/1549160513/209
210: デフォルトの名無しさん [sage] 2019/02/15(金) 06:13:53.42 ID:hXoOelh0 >>208 回転を許すっつってんだろ氏ねよ糞無能が @_ _@ を90度回転させたら _@ @_ だろうが 市ね糞野郎 http://mevius.5ch.net/test/read.cgi/tech/1549160513/210
211: デフォルトの名無しさん [sage] 2019/02/15(金) 08:54:29.71 ID:nnYj1Xkq >>209 ようやくわかった。 a_ _a _b b_ などと並んでるものは、全て同じパーツとみなすという意味か。 >>176 のお題をよく見ると、2 x 3 の正解の回答が書かれてる。 斜めは許していないからダメだろ。 また、回転も許していない。 回転を許すなら ■ ■ ■ というパーツも入るがそれは除外されてるから、回転も無しだ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/211
212: デフォルトの名無しさん [sage] 2019/02/15(金) 10:38:13.03 ID:NxGjA/1R >>199のような飛び飛びのパターンまで含めると5x5くらいのサイズなら解けそうでも 10x10くらいの大きさになるとほぼ解けなくなるか？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/212
213: デフォルトの名無しさん [sage] 2019/02/15(金) 11:04:50.72 ID:bh7l703i ... d0<-a a->b b->c c->d c'<-d b'<-c' a<-b' d->a2 d<-a2 a2->b2 .... に対して 任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ 左向きの矢印のときも答えろ ここで英数字には好きな整数の値を対応させろ http://mevius.5ch.net/test/read.cgi/tech/1549160513/213
214: デフォルトの名無しさん [sage] 2019/02/15(金) 11:10:32.09 ID:bh7l703i 自己解決しました この問題には答えなくていいです http://mevius.5ch.net/test/read.cgi/tech/1549160513/214
215: デフォルトの名無しさん [sage] 2019/02/15(金) 11:21:16.25 ID:bh7l703i 新問題 ... g0<-a a->b b->c c->d c'<-d b'<-c' a<-b' d->e e->f f->g f'<-g e'<-f' g->a1 g<-a1 a1->b1 .... に対して 任意の英数字から初めて右向きの矢印をnこ進んだ英数字を一瞬で割り出す簡単な計算方法を教えろ 左向きの矢印のときも教えろ ここで英数字には好きな整数の値を対応させろ http://mevius.5ch.net/test/read.cgi/tech/1549160513/215
216: デフォルトの名無しさん [sage] 2019/02/15(金) 11:22:43.57 ID:bh7l703i 訂正 d<-e' 追加で http://mevius.5ch.net/test/read.cgi/tech/1549160513/216
217: デフォルトの名無しさん [sage] 2019/02/15(金) 11:45:59.15 ID:446NzcaO 日本語で書けや http://mevius.5ch.net/test/read.cgi/tech/1549160513/217
218: デフォルトの名無しさん [sage] 2019/02/15(金) 11:55:27.68 ID:bh7l703i 自己解決しました この問題には答えなくていいです >>217 これからは英語で書くので許して下さい http://mevius.5ch.net/test/read.cgi/tech/1549160513/218
219: デフォルトの名無しさん [sage] 2019/02/15(金) 12:34:22.87 ID:fQG3bb7R 自己解決ってどういうこと？ 宿題貼ってるの？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/219
220: デフォルトの名無しさん [sage] 2019/02/15(金) 12:41:19.85 ID:bh7l703i 俺はキチガイだから相手にしないほうが良い http://mevius.5ch.net/test/read.cgi/tech/1549160513/220
221: デフォルトの名無しさん [] 2019/02/15(金) 12:43:47.27 ID:JRF4Gyvi わけのわからん問題が続くなあ・・・ http://mevius.5ch.net/test/read.cgi/tech/1549160513/221
222: デフォルトの名無しさん [sage] 2019/02/15(金) 17:27:20.42 ID:DyMjpctN >>211 > 回転もおkかは好きに定めていい http://mevius.5ch.net/test/read.cgi/tech/1549160513/222
223: デフォルトの名無しさん [sage] 2019/02/16(土) 02:08:44.97 ID:3MiMTZ5E しかしこの問題は回転を考えないと、曲がったパーツは不可能だね。 かなり単純化される。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/223
224: デフォルトの名無しさん [sage] 2019/02/16(土) 02:11:07.89 ID:vjYPWj7f なんかスレが新しくなってから湧いてきたPythonのクソみたいなコード連投してる日本語がめちゃくちゃのやつうざい http://mevius.5ch.net/test/read.cgi/tech/1549160513/224
225: デフォルトの名無しさん [sage] 2019/02/16(土) 02:16:11.76 ID:bRo2S9Sl 前スレから居るんですよそいつね http://mevius.5ch.net/test/read.cgi/tech/1549160513/225
226: デフォルトの名無しさん [sage] 2019/02/16(土) 02:35:08.75 ID:zutWNq0P 2行3列で回転無しなら以下の4つが答え # ### # # ### ### 回転ありなら更に以下の2つも ## # # ## http://mevius.5ch.net/test/read.cgi/tech/1549160513/226
227: デフォルトの名無しさん [sage] 2019/02/16(土) 07:00:03.49 ID:wpb3vJTT >>226 > ## > # > > # > ## この二つは90度回転した同じものやが http://mevius.5ch.net/test/read.cgi/tech/1549160513/227
228: デフォルトの名無しさん [sage] 2019/02/16(土) 09:56:41.50 ID:3oducOde 煽りではなく本当に発達障害またはそれに準ずる知的ボーダーを疑うレベルで頭悪いな http://mevius.5ch.net/test/read.cgi/tech/1549160513/228
229: デフォルトの名無しさん [sage] 2019/02/16(土) 10:48:56.77 ID:3MiMTZ5E >>228 煽りじゃん。 プログラムを出してくれた方が良い。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/229
230: デフォルトの名無しさん [sage] 2019/02/16(土) 12:54:53.60 ID:8ZVYBrON お題：バブルソートを実装せよ http://mevius.5ch.net/test/read.cgi/tech/1549160513/230
231: デフォルトの名無しさん [sage] 2019/02/16(土) 15:04:36.49 ID:PD6v+6Vh >>230 Perl5 use feature qw{current_sub say}; sub bblsort { for (0..@_) { sub { if (@_ >= 2) { __SUB__->(@_[1..$#_]); ($_[1], $_[0]) = ($_[0], $_[1]) if $_[0] > $_[1] } }->(@_[$_..$#_]); } } use List::Util shuffle; @a = shuffle 1..20; say "1) @a"; bblsort @a; say "2) @a"; 実行結果 ~ $ perl 13_230_bblsort.pl 1) 13 6 18 7 15 1 11 8 20 16 14 4 9 10 12 17 2 19 5 3 2) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 http://mevius.5ch.net/test/read.cgi/tech/1549160513/231
232: デフォルトの名無しさん [sage] 2019/02/16(土) 16:42:44.41 ID:hxDCwUVz お題：数値Xを4つの方法で整数に丸めよ (1) 0に向かう (2) 0から遠ざかる (3) 正の無限大に向かう (4) 負の無限大に向かう X = 0.5 => 0 1 1 0 X = -1.1 => -1 -2 -1 -2 X = 3 => 3 3 3 3 http://mevius.5ch.net/test/read.cgi/tech/1549160513/232
233: デフォルトの名無しさん [] 2019/02/16(土) 16:47:26.55 ID:akVlWGeE ふたたび、円の内部の整数点を求めるやつ。個数ごとその最小半径を求める。 41個、47個とかが難し目だった気が。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/233
234: デフォルトの名無しさん [sage] 2019/02/16(土) 17:07:10.46 ID:wpb3vJTT 内部じゃなくて円周上のやろ http://mevius.5ch.net/test/read.cgi/tech/1549160513/234
235: デフォルトの名無しさん [sage] 2019/02/16(土) 17:07:42.16 ID:cltO7Ts6 >>230 http://mevius.5ch.net/test/read.cgi/tech/1549160513/235
236: デフォルトの名無しさん [sage] 2019/02/16(土) 17:27:32.65 ID:PD6v+6Vh >>232 組み込み使っていいんだよね? (面倒になるけど、使わなくても書けるけどｻ…) Perl5 use POSIX qw(floor ceil); for (0.5, -1.1, 3) { @a = ("$_ => ", sprintf('%d', $_), #int($_), ($_ > 0 ? ceil($_) : ceil($_-1)), ceil($_), floor($_) ); print "@a\n"; } 実行結果 ~ $ perl 13_232_round.pl 0.5 => 0 1 1 0 -1.1 => -1 -2 -1 -2 3 => 3 3 3 3 http://mevius.5ch.net/test/read.cgi/tech/1549160513/236
237: デフォルトの名無しさん [sage] 2019/02/16(土) 17:33:21.11 ID:PfkkbXxw >>230 Ruby def bs(ary) ary.tap do |a| (a.size**2).times do (a.size - 1).times do |i| a[i + 1], a[i] = a[i, 2] if a[i] > a[i + 1] end end end end p bs([3, 1, 4, 15, 92]) # => [1, 3, 4, 15, 92] >>232 sgn = -> n {n <=> 0} r4 = -> n {n.floor} r3 = -> n {-r4[-n]} r2 = -> n {sgn[n] * r3[n.abs]} r1 = -> n {sgn[n] * r4[n.abs]} [0.5, -1.1, 3].each{|i| puts 'x = %p => %p %p %p %p' % [i, r1[i], r2[i], r3[i], r4[i]]} # => x = 0.5 => 0 1 1 0 x = -1.1 => -1 -2 -1 -2 x = 3 => 3 3 3 3 http://mevius.5ch.net/test/read.cgi/tech/1549160513/237
238: デフォルトの名無しさん [sage] 2019/02/16(土) 17:34:37.44 ID:PD6v+6Vh >>236 これだと 入力が０のとき >(2) 0から遠ざかる が-1になっちゃう。 ($_ > 0 ? ceil($_) : ceil($_-1)), ↓を ($_ >= 0 ? ceil($_) : ceil($_-1)), とすべきでしょうね。ｽﾏｿ http://mevius.5ch.net/test/read.cgi/tech/1549160513/238
239: デフォルトの名無しさん [] 2019/02/16(土) 18:34:59.76 ID:akVlWGeE >>234 円周上が正解 http://mevius.5ch.net/test/read.cgi/tech/1549160513/239
240: デフォルトの名無しさん [] 2019/02/16(土) 22:05:48.79 ID:lcFO2eao >>262 J f =: (**<.@|),(**>.@|),<.,>. f 0.5 0 1 1 0 f _1.1 _1 _2 _1 _2 f 3 3 3 3 3 http://mevius.5ch.net/test/read.cgi/tech/1549160513/240
241: デフォルトの名無しさん [sage] 2019/02/16(土) 22:20:47.39 ID:yZTjSyit >>262に期待。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/241
242: デフォルトの名無しさん [] 2019/02/16(土) 22:38:05.19 ID:lcFO2eao >>240 間違えました 262ではなく>>232でした http://mevius.5ch.net/test/read.cgi/tech/1549160513/242
243: デフォルトの名無しさん [sage] 2019/02/16(土) 23:30:26.24 ID:ReDOqu2L >>232 octave https://ideone.com/7nvSr1 http://mevius.5ch.net/test/read.cgi/tech/1549160513/243
244: ◆QZaw55cn4c [sage] 2019/02/17(日) 00:20:40.59 ID:TOi2tzGo >>232 をやろうとおもって、IEEE754 の float/double を直接触る方法を探しているのですが、なにかいい方法はないでしょうか… http://mevius.5ch.net/test/read.cgi/tech/1549160513/244
245: デフォルトの名無しさん [sage] 2019/02/17(日) 00:24:40.58 ID:xZHcxwZO 言語も言わずに(ry https://qiita.com/nia_tn1012/items/d26f0fc993895a09b30b http://mevius.5ch.net/test/read.cgi/tech/1549160513/245
246: ◆QZaw55cn4c [sage] 2019/02/17(日) 00:30:56.20 ID:TOi2tzGo >>245 thx a lot !! http://mevius.5ch.net/test/read.cgi/tech/1549160513/246
247: デフォルトの名無しさん [sage] 2019/02/17(日) 01:04:30.52 ID:iMRi3xg5 >>244 あった http://mevius.5ch.net/test/read.cgi/tech/1549160513/247
248: デフォルトの名無しさん [] 2019/02/17(日) 08:30:18.08 ID:SfPzlMrR >>233 これ 「Nに対し平面上の円で、その円周上の整数点がちょうどN個となる円の最小半径を求めよ」 例) x^2 + y^2 = 1の整数点は4つだが、最小半径ではない。 (x-0.5)^2 + (y-0.5)^2 = 0.5の方が小さい。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/248
249: デフォルトの名無しさん [] 2019/02/17(日) 09:09:13.01 ID:SfPzlMrR >>248 網羅的は、きりがなく一つの予想をたてた。 一つ半径を求めたら、次のような操作で半径を縮めたものと、真の最小半径が一致する予想。 半径rの整数点がNだとして。 rを整数比で縮小して中心をずらす。 たとえば上の例だと、r=1で、r → 2/4 r で、 (2x -1)^2 + (2y -1)^2 = 2r 両辺4倍して中心ずらした式 http://mevius.5ch.net/test/read.cgi/tech/1549160513/249
250: デフォルトの名無しさん [] 2019/02/17(日) 14:03:58.61 ID:SfPzlMrR 整数比かけるので有理数半径ならすべて作り出せるから当たり前か 無駄なく高速に半径縮められる手法が大事か http://mevius.5ch.net/test/read.cgi/tech/1549160513/250
251: デフォルトの名無しさん [] 2019/02/17(日) 14:06:36.33 ID:SfPzlMrR あと半径は間違いで、半径でなく右辺、半径^2 だった http://mevius.5ch.net/test/read.cgi/tech/1549160513/251
252: デフォルトの名無しさん [] 2019/02/17(日) 19:56:30.00 ID:qArvPplr お題 パンケーキソートを実装する http://mevius.5ch.net/test/read.cgi/tech/1549160513/252
253: デフォルトの名無しさん [sage] 2019/02/18(月) 22:45:57.31 ID:Gp2d+oGP >>252 Perl5 (効率の良いｱﾙｺﾞﾘｽﾞﾑではないけれど、まずは…) use List::Util shuffle; @a = shuffle 1..20; print "shuffled) @a\n"; sub flip { ($m, $n) = @_; @a[0..$m] = reverse @a[0..$m]; @a[0..$n] = reverse @a[0..$n]; } for $i (reverse 1..$#a) { $k = undef; for (0..$i) { $k = $_ if (!defined($k) or $a[$k] < $a[$_]) } flip($k, $i) if $k < $i; } print "sorted ) @a\n"; 実行例 ~ $ perl 13_252_clumsy_pancake_sort.pl shuffled) 18 6 2 13 16 1 12 15 10 4 17 20 9 7 19 14 5 11 3 8 sorted ) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 http://mevius.5ch.net/test/read.cgi/tech/1549160513/253
254: デフォルトの名無しさん [sage] 2019/02/19(火) 22:19:54.18 ID:sIqHxZ1N ; Common Lisp (defun flip (seq n) (concatenate (type-of seq) (nreverse (subseq seq 0 (1+ n))) (subseq seq (1+ n)))) (defun pancake-sort (seq predicate) (loop for s = seq then (if j (flip (flip (flip (flip s (1- j)) (1- i)) i) j) s) for i from 1 to (1- (length seq)) for j = (position (elt s i) s :end i :test predicate) finally (return s))) http://mevius.5ch.net/test/read.cgi/tech/1549160513/254
255: デフォルトの名無しさん [sage] 2019/02/19(火) 22:25:14.24 ID:flzwRht/ お題:1から8までのカードを混ぜ、2枚そこから引いた時1枚目*10+2枚目が素数になる確率を求める。 ただし、 1. 小数第3位で四捨五入した後に回答すること。 2. 数学的な証明は禁止。 3. 各カードは9-その数字の数だけ存在する。 (例:1ならば8枚存在する) 4. 各カードが出る確率はまだ引かれていないカードの枚数に比例する。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/255
256: デフォルトの名無しさん [sage] 2019/02/20(水) 00:45:46.98 ID:VV/V1Ls8 python print(0.31) http://mevius.5ch.net/test/read.cgi/tech/1549160513/256
257: デフォルトの名無しさん [sage] 2019/02/20(水) 00:55:56.83 ID:SyQ4jkRO >>255 Perl5 $R = 0.0; @s = map{($_) x (9-$_)} 1..8; #say "@s"; $t = @s; #say $t; for (qw{11 13 17 23 31 37 41 43 47 53 61 67 71 73 83}) { @o = split''; my %h; $h{$_}++ for @s; my $r = $h{$o[0]}-- / $t; $r *= $h{$o[1]}-- / ($t - 1); $R += $r; } printf "%3.2f\n", $R; 実行結果 ~ $ perl 13_255.pl 0.31 http://mevius.5ch.net/test/read.cgi/tech/1549160513/257
258: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/20(水) 00:58:27.33 ID:5PEVWiZL お題: URLで場所を指定された、インターネット上のテキストファイルをダウンロードするプログラム。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/258
259: デフォルトの名無しさん [sage] 2019/02/20(水) 01:16:40.92 ID:SyQ4jkRO >>258 Perl5 require LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent('Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Win64; x64; Trident/6.0)'); use HTTP::Cookies; $ua->cookie_jar(HTTP::Cookies->new(file => 'lwp-cookies.txt', autosave => 1)); $url = 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt'; $file = './0_README.txt'; $res = $ua->mirror($url, $file); print $res->status_line, "\n"; 実行例 ~ $ perl 13_258.pl 200 OK （※こういうのは、別に今急に考えたわけじゃなく、日常的に作って使っているのですぐ投稿できました） http://mevius.5ch.net/test/read.cgi/tech/1549160513/259
260: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/20(水) 01:37:18.13 ID:jAMIqMc6 WSHでダウンロードできるヤツ、おる？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/260
261: デフォルトの名無しさん [sage] 2019/02/20(水) 01:40:03.52 ID:SyQ4jkRO >>260 wget.exe か curl 使えば？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/261
262: デフォルトの名無しさん [sage] 2019/02/20(水) 02:05:29.76 ID:Te3YpcYw >>260 download.js var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP"); xmlhttp.Open("GET", "http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt", false); xmlhttp.Send(); var stream = new ActiveXObject("Adodb.Stream"); stream.Type = 1; stream.Open(); stream.Write(xmlhttp.responseBody); stream.SaveToFile("0_README.txt", 2); http://mevius.5ch.net/test/read.cgi/tech/1549160513/262
263: デフォルトの名無しさん [sage] 2019/02/20(水) 02:28:54.15 ID:PF1BNO4k pythonista stash 反則？ $ wget http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt $ ls -la *.txt 0_README.txt (2.4K) 2019-02-20 02:21:45 http://mevius.5ch.net/test/read.cgi/tech/1549160513/263
264: デフォルトの名無しさん [sage] 2019/02/20(水) 02:51:47.69 ID:qYIek1dL >>255 ;; Common Lisp (let ((prime (list 2))) (defun primep (n) (loop for i from (1+ (car prime)) upto n unless (find-if (lambda (j) (zerop (mod i j))) prime :from-end t) do (push i prime)) (find n prime))) (defun nearest (i j) (/ (floor (+ (* i (expt 10 j)) 0.5)) (expt 10 j))) (loop with cards = (loop for i from 1 to 8 nconc (make-list (- 9 i) :initial-element i)) and n = 0 and p = 0 for one in cards do (loop for two in (remove one cards :count 1) do (incf n) if (primep (+ (* 10 one) two)) do (incf p)) finally (format t "~,3F~%" (nearest (* (/ p n)) 3))) http://mevius.5ch.net/test/read.cgi/tech/1549160513/264
265: さまよえる蟻人間 ◆T6xkBnTXz7B0 [sage] 2019/02/20(水) 03:32:48.09 ID:jAMIqMc6 わーい、これでダウンロード制限された端末でDLできるぞ。やったー！ http://mevius.5ch.net/test/read.cgi/tech/1549160513/265
266: デフォルトの名無しさん [sage] 2019/02/20(水) 03:35:30.81 ID:VV/V1Ls8 お題スレってそういう趣旨の場所だっけか？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/266
267: デフォルトの名無しさん [] 2019/02/20(水) 03:43:59.14 ID:J4bEIWoi >>265 できるかなあ？どういう制限しているかにもよるぞ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/267
268: デフォルトの名無しさん [sage] 2019/02/20(水) 05:32:07.81 ID:B2QSVSiS PowerShell にも、curl, wget ある get-alias (gal) curl -> Invoke-WebRequest wget -> Invoke-WebRequest と言うことは、Ruby からも、そのコマンドを呼べる http://mevius.5ch.net/test/read.cgi/tech/1549160513/268
269: 268 [sage] 2019/02/20(水) 09:30:07.43 ID:B2QSVSiS なんと、コマンドプロンプトで、 where curl と入力すると、 C:\Windows\System32\curl.exe PowerShell の、curl, wget は、Invoke-WebRequest のエイリアスだけど、 curl.exe は、本物のcurl ！ http://mevius.5ch.net/test/read.cgi/tech/1549160513/269
270: デフォルトの名無しさん [sage] 2019/02/20(水) 09:49:14.61 ID:hK+DOQws >>268>>269 死ね http://mevius.5ch.net/test/read.cgi/tech/1549160513/270
271: デフォルトの名無しさん [sage] 2019/02/20(水) 09:52:59.12 ID:PF1BNO4k >>258 >>265 なんだ下心があったのか。 pythonista stash は以下のコマンドが使える。 help(StaSh) v0.7.1 alias, cat, cd, clear, cowsay, cp, crypt, curl, cut, dropbox_setup, du, easy_config, echo, edit, exit, fg, find, ftpserver, gci, gh, git, grep, head, httpserver, jobs, kill, latte, ls, mail, man, mc, md5sum, mkdir, monkeylord, more, mount, mv, openin, pbcopy, pbpaste, ping, Usage, pip, printenv, printhex, ptinstaller, pwd, py-tree, python, python3, quicklook, rm, rmdir, scp, selfupdate, sha1sum, sha256sum, sort, source, sqlite, ssh, ssh-keygen, stashconf, tail, tar, telnet, totd, touch, umount, uniq, unzip, version, wc, webviewer, wget, whatis, which, wol, xargs, zip ftpserver や、httpserverは簡易的なサーバーになる。 ssh やscp 、tar zip などは使い道多そう。 webviewer てpython の下でブラウザが立ち上がってるみたいなんだがどんな使い道があるんだろう？ なお、標準python用のシェルは、xonsh と言うのがあるらしい。 xonsh では、標準的なshellコマンドと並行してpython スクリプトも実行できるから強力。 stash ではそれはできない。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/271
272: 268 [sage] 2019/02/20(水) 10:31:11.68 ID:B2QSVSiS WSH はわからないけど、Ruby では、 require 'nokogiri' html = `ｃｕｒｌ http://www.example.com/` # ｃｕｒｌ は書き込めないので、全角に変換した doc = Nokogiri::HTML( html ) elements = doc.css( "h1" ) puts elements.first.content #=> Example Domain http://mevius.5ch.net/test/read.cgi/tech/1549160513/272
273: デフォルトの名無しさん [sage] 2019/02/20(水) 11:50:14.05 ID:hK+DOQws >>272 死ね http://mevius.5ch.net/test/read.cgi/tech/1549160513/273
274: デフォルトの名無しさん [] 2019/02/20(水) 13:03:16.05 ID:agArr1lp >>269 なんかね。UNIX系OSで昔からよく使われてたコマンドを移植したようで、tarとか他にも色々あったと思った。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/274
275: デフォルトの名無しさん [sage] 2019/02/20(水) 17:40:48.68 ID:3A0CDvTh >>263 今度は反則なしで。python import requests as r url = 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt' g= r.get( url ) print('読んだサイズは',len(g.text) ) # 読んだサイズは 2495 http://mevius.5ch.net/test/read.cgi/tech/1549160513/275
276: デフォルトの名無しさん [sage] 2019/02/20(水) 17:58:34.75 ID:t1mcuuOB >>258 Pharo 7 'http://ftp.iij.ad.jp/pub/linux/centos/7.6.1810/isos/x86_64/0_README.txt' asUrl retrieveContents http://mevius.5ch.net/test/read.cgi/tech/1549160513/276
277: デフォルトの名無しさん [sage] 2019/02/20(水) 18:10:48.97 ID:3A0CDvTh >>276 ありがとう。 そんな言語も出てきてたんだ。 でも普及は難しいのかも。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/277
278: デフォルトの名無しさん [sage] 2019/02/20(水) 23:51:29.53 ID:MUUM+ThN >>230 pike https://ideone.com/VZzxoA http://mevius.5ch.net/test/read.cgi/tech/1549160513/278
279: デフォルトの名無しさん [sage] 2019/02/21(木) 18:54:22.61 ID:1axkeZoV お題：リスト等を", "で結合して表示せよ。ただし最後は" and "で結合する。 https://ideone.com/pVuO7T http://mevius.5ch.net/test/read.cgi/tech/1549160513/279
280: デフォルトの名無しさん [sage] 2019/02/21(木) 19:06:17.90 ID:TUYpSwcQ >>279 JavaScript const arr = ['apple', 'banana', 'orange', 'mango']; const last = ' and ' + arr.pop(); console.log(arr.join`, ` + last); //=> apple, banana, orange and mango http://mevius.5ch.net/test/read.cgi/tech/1549160513/280
281: デフォルトの名無しさん [sage] 2019/02/21(木) 19:17:09.75 ID:eUc7EqKm >>279 python l = [ 1,2,3,4,5] print( *l[0:-1] ,'and' , l[-1]) # 1 2 3 4 and 5 http://mevius.5ch.net/test/read.cgi/tech/1549160513/281
282: デフォルトの名無しさん [] 2019/02/21(木) 19:27:21.23 ID:2zdYL4u2 >>279 Haskell main = putStrLn.concat.concat $ [map addCanma (init lst),["and,"],[last lst]] addCanma s = s ++ "," lst = ["apple","banana","orange","mango"] output: apple,banana,orange,and,mango http://mevius.5ch.net/test/read.cgi/tech/1549160513/282
283: デフォルトの名無しさん [sage] 2019/02/21(木) 19:31:58.30 ID:lqQG1Hmj 題意は list = ["red","green","black","white"] print(", ".join(list[:-1]),"and",list[-1]) # red, green, black and white だろ http://mevius.5ch.net/test/read.cgi/tech/1549160513/283
284: デフォルトの名無しさん [sage] 2019/02/21(木) 19:43:56.00 ID:YnrfI9YG そこそこ優秀なのに肝心なところでいい加減だから試験に落ちるタイプだな http://mevius.5ch.net/test/read.cgi/tech/1549160513/284
285: デフォルトの名無しさん [] 2019/02/21(木) 19:51:21.05 ID:2zdYL4u2 >>283 あ、そうか。 不恰好だけどこれで一応対応。 (putStrLn.concat.concat) [init $ map addCanma $ init lst,[last $ init lst],[" and "],[last lst]] スマートな解答も考えてみるよ。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/285
286: デフォルトの名無しさん [sage] 2019/02/21(木) 20:16:12.26 ID:eUc7EqKm >>283 ごめん、俺もカンマが抜けてた。 数字の場合の模範解答をよろしく。 http://mevius.5ch.net/test/read.cgi/tech/1549160513/286
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 716 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.030s