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

1 名前：デフォルトの名無しさん mailto:sage [2016/12/01(木) 16:58:30.97 ID:gTkHDluD.net] プログラミングのお題スレです。 前スレ プログラミングのお題スレ Part8©2ch.net echo.2ch.net/test/read.cgi/tech/1444216746/ 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 (オンラインでコードを実行できる) ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode runnable.com/ code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 6 名前：696,2668,6153,4268,5708,320,6235,3984,6182, 812,4354,4282,6549,1576,5713,3384,6541,2372,6029,4350,6425,1508,6155,4090,6605, 1760,3620,3496,5182,692,6058,3612,6094,1020,3694,3774,6317,580,4732,3480,6217, 716,6260,3740,5672,1416,6050,3768,6086,2180,6254,3674,6256,1288,6048,3898,6284, 2844,6522,2968,5680,1936,5711,3864,6142,1132,6093,3646,6313,564,6169,3936,6297, 1140,6510,4226,6489,2156,6508,3192,6514,2540,6025,4222,6413,1572,6027,4048,6380, 2716,4396,3266,5559,548,4690,3712,5628,980,5319,3246,5555,368,4540,3214,5567, 908,5380,3258,5800,1544,4876,3320,4938,972,5436,3486,5828,1512,4706,3290,5491, 2308,4693,3250,4755,1980,5833,3792,5791,1912,5285,4204,5281,1956,5769,3198,5265, 1888,4691,4218,5866,1960,5860,3728,5839,2348,5862,3450,5636,256,4428,4026,5201, 1696,4947,3500,5150,568,4969,3456,4961,556,4945,3642,4977,464,4636,3658,4993, 876,4955,3608,5640,1424,4682,3512,4906,2148,5410,3390,5376,1284,5404,3802,5459, 1252,4685,2952,5146,1908,5721,3472,5122,996,4701,4176,4949,448,4620,4188,5130, 732,4699,2944,5792,2064,5735,3200,4866,2468,5374,2940,4687,260,4426,2942,4427,0 }; [] [ここ壊れてます] 7 名前：デフォルトの名無しさん mailto:sage [2016/12/02(金) 00:12:44.35 ID:gTW8SJ/a.net] リンク開けねーし日本語意味不明だし 8 名前：デフォルトの名無しさん mailto:sage [2016/12/02(金) 00:32:31.53 ID:IjczpQdN.net] 二つの2^8の形で表されている実質3^8の状態を一回の256要素の配列の参照と加算で 0から6561になるべく近いユニークな数に変換するその配列を求めるって問題 for (w = 0; w < 256; w++) { for (b = 0; b < 256; b++) { if ((b & w) == 0) { if (++a[base[b | w] + b] > 1) printf ("err\n"); } } } これをエラーが出ないように通す配列 9 名前：デフォルトの名無しさん mailto:save [2016/12/06(火) 09:57:55.18 ID:4tk1iq5o.net] >>1おつ 10 名前：デフォルトの名無しさん [2016/12/07(水) 14:23:07.62 ID:ltGABuaa.net] 景気付けにどうぞ お題：以下の数列を出力するプログラム [0, 10, 1110, 110, 2110, 122110, 11222110, 2122110, 1211222110, 11122122110,...] 11 名前：デフォルトの名無しさん mailto:sage [2016/12/07(水) 18:06:29.71 ID:qM0eFzSC.net] 法則性が分からん 12 名前：デフォルトの名無しさん mailto:sage [2016/12/07(水) 19:07:54.18 ID:ijEXmeus.net] >>9 Java ideone.com/SjEe5N >>10と同じで法則性考えるのに時間がかかったわ 13 名前：デフォルトの名無しさん mailto:sage [2016/12/07(水) 19:15:52.19 ID:Gz2S0y7j.net] >>9 Nim https://ideone.com/WLvRqB 14 名前：デフォルトの名無しさん mailto:sage [2016/12/08(木) 00:20:55.59 ID:Gvasb8BC.net] >>9 ・法則見つけた瞬間までがピーク ・実際書くと何一つスッキリ書けなくて悔しい https://ideone.com/n0RoNr ↓ [ 15 名前：デフォルトの名無しさん mailto:sage [2016/12/08(木) 00:21:30.57 ID:Gvasb8BC.net] >>9 ruby ・法則見つけた瞬間までがピーク ・実際書くと何一つスッキリ書けなくて悔しい https://ideone.com/n0RoNr ↓ ["0", "10", "1110", "110", "2110", "122110", "11222110", "2122110", "1211222110", "11122122110", "12211222110", "11222122110"] 16 名前：デフォルトの名無しさん mailto:sage [2016/12/08(木) 00:53:14.68 ID:T7wNCBuS.net] >>9 ruby ちょい整理 https://ideone.com/kyw9bm 17 名前：デフォルトの名無しさん mailto:sage [2016/12/08(木) 22:20:30.70 ID:eRjONenV.net] ・前項の数字の1の位から順に見てって、数字が連続する数を数えていく。 ・数字とその連続数を1の位から順に埋める ・3の数字は削除する 18 名前：デフォルトの名無しさん mailto:sage [2016/12/09(金) 16:43:25.82 ID:pZMdQcgu.net] お題: 文字列に含まれる複数のURLをHTMLのaタグで囲って出力してください。詳細な仕様はないです。 例: ideone.com/NY2ooA 19 名前：デフォルトの名無しさん mailto:sage [2016/12/09(金) 21:12:11.14 ID:Ees/IyTq.net] 例に出されたURLも不正だし >詳細な仕様はないです。 となると判別不能では 20 名前：デフォルトの名無しさん mailto:sage [2016/12/09(金) 21:52:57.66 ID:BOiFZI5h.net] >>9 Nim あまりに不細工だったので書き直し https://ideone.com/9q80v4 正規表現使うバージョン(ただしideoneは古すぎてコンパイルできない) https://ideone.com/01ktu2 21 名前：デフォルトの名無しさん mailto:sage [2016/12/10(土) 04:17:33.77 ID:mNmdekz4.net] イデオンって投稿時にURL置換するんだよな。 22 名前：17 mailto:sage [2016/12/10(土) 11:48:18.29 ID:E4ED1H/i.net] ideone.comをフィルターしてるのかと思ったらURL全般だめっぽい 23 名前：デフォルトの名無しさん mailto:sage [2016/12/11(日) 18:00:53.14 ID:RSXbZT65.net] >>9 Perl use feature qw{:5.16}; sub { $_ = join'', @_; exit if length > 12; say; @_ = (); while (/((.)\2*)$/) { $len = length($1); $len = '' if $len > 2; unshift @_, $len . $2; $_ = $` } goto __SUB__; }->(0); 無名関数の末尾再帰を使って記述してみました。 24 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/12/13(火) 23:58:53.18 ID:AlD2ABgf.net] お題：C言語に関する質問に答えられる人工知能を作れ。 25 名前：デフォルトの名無しさん mailto:sage [2016/12/14(水) 02:25:35.75 ID:EQpNWDBR.net] 自分で作れ 26 名前：デフォルトの名無しさん mailto:sage [2016/12/17(土) 22:23:37.55 ID:zexuiF2f.net] 案1 Amazon Mechanical Turk を使う。 案2 知恵袋に投げて、回答を転記する。 案3 IBM Watson 使う。 27 名前：デフォルトの名無しさん mailto:sage [2016/12/17(土) 22:35:16.13 ID:R0k7IOIa.net] 大穴　自分の脳をささげる。 28 名前：デフォルトの名無しさん mailto:sage [2016/12/19(月) 21:40:29.23 ID:KFYYsgKs.net] 入力音声を2chのスレに書き込む レスがあったら音声出力する 処理時間→数分〜数日 29 名前：デフォルトの名無しさん mailto:sage [2016/12/19(月) 22:14:03.89 ID:TQpl8Z1r.net] お題：ペントミノパズルの12種類のピースを表示する 30 名前：デフォルトの名無しさん mailto:sage [2016/12/20(火) 00:24:55.91 ID:j+0pMEUE.net] >>28 bash ideone.com/51ZjFV 端末でどうぞ 31 名前：デフォルトの名無しさん mailto:sage [2016/12/20(火) 23:33:43.23 ID:kU3OD1WB.net] お題：ペントミノパズルの全解を列挙する 32 名前： ◆QZschizo.iSO mailto:sage [2016/12/31(土) 18:31:14.25 ID:nvhfPpJn.net] 瞬速年忘れ問題 2017は素数か？素数なら何番目か？ 33 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 19:13:55.05 ID:39E0aGGL.net] >>31 C ideone.com/bUbh6M 34 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 19:23:15.93 ID:39E0aGGL.net] たった今一部訂正 35 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 22:12:03.44 ID:FA/ffAJp.net] >>31 同じくC みなさん今年はお世話になりました https://paiza.io/projects/Sio8sqlqmX547VHnZkpj_Q 36 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 22:16:03.44 ID:oE9oDlU2.net] ああ、2017ぐらいなら何の工夫もせず力技でごり押ししても大丈夫なのか。 そりゃそうだなw しかし俺は大みそかに何でこんなスレ覗いてるんだw 37 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 22:56:06.40 ID:07cXWtfS.net] >>31 Emacs Lisp (require 'cl-lib) (defun a (x) (cl-assert (and (integerp x) (> x 1))) (let ((l (let ((max-lisp-eval-depth most-positive-fixnum) (max-specpdl-size most-positive-fixnum)) (b (cl-loop for i from 2 to x collect i))))) (when (= (car (last l)) x) (length l)))) (defun b (l) (when l (cons (car l) (b (cl-remove-if (lambda (x) (= (% x (car l)) 0)) (cdr l)))))) (mapcar (lambda (x) (cons x (a x))) '(2 3 4 5 2017)) ((2 . 1) (3 . 2) (4) (5 . 3) (2017 . 306)) 38 名前：デフォルトの名無しさん mailto:sage [2016/12/31(土) 23:05:34.75 ID:39E0aGGL.net] >>32で9999991(664579番目の素数)を計算させたら 14.708sかかった >>34では0.391s (Athron X2 1.8GHz) 39 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 11:09:07.28 ID:IDYigKuX.net] >>31 Squeak/Pharo Smalltalk (Integer primesUpTo: 2017+1) indexOf: 2017 "=> 306 " 40 名前：デフォルトの名無しさん mailto:sage [2017/01/01(日) 12:49:27.41 ID:AcyWguNB.net] >>31 ruby2.0.0 require 'prime' def f9031(n) Prime.prime?(n) && Prime.each_with_index.find {|p, _| p == n} end p f9031(4), f9031(2), f9031(2017) ↓ false [2, 0] [2017, 305] 41 名前：デフォルトの名無しさん mailto:sage [2017/01/02(月) 13:41:39.67 ID:jOTKTTu2.net] >>31 Bash seq 2017 | factor | awk '{happy = $1;new=0}NF==2{year++;new=1} END{ print happy,new?year "th":"no","prime"}' 42 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 15:29:42.51 ID:h8C28I9Z.net] お題：与えられたクレジットカードの番号が正しいかどうか判定するプログラム。 43 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 15:34:59.42 ID:h8C28I9Z.net] お題：個人情報(氏名、年齢、住所、電話番号)のダミーデータ(偽物のデータ)を大量に作成するプログラムを作れ。 44 名前：デフォルトの名無しさん mailto:age [2017/01/02(月) 15:41:47.73 ID:h8C28I9Z.net] 上げまして 45 名前：デフォルトの名無しさん mailto:sage [2017/01/02(月) 15:47:49.69 ID:jOTKTTu2.net] >>42 wget -r -l 0 URL で適当なサイトから住所のデータを持ってきてシャッフルしダミーデータを生成 46 名前：デフォルトの名無しさん mailto:sage [2017/01/02(月) 16:37:06.06 ID:4fVv1Ig/.net] 正しいかどうかはクレカ会社でないとわからない Luhnアルゴリズムの計算だけでいいならわりと楽だけど 47 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 17:26:44.05 ID:h8C28I9Z.net] >>45 正論だね。じゃあルーンのアルゴリズムだけにしましょう。 48 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 17:28:27.34 ID:h8C28I9Z.net] >>44 住所と電話番号の関係についてもっとよく考えて下さい。 49 名前：デフォルトの名無しさん mailto:sage [2017/01/02(月) 17:39:17.52 ID:fYcUjGFM.net] ダミーだから、実在する住所、通話可能な番号は許可しないんだよな？ 50 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 18:22:02.26 ID:h8C28I9Z.net] >>48 それはちょっと難しいだろう。実在するかどうやって確認するのかい？ 51 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 18:27:21.29 ID:h8C28I9Z.net] 住所や電話番号の一部を伏せ字にすれば迷惑が掛からないとは思うが。。。 ダミーデータの用途によるんだよね。データベースのテスト用とか、●●●●用とか。 52 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/02(月) 18:48:13.86 ID:h8C28I9Z.net] ヒント：住所テキストデータの意味の定義は郵便局が行っている。 53 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 12:00:38.64 ID:y99Ue0/2.net] お題：□に自然数を入れて式を成立させる。^は、べき乗。 □^□+□^□=2017 54 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 12:44:11.80 ID:WgerS0Nf.net] 回答無限個あるけどいいの？ 55 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 13:15:36.49 ID:UpZyqzsr.net] なにわろてんねん 56 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 18:33:26.02 ID:dwq5ZcuT.net] ideone.com/BinLDz C++??なんかへんな問題だな。 57 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2017/01/04(水) 18:36:48.39 ID:83LRywdJ.net] 1^X+2016^1=2017 という形の解が無数に存在する。 これに対する制限がなければ面白くない。 58 名前：52 mailto:sage [2017/01/04(水) 19:17:06.25 ID:y99Ue0/2.net] では□に入れるのを2以上の自然数に変更させてください 59 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:01:48.48 ID:tU35eaIW.net] >>57 C++ 自然数nがa^b (a>=2,b>=2)で表せるかどうか判定する関数(isFact)の キャストが糞だから誰かいい書き方教えてください… ideone.com/cB1Ncw 60 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:17:21.92 ID:dwq5ZcuT.net] >>57 ideone.com/LbWS0f C++。初期条件変更。 答えがバッサリ減った。 61 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:37:14.33 ID:I0E1npQu.net] >>57 C ideone.com/v5btSV 62 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:41:45.40 ID:I0E1npQu.net] パフォーマンス改良 ideone.com/WDu0Ox 63 名前：デフォルトの名無しさん mailto:sage [2017/01/04(水) 23:54:08.76 ID:dwq5ZcuT.net] >>57 ideone.com/uxu5Bl C++。頑張って最適化。これ以上はアルゴリズム変えないと大変。 64 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 00:33:24.56 ID:FeYPKi0Y.net] >>57 Java https://ideone.com/vRiP1c 65 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 01:06:45.10 ID:FeYPKi0Y.net] >>57 Java ideone.com/hNhAMC >>63の ArrayList<String>[] list = new ArrayList[n]; がすんげぇメモリの無駄に思えたので 66 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 01:50:33.81 ID:Tpy8rHG5.net] >>57 C++ Σ_i=1~m □^□ = nに拡張してみた ideone.com/KKHS6o 67 名前：デフォルトの名無しさん mailto:sage [2017/01/05(木) 23:04:17.78 ID:Rf7MYzqE.net] >>57 ideone.com/9NAHBd ひまつぶしにやってみた。C言語。 68 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 07:39:18.38 ID:zAIptLYs.net] >>66 12^3 + 17^2 = 2017 17^2 + 12^3 = 2017 AB入れ替わりのこれはあるのに 3^4 + 44^2 = 2017 9^2 + 44^2 = 2017 がないのはなんでなんだぜ？ 69 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 08:14:14.51 ID:6Va7LE9a.net] ループ2が43で十分ってことになってるからかな？？ 70 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 08:20:39.24 ID:FKYJf0Ai.net] 全てのパターンを調べろっていうお題じゃないからな 71 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 09:28:08.44 ID:0R4aMgJq.net] >>57 Squeak/Pharo Smalltalk | ans | ans := OrderedCollection new. (2 to: 2017 sqrt) asDigitsToPower: 4 do: [:digits | 　((digits first: 2) raisedTo: (digits last: 2)) sum = 2017 　　ifTrue: [ans add: ('{1}^{3}+{2}^{4}' format: digits)] ]. ^ans asStringWithCr 72 名前：デフォルトの名無しさん mailto:sage [2017/01/06(金) 21:50:55.39 ID:aMqQPymQ.net] >>66 コメントアウトで書いた議論をそのままコードにすればいいのに、そんなにマジックナンバー埋め込んでどうすんだ 73 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 13:22:26.64 ID:XDbKIsfA.net] 画面に並んでいるコントロールに左上から右下にタブ順を割り振るアルゴリズムってどう書きますか？ 要するに矩形のソート方法です 綺麗に並んでるとは限りませんし重なっているものもあります 目で見た感覚的に正しくなるようにできますかね？ 74 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 14:54:28.66 ID:pxQLZoyB.net] >>72 (1) 重心の座標を求めて、 (2) Yでソート後Xでソート とか。 まあ「感覚的に正しい」なんて要件はこの手の問題じゃ曖昧以外の何でもないし どうやっても厳密な定義は無理だから、普通に左上座標で妥協してもいいんじゃないの 75 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 15:11:05.77 ID:RSx5of9s.net] ひな形作った jsbin.com/doniwanoqi/edit?html,output 76 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:11:20.51 ID:8OGZNgRf.net] 完全にスレチです。 JSスレでどうぞ。 77 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:17:34.30 ID:5tCF0ZUl.net] >>72 要件が曖昧すぎる どこを左上として、どこを右下とするのかで結果が変わるだろうし、あなたの感覚とズレが生じることもありえる 円形や一直線に並んでいる場合どこを左上とするのか、 画面右上、左下、右下を結んだ三角形（�凾ﾌような形）に並んでいるとき、左上と呼べるようなコントロールが存在しないけど、どうするのか 78 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:27:52.04 ID:MJfiP+Ss.net] >>76 いや，逆にあいまいな要件のみ提示されていて，それに感覚的に適合する実装を示せ，というお題だろう 客は自分のしたいことを本当には知っていない 79 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:33:29.68 ID:pxQLZoyB.net] >>77 こういう営業さんがいる会社は悲惨なことになるねw 冗談抜きで、IT業界の一部の労働環境が劣悪な理由はこういう安請け合いにある。 80 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:43:37.92 ID:MJfiP+Ss.net] >>78 あいまいな要件に対して実装を提案することは問題ないだろう？ 問題はその実装をちゃぶ台返しにされないようにすることだろう？ 実装の提案ができないようだと仕事にならないのでは？ 81 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 17:54:48.18 ID:pxQLZoyB.net] >>79 甘いと思うよ。 それ、製品の完成後にこちらの提案が「やっぱり何か違う」ってちゃぶ台返しされるリスクを 考えてないでしょ。 まあスレ違いなんでこれ以上言わないけどさ。 82 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 18:05:19.61 ID:RSx5of9s.net] これ業務じゃないんだし、自分だったらこう実装するっていうのを書いてけばええやん 83 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 18:21:10.87 ID:XDbKIsfA.net] というかこの問題は順位付けに自明な定義がないところが肝です AIなどでもそうですけど最近は曖昧かつ感覚に矛盾しない答えを求められる事が増えてきています 84 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 22:47:32.14 ID:Qw43e7Zm.net] で、お題ってどれ？ 85 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 23:19:01.41 ID:4zEbWvNh.net] 左上と右下を結ぶ線が垂直軸となる座標系に変換して 上から順に拾っていくだけじゃないの？ 86 名前：デフォルトの名無しさん mailto:sage [2017/01/08(日) 23:27:18.98 ID:c38VN46k.net] >>84 それだと(0, 80は(100, 0)より順番が若くなる気がするんだけどw 87 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 00:07:13.57 ID:g5s54bF4.net] >>85 何が言いたいのか分からないのでコメントしにくいけど 何かがおかしいとしたらあなたが考えた座標の変換が間違ってるんだろう 88 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 00:12:11.15 ID:i1HzEaEu.net] >>86 自分で自分の言ってることが分かってないのかw A = (0, 80)、 B = (100, 0)とすると、お前さんが言ってる座標兼では AはBの「上」になる。 このぐらいのことそれを思いついた5秒後に分かれよほんと 89 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 03:09:12.91 ID:iIb+NoJa.net] xでソートしてからyでソートだよな？ 違う？ 90 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 07:01:36.39 ID:s6rymSkb.net] >>88 (10,0)と(5,10000)で後者が先に選択されるのはいやだ 次のような長方形からなる集合Uを定義する： ∀a∈ U に対し,∃b∈ a.center ⊂ b or b.center ⊂ aが成立する 91 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 07:04:25.54 ID:s6rymSkb.net] ミスった 次のような長方形からなる集合Uを定義する： ∀a∈ U に対し,∃b∈Uが存在し a.center ⊂ b or b.center ⊂ aが成立する 要するに連結した長方形を集めるイメージですね タグの順位付けしたい長方形の集合を連結した長方形の集合に分割してから 92 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 07:08:49.40 ID:s6rymSkb.net] >>90 ほんとごめんなさい 集合Uの頂点を、最も原点(0,0)と集合Uの要素の長方形との距離が最も小さくなる長方形の左上の点と定義して 集合についてソートして、集合の要素についてxでソートするのが個人的に自然な感覚かなぁ 93 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 07:18:31.23 ID:s6rymSkb.net] xでソートしたらこのケースでダメだ i.imgur.com/wpFEt5J.png 集合の頂点を与える長方形を始点として中心点が近い要素順に並べるのが自然か 94 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 08:02:40.56 ID:g5s54bF4.net] >>87 > A = (0, 80)、 B = (100, 0)とすると、お前さんが言ってる座標兼では > AはBの「上」になる。 AがBの上になるのはあなたがそう変換した(あなたが決めた)からですよ 現在の座標系と左上と右下を結ぶ線が垂直軸となる座標系との関係性には 自由度があります（1秒で気付くと思いますが） どのような関係にするかはお題の人間の感覚的に正しく見えるような関係を 選ぶべきであって、あなたが選択した関係に従って変換された座標に対して あなたがおかしいと思ったというだけですね 95 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 10:48:32.68 ID:LhlDvgN3.net] >>93 何が言いたいのかさっぱりわからんな。 数学弱いなら無理しなくていいのに 96 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 10:56:12.03 ID:LhlDvgN3.net] ああ、きっと>>93の世界では平行移動で2点間の相対的な位置関係が 変わるんだろうねw 97 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 17:11:09.51 ID:s0WlKSpH.net] >>57 echo.2ch.net/test/read.cgi/tech/1434079972/19 やっとコンパイルが通ったよ，ママ‥ 98 名前：デフォルトの名無しさん mailto:sage [2017/01/09(月) 19:58:25.90 ID:nfkV3o0K.net] >>52 >>57 c https://ideone.com/KhbiRx 99 名前：デフォルトの名無しさん mailto:sage [2017/01/10(火) 18:29:09.08 ID:Ilw6o9KC.net] >>94 自己紹介かな 座標軸の張り方次第だっつーのw 100 名前：デフォルトの名無しさん mailto:sage [2017/01/10(火) 20:42:50.38 ID:ld93epow.net] >>98 じゃあ具体的にどういう座標系ならBがAの上になるのか言ってみろ馬鹿。 重症だな 101 名前：デフォルトの名無しさん [2017/01/10(火) 21:08:13.05 ID:fM7Pfoze.net] キチガイ降臨age 102 名前：デフォルトの名無しさん mailto:sage [2017/01/10(火) 21:19:39.42 ID:NXUZz/0q.net] 多分アマゾンギフトの人だよ 103 名前：デフォルトの名無しさん mailto:sage [2017/01/10(火) 21:52:46.22 ID:KKLCbaCP.net] 煽って教えてもらうメソッドか 低能って嫌だな 104 名前：デフォルトの名無しさん mailto:sage [2017/01/10(火) 22:22:58.60 ID:EjxLrxqR.net] どっちかっていうと消えてくれた方がありがたい 105 名前：デフォルトの名無しさん [2017/01/10(火) 22:34:23.43 ID:U9oYccVU.net] >>102 誰に物をいってるんだ？ 身の程をわきまえろ 106 名前：デフォルトの名無しさん [2017/01/10(火) 22:36:50.29 ID:U9oYccVU.net] >>99 煽って教えてもらうメソッドか 低能って嫌だな 107 名前：デフォルトの名無しさん mailto:sage [2017/01/11(水) 12:22:04.85 ID:gkYh8YCT.net] 教えるも糞も最初から正解は書いてある>>87 108 名前：デフォルトの名無しさん [2017/01/11(水) 14:49:58.96 ID:iTAjJX4H.net] >>104-105 uyか？Qか？ 109 名前：デフォルトの名無しさん mailto:sage [2017/01/11(水) 19:39:31.27 ID:J0kepQ6p.net] QZ=>>96 110 名前：デフォルトの名無しさん [2017/01/11(水) 21:08:00.35 ID:0XwQtfyu.net] QZ怒りのマンガでわかる心理学 111 名前：デフォルトの名無しさん [2017/01/11(水) 21:11:32.29 ID:NdPILmY+.net] >>86 おい！お前のせいでキチガイが増殖してるじゃねえか 責任とって全部持って帰れ 112 名前：デフォルトの名無しさん [2017/01/11(水) 21:13:18.42 ID:NdPILmY+.net] >>106 いや何を書いたとかじゃなくてさ、 >>99 煽って教えてもらうメソッドか 低能って嫌だな 113 名前：デフォルトの名無しさん [2017/01/11(水) 21:14:22.15 ID:NdPILmY+.net] 心理学怒りのマンガでわかるQZ 114 名前：デフォルトの名無しさん [2017/01/11(水) 21:18:25.47 ID:NdPILmY+.net] 頭の中がQZでいっぱいな心理学おじさんはQ呼称で自分だけは特別な存在アピール 115 名前：デフォルトの名無しさん mailto:sage [2017/01/11(水) 23:33:02.72 ID:IQVyJq11.net] 感覚に頼るような変なお題出すからキチガイが湧くんだよ 116 名前：デフォルトの名無しさん mailto:sage [2017/01/12(木) 00:14:22.68 ID:OC4R5S2o.net] IDが出るようになったのになぜQはコテを消したのか？ とんだチキンだったのではないだろうか？ 117 名前：デフォルトの名無しさん [2017/01/12(木) 07:39:01.18 ID:sAp1jMS4.net] 心理学怒涛の寝ても覚めてもQZ 118 名前：デフォルトの名無しさん mailto:sage [2017/01/12(木) 13:04:44.00 ID:OdpRjvqI.net] >>16 ようQ 119 名前：デフォルトの名無しさん mailto:sage [2017/01/12(木) 13:06:09.71 ID:OdpRjvqI.net] ×>>16 ◯>>116 似ても焼いても一つも人の役に立てないQ 120 名前：デフォルトの名無しさん [2017/01/12(木) 21:59:23.34 ID:yV1HOyPB.net] 心理学最終手段の居直りQ連呼 121 名前：デフォルトの名無しさん [2017/01/12(木) 22:00:27.56 ID:yV1HOyPB.net] 心理学おじさんとQZを同じ部屋にとじこめたらどうなるの？ 122 名前：デフォルトの名無しさん mailto:sage [2017/01/12(木) 22:38:03.38 ID:KUw+Fq2e.net] ラップでも始めるんじゃね。 123 名前：デフォルトの名無しさん mailto:sage [2017/01/13(金) 18:15:01.00 ID:hu5eqRYQ.net] QZ=>>96 124 名前：デフォルトの名無しさん mailto:さげ [2017/01/13(金) 21:36:42.18 ID:A97spPPP.net] お題：平面上に四つの点を二点間の距離が二種類になるように配置する 125 名前：デフォルトの名無しさん mailto:sage [2017/01/13(金) 23:31:20.40 ID:Z31HhTHu.net] 正三角形+中心 一辺を共有する二つの正三角形 正方形 他にあるかな？ 126 名前：デフォルトの名無しさん mailto:sage [2017/01/14(土) 03:29:31.67 ID:OgQ0DzZw.net] 異なる辺の長さa,bに対して 1)a:5本, b:1本 正三角形(辺の長さa)×2の菱形のみ 2)a:4本, b:2本 2辺と対角線の長さがaの凧型 正方形(辺の長さa) 3)a:3本, b:3本 正三角形と重心 3)はまだまだありそう 127 名前：デフォルトの名無しさん mailto:sage [2017/01/18(水) 21:37:38.36 ID:6wTe0sJ+.net] sage>>123 　● 　● ●　● ーーー 　　● ●　　　● 　　● ーーー 　●　　● ●　　　　● ーーー ●　● ●　● ーーー 　　● 　　● ●　　　● ーーー 　　●　　　● ●　　　● 128 名前：デフォルトの名無しさん mailto:sage [2017/01/18(水) 22:19:10.68 ID:vpMv+OF/.net] >>126 座標で書いてくれｗ 129 名前：デフォルトの名無しさん mailto:sage [2017/01/18(水) 22:50:29.86 ID:nuz5iQOv.net] プログラムで書いてくれ 130 名前：デフォルトの名無しさん mailto:sage [2017/01/19(木) 12:26:45.56 ID:ZgJp4HEV.net] >>123 平面上に3点P1、P2、P3を配置して三角形を作る時、正三角形を含む二等辺三角形でなければならない これ以外の配置のやり方をすると辺の長さが3種類となって前提に反する 上記のように配置した3点3点P1、P2、P3に4点目P4を配置するとき、 A) 二等辺三角形P1P2P3と底辺を共有し、長さが等しい辺と同じ長さの2辺をもつ2等辺三角形となるようにP4を配置する （底辺を共有するように二等辺三角形二つを配置する） または B) 三角形P1P2P3が正三角形のとき、外接円の中心と一致するようにP4を配置する の二通りの配置の仕方がある。逆に言えば、この条件に従うように座標を決定すれば無限の配置の仕方が可能 131 名前：デフォルトの名無しさん mailto:sage [2017/01/19(木) 13:43:42.27 ID:ff1dOA50.net] >>123 Javascript codepen.io/anon/pen/mRRxXx?editors=1011 観測的手法で　分解能に依存するけど網羅できるはず 132 名前：デフォルトの名無しさん mailto:sage [2017/01/19(木) 14:02:27.30 ID:ff1dOA50.net] って、>>123よく読んだら>>130じゃダメだ！ orz 失敬　撤回しますわ 133 名前：デフォルトの名無しさん mailto:sage [2017/02/21(火) 19:03:19.21 ID:vHI0u4yb.net] お題：ある数 n が与えられたとして、n の原始根の位数を求めよ 条件：原始根については https://ja.wikisource.org/wiki/%E5%88%9D%E7%AD%89%E6%95%B4%E6%95%B0%E8%AB%96%E8%AC%9B%E7%BE%A9/%E7%AC%AC1%E7%AB%A0/%E5%8E%9F%E5%A7%8B%E6%A0%B9%EF%BC%8C%E6%8C%87%E6%95%B0 を参照せよ、ただし、このテキストでは n が素数であることを前提にしているが、原始根は n が素数でなくても存在する。n が素数でない場合にも対応せよ。 原始根を、小さい数から順次位数を力技で求める方法は認めない。 n の原始根が存在しない場合にアルゴリズムが停止する必要は要請しない。 134 名前：デフォルトの名無しさん mailto:sage [2017/03/02(木) 16:39:35.38 ID:TV66ybVQ.net] なんでお前偉そうなの 宿題は自分でやりな 135 名前：デフォルトの名無しさん mailto:sage [2017/03/03(金) 09:55:45.90 ID:SUJ1/PZz.net] C言語スレよりロンダリング x面体のサイコロy個を振って得られる出目のヒストグラムを出力するプログラムを作ろう dice.exe 6 3 (6面体のサイコロ3個) の出力例 出目 出現回数 出現率 ---- -------- ------ 　 3　　　　1　 0.46 　 4　　　　3　 1.39 < 136 名前：br> 　 5　　　　6　 2.78 　 6　　　 10　 4.63 　 7　　　 15　 6.94 　 8　　　 21　 9.72 　 9　　　 25　11.57 　10　　　 27　12.50 　11　　　 27　12.50 　12　　　 25　11.57 　13　　　 21　 9.72 　14　　　 15　 6.94 　15　　　 10　 4.63 　16　　　　6　 2.78 　17　　　　3　 1.39 　18　　　　1　 0.46 [] [ここ壊れてます] 137 名前：デフォルトの名無しさん mailto:sage [2017/03/03(金) 18:25:27.76 ID:P2edee8O.net] 厳密解を出す場合なら動的計画法で素朴にやるとO(x^2y^2) 138 名前：デフォルトの名無しさん mailto:sage [2017/03/03(金) 20:41:14.23 ID:yCeb1kZ1.net] >>134 Java https://ideone.com/mVatvl 139 名前：デフォルトの名無しさん mailto:sage [2017/03/03(金) 21:29:12.11 ID:SEBfdj3K.net] この問題のポイントはサイコロを正N面体に限定してないところだな それと3面体なんていう指定をされたらどうするとかな 140 名前：デフォルトの名無しさん mailto:sage [2017/03/04(土) 01:08:57.14 ID:eNSOp3uJ.net] >>136 やるなあ パスカルの三角形のもう一段階上みたいな感じか 141 名前：デフォルトの名無しさん mailto:sage [2017/03/04(土) 04:55:45.63 ID:VvbFezkO.net] >>134　C https://ideone.com/FmyEy7 142 名前：デフォルトの名無しさん [2017/03/05(日) 03:05:26.21 ID:FnE3e1tn.net] お題: ハート・ダイヤ・クラブ・スペードを各13枚ずつもつ52枚のカードから13枚のカードが配られます. Q1. 配られたカードの種類がもっとも均質でない(13・0・0・0)確率P1と, もっとも均質である(4・3・3・3)確率P2を求めてください. Q2. 確率P1よりも低い確率の組み合わせが存在する場合, その組み合わせと確率を求めてください. Q3. 確率P2よりも高い確率の組み合わせが存在する場合, その組み合わせと確率を求めてください. 143 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 07:48:05.16 ID:KWf32tSz.net] 宿題は自分でやろう 144 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 09:20:54.74 ID:FnE3e1tn.net] >>134 Emacs Lisp (require 'cl-lib) (defun dice (x y) (let ((b '(0))) (dotimes (i y) (setq b (reduce (lambda (a b) (append a b)) (loop for n in (loop for i from 1 to x collect i) collect (loop for m in b collect (+ n m)))))) (pp (loop for n in (remove-duplicates b) collect (list n (count n b) (/ (float (count n b)) (length b))))))) (dice 6 3) ((3 1 0.004629629629629629) (4 3 0.013888888888888888) (5 6 0.027777777777777776) (6 10 0.046296296296296294) (7 15 0.06944444444444445) (8 21 0.09722222222222222) (9 25 0.11574074074074074) (10 27 0.125) (11 27 0.125) (12 25 0.11574074074074074) (13 21 0.09722222222222222) (14 15 0.06944444444444445) (15 10 0.046296296296296294) (16 6 0.027777777777777776) (17 3 0.013888888888888888) (18 1 0.004629629629629629)) 145 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 11:59:20.94 ID:h/zPOUa4.net] >>134 Squeak/Pharo Smalltalk | dice | dice := [:x :y | 　| bag | 　bag := Bag new. 　(1 to: x) asDigitsToPower: y do: [:ary | bag add: ary sum]. 　bag sortedElements collect: [:kv | {kv key. kv value. kv value / bag size * 100s2}] ]. dice value: 6 value: 3 "=> { 　{3 . 1 . 0.46s2}. 　{4 . 3 . 1.38s2}. 　{5 . 6 . 2.77s2}. 　{6 . 10 . 4.62s2}. 　{7 . 15 . 6.94s2}. 　{8 . 21 . 9.72s2}. 　{9 . 25 . 11.57s2}. 　{10 27 12.50s2}. 　{11 27 12.50s2}. 　{12 . 25 . 11.57s2}. 　{13 . 21 . 9.72s2}. 　{14 . 15 . 6.94s2}. 　{15 . 10 . 4.62s2}. 　{16 . 6 . 2.77s2}. 　{17 . 3 . 1.38s2}. 　{18 . 1 . 0.46s2} } " 146 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 15:38:00.05 ID:Z6iNRFEa.net] プログラミングする意味のないお題ばっか 147 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 17:57:56.52 ID:I6Dgph4B.net] >>144 プログラミングする意味のあるお題作ってくれよ 148 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 18:17:30.28 ID:WuF+gNTE.net] >>134 ocaml https://ideone.com/SWZRyZ 149 名前：デフォルトの名無しさん mailto:sage [2017/03/05(日) 20:12:40.81 ID:Oe+PHv4r.net] いや>>134は10面体10個を10秒以内で計算するとかの条件付けるとプログラミングの意味あるぞ >>136はよく出来てるとオモタ 150 名前：デフォルトの名無しさん mailto:sage [2017/03/07(火) 18:28:24.63 ID:sN5zB8qN.net] >>144 そんなこといわずに >>132 を解いてくれよぅ 原始根の存在定理を素数以外に拡張していいのかどうか、いまいち確信がもてないんだ… 151 名前：140 mailto:sage [2017/03/12(日) 13:40:16.63 ID:VxOAsp1C.net] 乱数を使用して10億回試行してみたところ,4・3・3・3の出現回数は105357474 (10.5%), 13・0・0・0は0(12・1・0・0は3)でした. 4・3・3・3よりも出現回数の多い組み合わせは以下の4通りでした. 4・4・3・2 215505541回 (21.6%) 5・3・3・2 155167267回 (15.5%) 5・4・3・1 129327030回 (12.9%) 5・4・2・2 105786216回 (10.6%) このお題はHAKMEM MIT AI Memo 239 ITEM 46 (Schroeppel)を参考にしました. www.inwap.com/pdp10/hbaker/hakmem/number.html#item46 152 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 16:34:29.50 ID:krVzShuL.net] A+B+C+D+E+F+G+H+I+J+K=170 A-B=−2 A>B>C>D>E>F>G>H>I>J>K A>0のとき この式を満たすA〜Kを全て求めよ 153 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 16:44:02.34 ID:IzMGTasH.net] A-B=−2 A>B この二つを同時に満たせません 154 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 1 ] [ここ壊れてます] 155 名前：9:36:54.08 ID:krVzShuL.net mailto: 済みません間違えてました A-B=2でした [] [ここ壊れてます] 156 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 19:49:23.03 ID:3IaHiZWx.net] そっちを直すのか 157 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 19:50:50.29 ID:IzMGTasH.net] 修正がA>B>C...→A<B<C...じゃなくてA-B=-2→A-B=2だと無数に求められるから全て求めるのは無理じゃないかな？ 158 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 19:57:24.58 ID:IzMGTasH.net] 例えばこんなん int A=68,B=66,C=8,D=7,E=6,F=5,G=4,H=3,I=2,J=1,K=0; while(true) { A++; B++; K-=2; } 159 名前：デフォルトの名無しさん mailto:sage [2017/03/24(金) 22:00:38.98 ID:DBVfNEjn.net] こういうお題を書きたいのなら制約条件を良く考えないと A+B+C+D+E+F+G+H+I+J+K=170 A>B>C>D>E>F>G>H>I>J>K A〜Kは全て自然数とする こういうのとかな 160 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 07:43:46.30 ID:LJUF46o1.net] >>150 ideone.com/ZXck7T C++。ちょっと自信ないけど、一応できた。 頑張って最適化した。 161 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 07:59:35.07 ID:LJUF46o1.net] あれ？条件おかしいな。俺ってせっかちさん！ 162 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 08:00:35.83 ID:LJUF46o1.net] と思ったら専ブラの安価化けてた。 163 名前：デフォルトの名無しさん [2017/03/25(土) 13:31:35.87 ID:wrPCcs4m.net] https://www.hackerrank.com/sinapusu2002-1 ハッカーランクという競技プログラミングサイトで出題中の問題。 オリジナル問題6問。 ハッカーランクに登録して解いてくれ。 スレ違いだろうか？ ２つの三角形の共有面積はかなりマゾいのでお勧め。 一応競技プログラミング界の重鎮で東大で数学してる人にも解いてもらったりはしたけど。 挑戦者数が増えないのが悩みの種。 ただいま次回コンテストに向けて3/6問作成済み、3問作成予定。 164 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 13:58:45.28 ID:LJUF46o1.net] レジストするのめんどいのと頭悪いので無理〜〜。 165 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 14:01:32.89 ID:P+Eymz64.net] 挑戦者数が増えないのは問題が悪いからだろ。 良問をだしてれば自然と挑戦者は増えるはず。 宣伝してズルした時点でお前の人間性の低さがわかるんだよ 166 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 14:02:58.32 ID:LJUF46o1.net] んんん？どうした？ 167 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 14:13:46.85 ID:LJUF46o1.net] 頭悪いって俺のこと行ってるんだが。すまんな！ 168 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 15:30:57.12 ID:P+Eymz64.net] >>160 東大生に解いてもらっても屑な問題はクズだ。 そんなもので東大のブランド志向に思ってる奴を釣ろうとしている お前も同じ穴の貉だよ。 俺はそいういうやつは軽蔑するな。 169 名前：デフォルトの名無しさん mailto:sage [2017/03/25(土) 18:47:23.24 ID:OqJqFalA.net] まあ完全にスレチだから無視すれば？ 170 名前：デフォルトの名無しさん mailto:sage [2017/03/28(火) 09:57:58.96 ID:084k/T9f.net] お題：格子点を1個だけ含む面積4の凸多角形を求める 171 名前：デフォルトの名無しさん mailto:sage [2017/03/28(火) 13:00:05.06 ID:qGSQyMpt.net] >>167 斜めってる正方形とか、無限にできるんでないの？ 172 名前：デフォルトの名無しさん mailto:sage [2017/03/29(水) 00:52:34.65 ID:IYsCUDjz.net] >>167 xが0.9未満なら (0,0)(x,0)(0.1,4/x)(0.1+x,4/x) の平行四辺形でいいよね 173 名前：デフォルトの名無しさん mailto:sage [2017/04/01(土) 19:39:48.39 ID:bpxrLk3k.net] >>167 (0,0)-(0.8,0)-(9.8,10) 174 名前： ◆QZaw55cn4c mailto:sage [2017/04/08(土) 18:54:06.32 ID:O01wSTFq.net] [1] 授業単元：線形代数 [2] 問題文 与えられたn字正方行列の逆行列を求めよ。 求めた行列は、与えられた行列を掛けて n　次単位行列となることを確認せよ。 以下のCプログラムを元に実装されていない部分を補完せよ。C 以外の言語で記述する場合は、この C プラグラムの対応する部分も記述すること。 https://ideone.com/k996I1 逆行列が存在しない場合は適切に処理してよい。 [3] 環境 　[3.1] OS： 問わない 　[3.2] コンパイラ名とバージョン： 問わない 　[3.3] 言語： C または任意の言語 [4] 期限： ([2017年4月15日23:59まで] [5] その他の制限：お題です。 175 名前：デフォルトの名無しさん mailto:sage [2017/04/08(土) 21:30:20.69 ID:n0eUgEex.net] QZのひとか。ここは宿題スレじゃないよ。 176 名前：デフォルトの名無しさん mailto:sage [2017/04/08(土) 21:43:02.82 ID:gcfXcmks.net] お題ですぅ‥ 177 名前：デフォルトの名無しさん mailto:sage [2017/04/09(日) 20:50:45.75 ID:uOnZBcD2.net] お題： 辺の長さが100より小さい既約のピタゴラス三角形をすべて求めう。 出力の順序は問わない。 178 名前：デフォルトの名無しさん mailto:sage [2017/04/09(日) 23:51:51.14 ID:eG+aks/D.net] >>171 これ、宿題の解答にならないようなプログラムにするのは結構難問かも。 179 名前：デフォルトの名無しさん mailto:sage [2017/04/10(月) 23:26:39.47 ID:9Aj0xnIY.net] >>174 Java https://ideone.com/g3K6Z8 180 名前：デフォルトの名無しさん mailto:sage [2017/04/11(火) 01:24:52.99 ID:gtlUVgn4.net] >>174 Ruby N=100 (1..N).step(2){|a|(a+2..N/a).step(2){|b|c=b*b-a*a>>1;a.gcd(b)<2&&c<N&&p([a*b,c,c+a*a])}} 181 名前：デフォルトの名無しさん mailto:sage [2017/04/11(火) 21:44:43.48 ID:MO2JwS29.net] お題：フランス語で1から100まで数える 182 名前：デフォルトの名無しさん mailto:sage [2017/04/11(火) 21:50:23.26 ID:LjaFq8Gx.net] 1（フランス語　・・・　100（フランス語 183 名前：デフォルトの名無しさん mailto:sage [2017/04/11(火) 22:35:16.36 ID:gMY8o6LW.net] お題： トランプの札のリストが文字列で与えられるので 同じマークor同じ数字のペアが最大何組できるか求めよ D：ダイヤ、H：ハート、S：スペード、C：クラブ、 A：エース、2〜9：数字の2〜9、T：10、J：ジャック、Q：クイーン、K：キング 例： "DAD2HAH3" -> 2 "DAD3D8D9DJH5H8HKSASKCAC5C8CK" -> 7 "SAS2S3S4S5S6S7S8S9C2C3C4C5C6C7C8C9CT" -> 9 184 名前：デフォルトの名無しさん mailto:sage [2017/04/13(木) 22:19:39.85 ID:S/dW7TnL.net] >>180 知らんけどNP完全とかそういうやつ？ 違ったらスマソ 185 名前：デフォルトの名無しさん mailto:sage [2017/04/14(金) 01:20:45.82 ID:xslPbFLu.net] >>180 ideone.com/UgHgtz C++。多分間違ってる。数字も合わないしな。 i7-6700でリリースビルドで40秒くらいかかる。 見てる感じ塩基配列だよなこれ。 186 名前：デフォルトの名無しさん mailto:sage [2017/04/14(金) 02:38:04.01 ID:/pg6QsRy.net] >>180 c++ ideone.com/WK9LQi 問題文には明記なかったが、ユニークな52枚(4*13)1セットだけだとして解いた。 計算量は 1問 14^4*6 くらいになるのだろう。 (最初は14^5*6でやったが、ひとつ計算量落とした。 この数値じゃ、意味なかったけど) 187 名前：デフォルトの名無しさん mailto:sage [2017/04/14(金) 06:35:41.46 ID:qDe/EUun.net] 動的計画法はよくわからん。 書けもしない。Orz 188 名前： ◆QZaw55cn4c mailto:sage [2017/04/14(金) 18:11:30.73 ID:UkhykSdt.net] >>171 人気がないね…ループの知識だけあればOKでループの構成を考える腕力が多少あればそれなりに楽しめるお題と思ったんだけれども 新規性がないのが弱点なのかな？ 次のお題を考えることにしようか 189 名前：デフォルトの名無しさん mailto:sage [2017/04/14(金) 22:18:00.95 ID:qDe/EUun.net] ideone.com/Et54St 意味ないけど最適化したら現実的な時間で終わるようになった。 今暇なので、いい暇つぶしになったなぁ。意味ないけど。 190 名前：デフォルトの名無しさん [2017/04/15(土) 10:54:03.85 ID:tThpfxds.net] >>186 ＞DAD2HAH3:4,2 ＞DAD3D8D9DJH5H8HKSASKCAC5C8CK:394,38 ＞SAS2S3S4S5S6S7S8S9C2C3C4C5C6C7C8C9CT:1972800,16 どういうこと？？？ 組み合わせの数がカードの枚数すら超えてるの？？？ 191 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 11:05:02.69 ID:eiwfOO/l.net] そいつのコード見てないから分からんが多分、最初の例なら 1)DAHA 2)DAD2 3)HAH3 4)DAD2,HAH3 みたいにカウントされちゃってるんじゃないか？ 192 名前：デフォルトの名無しさん [2017/04/15(土) 17:04:06.01 ID:gqnlgfq4.net] >>180 最後のは9じゃなくて8組だろ 同じマーク　S：4組、C：4組、合計8組 同じ数字　2,3,4,5,6,7,8,9の各ペアで合計8組 最大組数は8組 193 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 17:17:26.54 ID:gqnlgfq4.net] >>180　C ideone.com/vD1JHy 194 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 17:40:29.91 ID:gqnlgfq4.net] 俺も間違ってたので修正した ideone.com/vD1JHy 答えは2組,6組,8組じゃないの？ 195 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 19:29:06.55 ID:BbAH7YT3.net] >>189 反例 数字で(S2=C2)で1ペア、 残り8枚ずつで同スートのペアを8つくる 合計 9ペア 数字で(S2=C2, S3=C3, S4=C4) 3ペア 残りは6枚ずつになるので、6ペアできる 合計9ペア その他 数字のペアを奇数個つくれれば、9を作れる 196 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 20:24:00.89 ID:gqnlgfq4.net] >>192 意味がわかった 197 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 21:12:03.91 ID:v99qvGb2.net] 8bitの整数を一つ引数として与え、 上位4bitと下位4bit を符号なし整数として掛け算した結果の8bitを返す関数を 論理演算子のみで実装したもののうち、 もっとも実行時間が短いものを挙げよ。 論理演算は全て１命令１サイクルとする。 198 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 21:23:09.15 ID:v99qvGb2.net] 表引きで１クロックとかは無しね。 199 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 22:10:36.10 ID:fG6QrlNX.net] 最も実行時間が短いかどうかの判定ってＮＰ完全っぽそう 200 名前：デフォルトの名無しさん mailto:sage [2017/04/15(土) 23:11:44.46 ID:v99qvGb2.net] 8bitなら力技で解けないかな？ 201 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 03:52:44.93 ID:T2fHNlZE.net] ideone.com/QNbwWa C++。えーん終わらないよ〜。 デバッグ覗いたら早い段階で答え出てるんだけど打ち切り方がわからない。 >>186などは題意を把握してなかった。 202 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 05:47:25.03 ID:T2fHNlZE.net] ふえぇーん。1時間半回してもおわらないよー。 動的計画法すごい。 203 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 08:35:26.85 ID:0couv4LD.net] >>180 Java ideone.com/ABj7QB 204 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 14:11:29.20 ID:oOWZ5kyJ.net] お題 これ www.mext.go.jp/programin/ に相当するアプリケーションを 非Ｗｅｂ環境でも使えるような仕様で 単一の言語でコーディングしろ 205 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 14:13:03.29 ID:aobdGNjh.net] >>180　C ideone.com/CH5bY4 206 名前：デフォルトの名無しさん mailto:sage [2017/04/16(日) 16:14:29.58 ID:z1TgtbB7.net] >>201 Squeak Smalltalk で https://scratch.mit.edu/scratch_1.4/ 207 名前：デフォルトの名無しさん mailto:sage [2017/04/20(木) 11:21:43.08 ID:QJAwY2Mb.net] >>201 Pharo Smalltalk のもあった www.phratch.com/ 208 名前：デフォルトの名無しさん mailto:sage [2017/04/22(土) 15:45:58.46 ID:Btp73K0S.net] こういうのに瞬時に回答できるようになるまでどのくらいの時間がかかるものなの？ 209 名前：デフォルトの名無しさん mailto:sage [2017/04/22(土) 21:31:15.12 ID:DL7Mzdas.net] お題：　くまモンをかく 210 名前：デフォルトの名無しさん mailto:sage [2017/04/23(日) 10:45:10.81 ID:33igmMUW.net] くまモン 211 名前：デフォルトの名無しさん mailto:sage [2017/04/23(日) 20:01:13.92 ID:fsvPYIZO.net] >>205 一瞬 212 名前：デフォルトの名無しさん mailto:sage [2017/04/23(日) 20:24:02.53 ID:nc0/ghBL.net] とんちかよw 213 名前：デフォルトの名無しさん mailto:sage [2017/04/23(日) 20:37:32.86 ID:7bZTt8wr.net] ああ、やっと意味が分かったｗ 214 名前：デフォルトの名無しさん mailto:sage [2017/04/24(月) 05:27:50.71 ID:+7Sa1g5s.net] >>206 light.dotup.org/uploda/light.dotup.org437888.png ideone.com/eJ2xul C++。あー大変だった。 以前ラウム螺旋作った時の流用したけど、タートルグラフィックはGUI無いとキツイなぁ。 似てないとか苦情は受け付けません。あしからず。 215 名前：sage [2017/04/24(月) 05:36:47.92 ID:4BlFLqQl.net] >>206 glsl glslsandbox.com/e#40107.0 似てないなぁ…… >>211 GJ! 先越されたー 216 名前：デフォルトの名無しさん mailto:sage [2017/04/24(月) 05:43:14.19 ID:+7Sa1g5s.net] >>212 時代は3Dか・・・。 ロートルにはできん芸当だ。GJ。 217 名前：デフォルトの名無しさん mailto:sage [2017/04/24(月) 11:57:42.03 ID:SbFm/aQk.net] >>212 へーこんなところあるんだ知らんかった 218 名前：デフォルトの名無しさん [2017/04/24(月) 21:55:43.67 ID:WHcUZH3G.net] すみません。何言ってるかわからないだろうけど、 12桁の数字が並ぶ羅列は何を表しているのでしょうか？？？ /021/000/000/000 とか 219 名前：デフォルトの名無しさん mailto:sage [2017/04/24(月) 22:16:03.57 ID:9NN+cmWY.net] 最初の3つが市外局番　次が区番号　残りが個人識別子だよ 220 名前：デフォルトの名無しさん mailto:sage [2017/04/25(火) 05:30:26.30 ID:8YHxJHtd.net] 12桁くらいの数字を使う規格ってそれなりにありそうだけどな。 221 名前：デフォルトの名無しさん mailto:sage [2017/04/25(火) 23:23:31.83 ID:bgy6YsrD.net] お題：自然数nのヤング図形をもとめる 222 名前：デフォルトの名無しさん mailto:sage [2017/04/26(水) 07:01:54.95 ID:ezAhxtxU.net] >>218 ギブアップ。うぃきぺ見ても意味わかんない。頭爆発しそう。 223 名前：デフォルトの名無しさん mailto:sage [2017/04/26(水) 07:24:25.57 ID:5DpYjYxD.net] 数字の入ったヤング盤じゃなくて、図形だけでいいの？ nのヤング図形を全部求めるってこと？ 224 名前：デフォルトの名無しさん mailto:sage [2017/04/26(水) 12:59:54.54 ID:BGeLfl3x.net] >>218 Nim https://wandbox.org/permlink/cNfdZ0908tcbQhod 225 名前：221 mailto:sage [2017/04/26(水) 16:03:33.34 ID:BGeLfl3x.net] >>221は1行目が「× Yaund」「○ Young」という恥ずかしい間違いから始まり N <= 0の時のチェック漏れやら 長方形のパターン(N=10の時の[5,5]や[2,2,2,2,2])が抜けてるなど ミスしまくってました　orz てことで、修正します >>218 Nim https://wandbox.org/permlink/RUf5B0SVg0MozD25 226 名前：デフォルトの名無しさん mailto:sage [2017/04/26(水) 16:07:13.33 ID:ezAhxtxU.net] なーんだそれでいいのか。 それならなんとか組めるかも。 227 名前：デフォルトの名無しさん mailto:sage [2017/04/26(水) 19:19:14.42 ID:ezAhxtxU.net] >>218 ideone.com/6PRt5z C++。こういうこと？やっぱりよくわからん。 228 名前：デフォルトの名無しさん mailto:sage [2017/04/27(木) 10:01:02.40 ID:LnKeLTZP.net] 問題の想定解と合ってるのかな? 出題者のコメントが欲しいところ 229 名前：デフォルトの名無しさん mailto:sage [2017/05/05(金) 08:45:57.67 ID:f8yfM1E5.net] 素人の言語処理100本ノック:まとめ qiita.com/segavvy/items/fb50ba8097d59475f760 230 名前：デフォルトの名無しさん [2017/05/24(水) 21:48:00.75 ID:7oyfe1wq.net] お題：以下を出力 857142 714285 571428 428571 285714 142857 231 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 22:07:09.20 ID:L9mU+g8W.net] >>227 とりあえずPythonでやってみた https://ideone.com/UCpMVm 232 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 22:19:15.30 ID:lEJcnLZT.net] >>227 法則性がわからん 文字列じゃなくあくまで数値で？ 233 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 23:21:53.31 ID:FC0+qCJl.net] >>229 一番下の数字に1∼6を掛ければ 234 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 23:33:01.85 ID:0ssPtL9D.net] >>227 C ideone.com/eRLqLi 235 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 23:48:35.88 ID:99+UTRWu.net] 各々n/7の循環部だね 236 名前：デフォルトの名無しさん mailto:sage [2017/05/24(水) 23:51:10.59 ID:99+UTRWu.net] >>227 Ruby 6.downto(1){|i|p i*1000000/7} 237 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 01:00:30.19 ID:vvyNjvHe.net] >>227 Perl use 5.016; use integer; say 857142 / $_ for 1..6; 238 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 01:16:57.10 ID:vvyNjvHe.net] >>234 間違えてたｽﾏｿ Perl use 5.016; say 142857 * (7 - $_) for 1..6; $ perl 9_227.pl 857142 714285 571428 428571 285714 142857 239 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 13:01:14.56 ID:+8TeyhTL.net] >>227 Squeak/Pharo Smalltalk (142857 * (6 to: 1 by: -1)) asStringWithCr => '857142 714285 571428 428571 285714 142857' 240 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 13:21:29.71 ID:+8TeyhTL.net] >>227 GNU Smalltalk 6 to: 1 by: -1 do: [:i | (142857 * i) displayNl] ideone.com/yNgDeB 241 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 18:49:32.83 ID:F0MQej0l.net] >>227 common lisp (do ((i 6 (- i 1))) ((equal i 0)) (print (floor (/ (* 1000000 i) 7)))) 242 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 19:28:46.12 ID:MmhezNib.net] お題が情報不足過ぎて何を使っていいのか悪いのかがわかんない 243 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 21:35:24.87 ID:Z+pf95Ly.net] >>227 @Mathematica In[1]:=142857// 　　IntegerDigits// 　　NestList[RotateLeft,#,Length[#]-1]&// 　　Map[FromDigits,#]&// 　　Sort// 　　Reverse// 　　Map[{#}&,#]&// 　　Grid Out[1] = 857142 　　　　 714285 　　　　 571428 　　　　 428571 　　　　 285714 　　　　 142857 244 名前：デフォルトの名無しさん [2017/05/25(木) 21:56:10.72 ID:ShXkIc2G.net] >>227 Io a := 999999 / 7 for(i, 6 * a, a, -a, i println) 245 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 22:10:21.35 ID:73MQsPzv.net] >>227 Nim for i in countdown(6,1): stdout.writeline i*142857 246 名前：デフォルトの名無しさん mailto:sage [2017/05/25(木) 23:50:37.58 ID:SwCyV6dp.net] >>227 ruby puts (1..6).map {|i| i * 142857}.reverse >>227 rust fn main() { //println!("{}", (1..7).rev().map(|i| (142857 * i).to_string()).collect::<Vec<_>>().join("\n")); for i in (1..7).rev() {println!("{}", 142857 * i)} } 247 名前：デフォルトの名無しさん [2017/05/27(土) 20:11:30.48 ID:x9+XjHY5.net] 227 R write((6:1)*999999/7.",1) 248 名前：デフォルトの名無しさん mailto:sage [2017/05/28(日) 14:54:52.19 ID:/dM5Kslk.net] >>227 SWI-Prolog main(N, X) :- X1 is X * N, write(X1), nl, N > 1, N1 is N - 1, main(N1, X). :- main(6, 142857). 249 名前：プログラミングのお題 [2017/06/01(木) 12:06:57.65 ID:o30QeXgp.net] トランプ氏の謎の単語 covfefe の謎を解明する。 250 名前：デフォルトの名無しさん [2017/06/01(木) 13:12:24.25 ID:/fo1vNun.net] ↑ c,o,v,f,e,f,eの7文字をランダムに出力し続け、covfefeが完成するまでの文字数をカウント 251 名前：デフォルトの名無しさん mailto:sage [2017/06/01(木) 13:47:08.78 ID:sszEh+oH.net] >>247 Squeak/Pharo Smalltalk | count covfefe buffer | count := 0. covfefe := 'covfefe' asOrderedCollection. buffer := covfefe copy atAllPut: $*. [　count := count + 1. 　Transcript nextPut: (buffer removeFirst; add: covfefe atRandom). 　(count isDivisibleBy: 1000) ifTrue: [Transcript endEntry]. 　buffer = covfefe ] whileFalse. Transcript endEntry. ^count "= 3430 252 名前：1 " [] [ここ壊れてます] 253 名前：デフォルトの名無しさん mailto:sage [2017/06/01(木) 23:30:50.24 ID:MQJNOblg.net] >>247　効率悪いけれど… Perl $w='covfefe'; @l=split '',$w; do { $_ .= $l[int(rand(7))]; } while (!/$w/); print index $_, $w . "\n"; 254 名前：デフォルトの名無しさん mailto:sage [2017/06/01(木) 23:44:01.17 ID:MQJNOblg.net] >>249 ｺﾞﾒﾝ、これだと最初に見つかったときに0になっちゃうんで 「完成するまでの文字数」を出すためには × print index $_, $w . "\n"; ↓ ○ print index($_, $w) + 7 . "\n"; に修正させてください。 255 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 02:47:24.66 ID:znhUDH9D.net] >>247 Nim import random const word = "covfefe" var count, match = 0 randomize() while match != word.len():     let ch = word[random word.len()]     stdout.write ch     match = if ch == word[match]: match + 1 else: 0     inc count echo "\n", count 256 名前：デフォルトの名無しさん [2017/06/02(金) 07:41:45.64 ID:r1TSATN8.net] それだとccovfefeのときとか抜け落ちるんじゃね？ 257 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 14:13:15.27 ID:znhUDH9D.net] >>252 その通りですね お題のcovfefeなら安直な修正でいいかな -    match = if ch == word[match]: match + 1 else: 0 +    match = if ch == word[match]: match + 1 elif ch == word[0]: 1 else: 0 258 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 20:36:39.00 ID:GZbUsfWf.net] >>247 ruby covf, buff = 'covfefe', '' buff += covf.chars.sample until buff.end_with? covf p buff.size 259 名前：片山博文MZ mailto:sage [2017/06/02(金) 21:34:10.62 ID:ECCI41T/.net] お題: ２つの別々の牧場ウィンドウがあり、その中に複数の牛がうごめいている。複数の牛を選択して、別の牧場ウィンドウにドラッグ＆ドロップできるようにしなさい。 260 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 21:43:02.00 ID:ZGhpg2JU.net] GUIの課題ってコードも長くなりがちたから答えにくくない？ 261 名前：片山博文MZ mailto:sage [2017/06/02(金) 21:46:38.91 ID:ECCI41T/.net] 賞金は早い者勝ちで三千円。スクリプト野郎どもにはできないだろう。へっ。 262 名前：片山博文MZ mailto:sage [2017/06/02(金) 22:03:27.70 ID:ECCI41T/.net] >>256 githubがあるじゃないか。 263 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 22:03:48.67 ID:doJoDkLD.net] 賞金とか誰かと思ったら片山博文MZか。 264 名前：デフォルトの名無しさん mailto:sage [2017/06/02(金) 23:44:04.74 ID:cFhdiKGB.net] 三千円じゃ安い 265 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 01:24:32.19 ID:4TZnG99D.net] >>255 動的言語のscriptでもQt,Wxwidget,Tkinterなど色々のGUI　ｆｗが使えるから書けるよ。 でも、エッセンスがなく、会コードが無駄に長くなるお題は、作成に時間がかかるし獣よな技術はないし 趣旨を考えで出題しろよ。 すくなくとも自分で作る気になれる題を出せ 266 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 01:26:10.05 ID:4TZnG99D.net] >>261 会コードが無駄に長くなるお題は、作成に時間がかかるし獣よな技術はないし ↓ 解コードが無駄に長くなるお題は、作成に時間がかかるし技術はないし 267 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 01:50:43.99 ID:4TZnG99D.net] でも、まぁ地獄の沙汰も金次第というじゃありませんか。 お見積もり30万円以上でしたらpython+tkinterで書いてお納めすｔることも 検討させていただきますよ。ﾊｲ 更にハイグレードに300万円だったらPerl+Ptkもお付けいたいます。 いかがですか?だんな もみ手 268 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 19:38:09.78 ID:bt+/AaG5.net] 【問題】 アルバートとバーナードは、シェリルと友達になったばかりです。 シェリルの誕生日を2人は聞きましたが、彼女は10個の日にちを候補としてあげました。 ・5月15日、5月16日、5月19日 ・6月17日、6月18日 ・7月14日、7月16日 ・8月14日、8月15日、8月17日 それからシェリルは、アルバートに「月」だけを、バーナードに「日付」だけをそれぞれ教えました。 アルバート「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」 バーナード「僕はシェリルの誕生日を知らなかったけど、今は知ってるよ」 アルバート「それなら僕もいつだか知っているよ」 シェリルの誕生日はいつでしょうか？ プログラムを書いてプログラムに解かせること。 269 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 20:24:51.42 ID:LavjhbKR.net] Console.WriteLine("知らんがな"); 270 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 20:43:26.68 ID:GyX0IIiI.net] (begin (display "知らんがな")(newline)) 271 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 21:39:03.81 ID:3br47TQ3.net] print("知らんがな") 272 名前：デフォルトの名無しさん mailto:sage [2017/06/03(土) 21:39:54.96 ID:+ZiDT+Cr.net] 世界で初めて原爆実験が行われた日を わざわざ答えに選んだのは何か意図があってのこと？ 273 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 02:59:00.78 ID:vYNPJugT.net] 2年前のログ見てみたけどそのときはここに持ちこむ奴いなかったんだな Prologおじさんとかが嬉々としてやりそうだけど 274 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 03:31:57.97 ID:JSJPiIxT.net] 7月16日 275 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 11:23:47.25 ID:ICo3ogub.net] >>264 f# ideone.com/cBGHxs 276 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 12:17:11.76 ID:/fL6DBjJ.net] >>264 Perl @md = ([5, 15], [5, 16], [5, 19], [6, 17], [6, 18], [7, 14], [7, 16], [8, 14], [8, 15], [8, 17]); push @{$c{$$_[1]}}, $$_[0] for @md; push @{$d{$$_[0]}}, $$_[1] for grep{1 < @{$c{$$_[1]}}} @md; while (($m, $v) = each %d) { print "$m/$$v[0]\n" if 1== @$v; } 実行結果 $ perl 9_264.pl 6/17 277 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 12:22:24.53 ID:/fL6DBjJ.net] >>272 7月16日が正解なら 解き方間を違えているのかも知れん 278 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 14:27:12.46 ID:ArM8onCc.net] アルバート「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」 5,6月を排除 バーナード「僕はシェリルの誕生日を知らなかったけど、今は知ってるよ」 14日を排除 アルバート「それなら僕もいつだか知っているよ」 残り候補が一つの月 -> 7月16日 279 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 15:02:32.31 ID:/fL6DBjJ.net] >>272 の解き方で考えたこと アルバート「僕は(「月」だけしか教えてもらっていないので)シェリルの誕生日を知らないけど、 　　　　　　(「日付」だけを教えてもらった)バーナードも知らないよ」 ⇒「日付」だけ聞けば誕生日だと判明する、即ち日の登場回数が一回だけの月日、 　具体的には5月19日、6月18日は対象外とみなし除去 バーナード「僕は「日付」だけを教えてもらっても)シェリルの誕生日を知らなかったけど、 アルバートが「僕はシェリルの誕生日を知らないけど、バーナードも知らないよ」と言うのを聞いて 今は知ってるよ」 ⇒日の登場回数が一回だけの19日、6月18日を除去したあと、 　登場回数が一回だけの日が バーナードの聞いた「日付」に当たり、 　誕生日だと考えられる。 ⇒6/17 この考え方が違ったんだろうな… 280 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 15:42:35.42 ID:ArM8onCc.net] >>275 アルバートは月を知ってるが、バーナードも知らない事を確信できるのは、 18,19日を含まない7,8月のどちらかという事になる -> 5,6月は全削除 それを聞いてバーナードは誕生日がわかるので、7,8月両方に含まれる14日ではなく、 15,16,17日のどれかになる それを聞いてアルバートがわかるので、候補が一つしか残ってない7月16日という事になる 281 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 16:11:15.57 ID:Thsr1gL6.net] 6/17の方ぽいね 282 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 16:23:55.65 ID:8topuOK/.net] 5,6月は全排除でしょ 283 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 16:27:46.47 ID:/fL6DBjJ.net] >>278 そこがｵﾚにはよく理解できていなくてさ。 まぁ言葉にあいまいな面があるかもしれんから解釈に差が出たのかな 284 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 16:46:10.26 ID:3NGxsH/O.net] >>279 解釈の差だけが問題じゃないだろ > ⇒日の登場回数が一回だけの19日、6月18日を除去したあと、 > 　登場回数が一回だけの日が バーナードの聞いた「日付」に当たり、 > 　誕生日だと考えられる。 18日、19日は日の登場回数が一回だけであるということは 他の日は複数回登場するということだからその論理は破綻してる 285 名前：デフォルトの名無しさん mailto:sage [2017/06/04(日) 16:54:14.37 ID:/fL6DBjJ.net] >>280 それは誤解というか解読不足。 5月19日、6月18日が除去されることによって、 元々複数回登場していた他の日のうち6月17日が単一の日となり 17日という日付さえ知らされれば、誕生日は6月17日と判明できる。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef