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

1 名前：デフォルトの名無しさん mailto:sage [2018/09/28(金) 10:09:07.13 ID:phwOkayR.net] プログラミングのお題スレです。 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 (オンラインでコードを実行できる) https://ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode https://runnable.com/ https://code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 前スレ プログラミングのお題スレ Part10 https://mevius.5ch.net/test/read.cgi/tech/1514772904/ プログラミングのお題スレ Part11 https://mevius.5ch.net/test/read.cgi/tech/1524570314/ 755 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 23:54:45.63 ID:8gAcKqbf.net] どれだけの数字の種類に対応するのかで個性が出るな 756 名前：デフォルトの名無しさん [2018/12/01(土) 00:17:45.63 ID:XKE5KJf3.net] >>726 誰もお前になんか言ってねーよ 自意識過剰なんじゃボケカス 757 名前：デフォルトの名無しさん [2018/12/01(土) 01:26:07.16 ID:3EVAE812.net] >>724 Perl https://paiza.io/projects/Q_MF7JmVJMMjF1aqffgfaw Perl だと簡単だ。 但し /* /* */ */ みたいな二重のやつには対応していない。最初の /* から次に出た */ を削除して */ が残る。 (この辺は本物のCプリプロセッサでも同じかな?) 758 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 01:45:09.70 ID:YAQo6Dqr.net] >>730 Ruby require 'open-uri' thread = 'https://mevius.5ch.net/test/read.cgi/tech/1538096947' puts open(thread).read.scan(/>([^<]+)/).flat_map{|(s)| s.scan(/\d+/)}.join(?,) # => 12,12,729,314,1,100,50,1,2018,09,28,10,09,07,13,1,2,1,10,# 略 759 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 01:53:10.02 ID:k1RHlnBk.net] >>733 "/* hoge */" => "" 760 名前： mailto:sage [2018/12/01(土) 02:29:20.81 ID:J8cQMvWo.net] >>733 ＞(この辺は本物のCプリプロセッサでも同じかな?) そうですね。https://ideone.com/3TJq7U 761 名前：デフォルトの名無しさん [2018/12/01(土) 03:00:24.20 ID:3EVAE812.net] >>735 あー。文字列リテラルについては何も考えてなかった。 明日考えよう。 >>736 やはりそうでしたか。わざわざどうも。 762 名前：デフォルトの名無しさん [2018/12/01(土) 03:09:09.09 ID:3EVAE812.net] >>735 今閃いたので修正した。(URLは同じ) 763 名前：デフォルトの名無しさん [2018/12/01(土) 03:22:24.06 ID:Zs5zJNI/.net] >>724 Ruby src = $<.read i = 0 loop do 　　break if i >= src.size 　　case src[i] 　　when ?" then i += src[i..-1][/(?:".*[^\\]|")(?:\\\\)*"/].size 　　when ?' then i += src[i..-1][/(?:'.*[^\\]|')(?:\\\\)*'/].size 　　when ?/ then src.sub!(/(?<=.{#{i}})(?:\/\/[^\n]*|\/\*.*?\*\/)/m, ''); i += 1 　　else i += 1 　　end end -*- input -*- hoge(); // fuga hoge('"'); // fuga "); hoge("// \"fuga\"\\"); hoge("/* fuga */"); /* fuga fuga /* "fuga" // */; hoge -*- output -*- hoge(); hoge('"'); hoge("// "fuga"\\"); hoge("/* fuga */"); ; hoge 764 名前：デフォルトの名無しさん [2018/12/01(土) 03:24:23.46 ID:3EVAE812.net] >>724 Cでも作った。 https://paiza.io/projects/2RgQrlBLrzJe9MQp9weQmQ これは1文字づつ読んでモード切り替えて出力したりしなかったりする方式。 文字列リテラルにも対応。 765 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 03:40:27.80 ID:mIATMgqT.net] >>738 '"', /* hoge */, "fuga" => '"', /* hoge */, "fuga" 766 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 03:45:42.76 ID:mIATMgqT.net] >>738 "// hoge" => " 767 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 04:05:45.76 ID:3EVAE812.net] >>741>>742 あ、それか。それは明日考えよう。 768 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 04:06:53.29 ID:3EVAE812.net] C言語の方もシングルクォート考慮してないから似たようなものだな。 769 名前：デフォルトの名無しさん [2018/12/01(土) 05:34:42.40 ID:qLkjgui5.net] >>739 訂正 src = $<.read i = 0 loop do 　　break if i >= src.size 　　case src[i] 　　when ?" then i += src[i..-1][/\A"(?:.*?[^\\])?(?:\\\\)*"/].size; next 　　when ?' then i += src[i..-1][/\A'(?:.*?[^\\])?(?:\\\\)*'/].size; next 　　when ?/ then src.sub!(/(?<=\A.{#{i}})(?:\/\/[^\n]*|\/\*.*?\*\/)/m, '') 　　end 　　i += 1 end puts src -*- input -*- hoge(); // fuga hoge('"'); // fuga "); hoge("// \"fuga\"\\", /* fuga */ *"fuga"); hoge("/* fuga */"); /* fuga fuga /* "fuga" // */; hoge -*- output -*- hoge(); hoge('"'); hoge("// \"fuga\"\\", *"fuga"); hoge("/* fuga */"); ; hoge 770 名前：デフォルトの名無しさん [2018/12/01(土) 07:52:53.53 ID:U3mK8vlP.net] >>732 誰も俺に言われてると思ってねーよ 自意識過剰なんじゃボケカス 771 名前：デフォルトの名無しさん [2018/12/01(土) 11:03:33.46 ID:XKE5KJf3.net] >>746 生きづらそう 772 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 11:10:29.72 ID:50ygxsN0.net] >>733 PCRE(Perl)の正規表現なら再帰マッチ(&R)や(&1)使いなせぇ 参考サイトはｲﾛｲﾛあるし 773 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 11:16:56.49 ID:50ygxsN0.net] >>748 ｺﾞﾒﾝ再帰マッチは(?R)や(?1)だた 時間あればnest対応版書いてみたいけど 多分ないや… こういうのは再帰降下パーサParse::RecDescentやPerl6のRule使うと楽に書ける 774 名前：デフォルトの名無しさん [2018/12/01(土) 12:39:50.92 ID:U3mK8vlP.net] >>747 おまえやわw いちいち素っ頓狂なレスすんなカスw 775 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 12:41:56.31 ID:1eGLRG7/.net] いつもの単芝君やないか この板に粘着して荒らしまわってる奴やで 意思疎通は不可能なのでNGするなりスルーするなりしてくれ 776 名前：デフォルトの名無しさん [2018/12/01(土) 15:19:58.00 ID:3EVAE812.net] >>733の改造終了(URLは同じ) 長い呪文になってしまった。 >>748>>749 なるほど。その内暇な時にでも考えよう。 777 名前：デフォルトの名無しさん [2018/12/01(土) 17:02:07.43 ID:3EVAE812.net] >>740も改造終了(URLは同じ)。 778 名前：デフォルトの名無しさん mailto:sage [2018/12/01(土) 17:25:35.20 ID:cOhty352A] >>706 F# https://ideone.com/IUPK21 mandelbrotが2.9s https://postd.cc/adventures-in-jit-compilation-part-1-an-interpreter/ を参考にした 779 名前：デフォルトの名無しさん mailto:sage scに誤爆した [2018/12/01(土) 17:34:49.88 ID:XO3Kyvz4.net] >>710 F# https://ideone.com/IUPK21 mandelbrotが2.86s https://postd.cc/adventures-in-jit-compilation-part-1-an-interpreter/ を参考にした 780 名前：デフォルトの名無しさん [2018/12/01(土) 17:37:04.95 ID:XO3Kyvz4.net] >>755 はインタプリタでないので無視してください 781 名前：デフォルトの名無しさん mailto:sage [2018/12/02(日) 00:35:34.00 ID:twRH93OM.net] >>706 Kotlin https://paiza.io/projects/MBp2uVW-Y0Kj2sRaZom3pA 1行1プログラムだが行が長くなると見辛いので行末に \ があったら次の行と連結している事にした。 782 名前：711 mailto:sage [2018/12/02(日) 16:02:26.97 ID:aFBnTuDv.net] >>706 c https://ideone.com/6sLfPH ・ mandelbrotが4.24s→3.42s→3.24s→2.13s ・G: while (*dp) dp += ip->d; ip++; goto TOP;　を追加 >>727 caseで分岐するほうが移植性あっていいよね（　＾ω＾） 783 名前：デフォルトの名無しさん mailto:sage [2018/12/02(日) 16:29:28.37 ID:hHHhmr7T.net] Python「・・・」 784 名前：デフォルトの名無しさん mailto:sage [2018/12/03(月) 22:04:03.50 ID:cV13JBu4.net] [お題] 整数A,B(1<=A<B<=50万)と P(1<=P<=10)が順に与えられる。 A以上B以下の10進数の整数から異なる２つの整数を選ぶ。 その2つの整数を表現するのに使われている(各桁の)数字の種類が ちょうどP種類である選び方は何通りできるか。 ※ 先頭ゼロ詰禁止、実行時間一問1.5秒以内(ideone等で) 1) 8 11 2 --> 4 2) 10 1000 5 --> 207480 3) 44 44444 4 --> 33808313 4) 56785 113452 1 --> ? 5) 102345 480713 6 --> ? 6) 1 500000 7 --> 47440713600 　例題1) の補足 "8 11 2" のとき 　　{8,9,10,11}から2整数を選ぶ。NCR(4,2)=6通りあるなかから 　　(8,9)(8,11)(9,11)(10,11) の4通りが答え。[]内 785 名前：を使用数字とすると、 　　例として、(8,11)は[8,1]の2種類, (10,11)は[1,0]の2種類からなる。 　　対象外は (8,10)は[8,1,0] (9,10)は[9,1,0]で ともに2種類ではない。 　※解き方をパックて単純化した問題。 [] [ここ壊れてます] 786 名前：デフォルトの名無しさん mailto:sage [2018/12/03(月) 23:49:23.73 ID:CrTNh3lq.net] 数え上げ系のお題はつまんない 787 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 10:39:39.35 ID:ZczbahAK.net] パズルソルバーは制約・論理プログラミングが最適だね。 788 名前：デフォルトの名無しさん [2018/12/04(火) 13:11:47.75 ID:vhrUEqnQ.net] >>724 正規表現だけで書いてみた regexp = /((?:([^"']*?)(?:\/\/[^\n]*|\/\*.*?\*\/))*)(("|').*?(?<!\\)(?:\\\\)*\4)?/m puts <<~EOT.gsub(regexp, '\2\3') 　　hoge(); // fuga 　　hoge('"'); // fuga "); 　　hoge("// \\"fuga\\"\\\\", /* fuga */ *"fuga"); 　　hoge("/* fuga */"); /* fuga 　　fuga /* "fuga" // */; hoge EOT # => hoge(); hoge('"'); hoge("// \"fuga\"\\", *"fuga"); hoge("/* fuga */"); ; hoge 789 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 13:34:55.49 ID:fo8RIf+e.net] >>763 無駄な括弧があったので修正 regexp = /([^"']*?)(?:\/\/[^\n]*|\/\*.*?\*\/)?(("|').*?(?<!\\)(?:\\\\)*\3)?/m puts src.gsub(regexp, '\1\2') 790 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 17:02:17.81 ID:N7rAE58b.net] >>758 https://ideone.com/3hct3R caseに書いちゃうと遅くなるな 791 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 17:20:50.80 ID:tkE9zz4k.net] お題: テキストが入力されるのでそれがお題であれば1，お題でなければ0を出力せよ 792 名前：デフォルトの名無しさん [2018/12/04(火) 17:37:59.07 ID:HMynH27O.net] >>766 #!/bin/sh if grep お題 >/dev/null 2>&1 then 　echo 1 else 　echo 0 fi 793 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 17:43:36.31 ID:evmq38l5.net] お題 C/C++言語のソースをHTMLに変換 ・色分け（外部スタイルシートで色分け以外にも サイズや種類など色々と細かく指定可能）表示 ・コメント・クォート・マクロ定義部分・マクロ等に対応 ・ローカル変数・グローバル変数・static関数・非static関数 ライブラリ変数/関数/マクロ（ヘッダ記載)・ ローカル型・グローバル型名の区別 入力：コマンドラインからファイル名(.c/.cpp) 出力：出力htm(l)ファイルとそれが参照するスタイルシート(.css)を 新規作成 794 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 17:47:43.27 ID:evmq38l5.net] あと、コードブロックや式の括弧のネストレベルに応じて 背景色を変えてほしい（要望） コマンドラインからタブ=4,8とか指定できるようにもして欲しい 795 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 17:58:45.10 ID:0EeyK9d3.net] >>766 ruby -ne'p~/\Aお題\Z/?1:0' 796 名前：デフォルトの名無しさん [2018/12/04(火) 18:05:08.94 ID:HMynH27O.net] 1. 好きなIDEのエディタで画面に表示。 2. PrtSc キーを押す。 3. ペイントを起動してペースト。 4. PNGファイルとして保存。 5. メモ帳を起動。 6. HTML を書き、imgで先の画像を表示するようにする。 7. 拡張子をhtmlにして保存。 8. ブラウザで表示。 9. 終了。 797 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 18:14:10.74 ID:evmq38l5.net] 型に応じて変数の色分け（スタイル変更）に対応できたら最高 忘れてたけど予約語の色分けは当然 ソースコードの構文エラー箇所以降は単色赤文字で表示 798 名前：デフォルトの名無しさん mailto:sage [2018/12/04(火) 19:05:35.22 ID:Ntdpy5BB.net] >>766 PowerShell [int]("お題" -eq $(Read-Host)) 799 名前：デフォルトの名無しさん mailto:sage [2018/12/05(水) 04:19:34.99 ID:fABNAu0P.net] >>760 Java https://ideone.com/a1wOZ4 800 名前：デフォルトの名無しさん [2018/12/05(水) 19:36:38.80 ID:W3jESzak.net] お題：ビュフォンの針をシミュレートして円周率の近似値を求めよ 801 名前：デフォルトの名無しさん [2018/12/05(水) 20:02:35.88 ID:W3jESzak.net] 自分でやってみた Python3 https://ideone.com/A2FnPP 1000万本投げた場合 3.14219665312 802 名前：デフォルトの名無しさん mailto:sage [2018/12/05(水) 23:06:27.91 ID:dgv/Vo0c.net] angleを計算するのに思いっきりπの値使ってるだろうし..ｗｗｗ 803 名前：デフォルトの名無しさん mailto:sage [2018/12/05(水) 23:30:47.41 ID:oCZO3Dfm.net] wikipediaは日本語版だけその問題に言及して疑似コードも載ってるのな 804 名前： mailto:sage [2018/12/05(水) 23:30:56.16 ID:qUBA/FDJ.net] >>777 そんなツッコミは初めてみました、うまいですね… 805 名前：デフォルトの名無しさん [2018/12/05(水) 23:42:52.79 ID:W3jESzak.net] >>777 書いてて思ったけどめんどくさくなってそれ以上考えなかった 806 名前：デフォルトの名無しさん mailto:sage [2018/12/06(木) 01:36:29.15 ID:Yn5Hc93r.net] >>775 Squeak/Pharo Smalltalk | length N rand needle nCrossed | length := 10000. N := 1e7. rand := Random new. needle := LineMorph from: length / -2 @ 0 to: length / 2 @ 0 color: Color black width: 1. nCrossed := 0. N timesRepeat: [ | crossed | needle rotationDegrees: 90 * rand next; center: 0 @ (length * rand next). crossed := length negated @ 0 to: length @ 0 intersects: needle firstVertex to: needle lastVertex. crossed ifTrue: [nCrossed := nCrossed + 1] ]. N / nCrossed asFloat "=> 3.142226273599298 " 807 名前：デフォルトの名無しさん mailto:sage [2018/12/06(木) 01:57:54.87 ID:CjS0UpEg.net] こういうプログラム面手するのつらいだろうな 808 名前：デフォルトの名無しさん mailto:sage [2018/12/06(木) 02:09:23.51 ID:7UXgAx11.net] >>776 Ruby # length = 2; gap = 2 buffon_s = -> n {n.fdiv((1..n).count{rand < sin(rand(1e10))})} p buffon_s[10**6] # => 3.1421245789553063 809 名前：755 mailto:sage [2018/12/06(木) 20:58:20.17 ID:fqSvUjwD.net] >>760 需要はほぼなかったみたいだが、出題者コメントを 　答えだすのに必要なものだけに前処理で集計。今回必要なのは 　0-9数字使用の有無だけなので2^10に集約・集計できる( 50万→1024） 　この数になればあとは、二重ループで集計をすればいい。 　後半は集約にビットを使えば、popcountを使って簡潔に書けるパターン。 　想定解(python by pypy) https://ideone.com/bujm1x 　回答者さんとほぼ同じ。 　あえて相違点は、pythonのpopcount相当が意外と重かったので、 　前処理でテーブル化している。(高速に出れば、いらないはず？) 　※制約の50万と1.5秒は、素の(標準だけの)pythonに合わせている。 　　(このコードも素のpythonだと、例題6)だけで0.8秒くらい) 810 名前：デフォルトの名無しさん mailto:sage [2018/12/06(木) 21:56:29.19 ID:QyI+7EvW.net] >>784 from collections import Counter でもうちょっと楽できる 811 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 15:14:44.93 ID:wiJMm9Hc.net] >>784 蛇足的改良？してみた(一応C++だが殆どC) https://pastebin.com/dRM2yC3e 812 名前：デフォルトの名無しさん [2018/12/07(金) 22:19:34.17 ID:x8xNXHP3.net] お題 1,3,4,6,7,9,10,12,… のように1から始まり奇数, 奇数,偶数,偶数, 奇数,奇数,偶数,偶数…と続く場合2019番目はいくつになるか 813 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:30: ] [ここ壊れてます] 814 名前：34.68 ID:avhY9emJ.net mailto: floor(2019 * 1.5) [] [ここ壊れてます] 815 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:32:31.84 ID:avhY9emJ.net] 結果書いてなかった 3028 816 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:35:02.23 ID:avhY9emJ.net] 計算量的に整数の乗算とシフト演算だけの n * 3 >> 1 のほうが良いか 817 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:38:48.18 ID:xSpw6JJG.net] >>787 Ruby f = -> n {a, b = n.divmod(4); 6 * a + 2 * b + 3 / (b + 2)} p f[2019] # => 3030 818 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:47:23.26 ID:avhY9emJ.net] >>791 1が0番目で計算してね？ https://ideone.com/8B4VVN 819 名前：デフォルトの名無しさん mailto:sage [2018/12/07(金) 22:48:51.29 ID:xSpw6JJG.net] >>792 あー本当だ しかも n * 3 >> 1 でよかったんだね 820 名前：デフォルトの名無しさん [2018/12/08(土) 03:40:55.13 ID:xmV4OmOO.net] >>787 Kotlin https://paiza.io/projects/IrRQGqJSJL8lVYGlBueZDw 821 名前：デフォルトの名無しさん mailto:sage [2018/12/08(土) 08:09:08.92 ID:JIGsOpwq.net] 第ｎ項=3n/2+(-1)^n/4-1/4 822 名前：デフォルトの名無しさん mailto:sage [2018/12/08(土) 09:20:01.90 ID:vpfNpx82.net] プログラミング初心者なんですがJavaを覚えるのに良い課題下さい 言語の本は一冊読みました 823 名前：デフォルトの名無しさん [2018/12/08(土) 09:29:35.75 ID:5PBkTMHJ.net] Winならtypeコマンド(LinuxとかUnix系だとcat)と同じ機能を自作してみるとか、行番号も表示するようにするとかから始めては？ 824 名前：デフォルトの名無しさん [2018/12/08(土) 09:53:44.58 ID:Mku3deOK.net] >>787 f=:+/@$&1 2 f 2019 3028 825 名前：デフォルトの名無しさん [2018/12/08(土) 09:59:51.42 ID:Mku3deOK.net] >>798 言語はJ 826 名前：781 mailto:sage [2018/12/08(土) 12:53:06.37 ID:JIGsOpwq.net] 整数計算オーバーフローが発生していたのを修正 https://pastebin.com/FAzjRJn5 827 名前：デフォルトの名無しさん [2018/12/08(土) 15:30:02.59 ID:dsjig1JQ.net] お題：N×Nの盤面に石を置いていく。 どの4つの石も同一円周上に乗らないようにする場合、最大何個配置できるか？ ただし、一直線上に並ぶ配置は半径∞の円周上と考える。 N=3 => 5 N=4 => 7 5 => 9 6 => 11 9 => 18 828 名前：デフォルトの名無しさん [2018/12/08(土) 17:29:13.00 ID:xmV4OmOO.net] >>801 問題の意味がわからない。図とか描いてくれ。 829 名前：デフォルトの名無しさん mailto:sage [2018/12/08(土) 17:33:47.41 ID:kCA+QhwE.net] >>801 石の大きさはゼロで格子点とでも考えればいいのかな 830 名前：デフォルトの名無しさん mailto:sage [2018/12/08(土) 17:36:28.60 ID:m52vxjN5.net] ああ共円か 有名なゲームだな 831 名前：デフォルトの名無しさん [2018/12/08(土) 19:05:02.19 ID:xmV4OmOO.net] 共円でググってようやっとわかった。 832 名前：デフォルトの名無しさん mailto:sage [2018/12/08(土) 19:37:58.42 ID:xPmIyiBg.net] >>796 テトリス 833 名前：デフォルトの名無しさん mailto:sage [2018/12/10(月) 02:09:47.01 ID:3g7m60y1.net] >>787 1は0番目じゃなくて1番目だよね。念のため確認 834 名前：デフォルトの名無しさん [2018/12/12(水) 02:35:41.59 ID:84v7sPOJ.net] お題 2次元平面上で点(x,y)が点列(X1,Y1), (X2,Y2), ..., (Xn,Yn), (X1,Y1)を順に結んでできる多角形の内部にあるかどうか判定せよ 835 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 07:13:05.92 ID:SVnAXs6w.net] どのような多角形をなすかの 仮定で方法も違ってくるだろうけど、 一般的な場合を視野に入れる限り 複数の数学ライブラリを組み合わせて 扱うソリューションパッケージ的なものに なりそうでお題としてはなんだかなって感じ 836 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 08:10:30.84 ID:3f3X1OW4.net] >>808 多角形の定義がひどい。 重なる事はあるのか、と、重なったときに内部はどうするのかとか。(抜けるのはめんどくさい) 重なってはいけないけど辺は突き抜けても良いのかとか。 描いた絵みたいな状態を許すかどうかでけっこう判定が変わる。 o.8ch.net/1cbk7.png 837 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 08:27:43.91 ID:3f3X1OW4.net] 多角形を三角形に分割して、 (x1,y1)→(x2,y2)のベクトルと (x2,y2)→(x3,y3)のベクトルと (x3,y3)→(x1,y1)のベクトルを それぞれ、 (x2,y2)→(x,y) (x3,y3)→(x,y) (x1,y1)→(x,y) と外積をとって、正負が一致したらその点は多角形内部にある。 重ならないなら三角形に分割、は、 1,2,3、2,3,4、3,4,5…と使う頂点をスライドさせていくだけで良いんじゃないかな？どっかで裏返るかな。 838 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 09:01:00.07 ID:J4hfK+qs.net] また数学か。数学板が嫌なら紙とえんぴつでやってろ 839 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 09:21:43.03 ID:YlPyc4+b.net] ポリゴンで塗り潰してその色になれば真 840 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 11:12:59.34 ID:3f3X1OW4.net] 数学になるの？ 俺CAD関連と3DCG関連でこういうの書くけどな。 コード書こうと思って出題者に問うたつもりだけど。。 証明出来てないコード書いても無意味なんだから先にロジック書いたつもり。 ってかどうして数学？っぼい問題が嫌われるの？ 脳筋コードが良いってこと？ 841 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 11:17:02.00 ID:rSdIoMBA.net] >>808 Ruby 与えられるのは凸多角形のみとし、頂点は反時計・時計回りのいずれかで与えられるものとする def diff(a, b); a.zip(b).map{|i, j| i - j}; end def in_triangle?(p, a, b, c) 　　ap, ab, ac = [p, b, c].map{|v| diff(v, a)} 　　det = ab[0] * ac[1] - ab[1] * ac[0] 　　s = (ac[1] * ap[0] - ac[0] * ap[1]) / det 　　t = -(ab[1] * ap[0] - ab[0] * ap[1]) / det 　　[s, t].all?{|e| (0..1).include?(e)} && s + t <= 1 end def in_con_polygon?(p, *vers) 　　vers[1..-1].each_cons(2).any?{|v1, v2| in_triangle?(p, vers[0], v1, v2)} end # 原点を左下の頂点とする長さ1の正方形の内部に(0.5, 0.5)は含まれるか p in_con_polygon?([0.5, 0.5], [0, 0], [1, 0], [1, 1], [0, 1]) # => true p in_con_polygon?([1.76, 1.75], [0, 0], [3, 0], [2, 1.5], [1, 2.5], [0, 3]) # => false 842 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 11:40:32.38 ID:rSdIoMBA.net] 問題を勘違いしてたので一部修正 凸多角形でなくてもＯＫ 順番も結ぶ順でＯＫ ただし>>810の星型の内部は多角形には含まれないとする def in_con_polygon?(p, *vers) 　　vers[1..-1].each_cons(2).count{|v1, v2| in_triangle?(p, vers[0], v1, v2)}.odd? end 843 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 11:56:39.21 ID:3f3X1OW4.net] ベクトル係数の解法も綺麗だな。式も少ないし素晴らしいと思う。 844 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 12:12:03.42 ID:SeAXRl2+.net] >>808 Java https://ideone.com/xJBcjx わかんねーので言語任せｗ non_zero: >>810の星型の内部も多角形に含まれる even_odd: >>810の星型の内部は多角形に含まれない 845 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 12:14:30.79 ID:ygJIxGmd.net] >>814 このスレには解答者側に数学ができない人がいて、そういう人が文句を言ってる かく言う俺も数学できないが文句は言わない 846 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 14:03:01.24 ID:FdJbiO2G.net] 数学の問題集から拾ってきただけみたいな雑な出題が叩かれてるんじゃなかったのか 問題文自体に不備があってそこを詰めるのが主になってしまうパターンもあるけど 847 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 14:49:36.03 ID:GETLERsG.net] 純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、という 848 名前：問題だったら、わざわざプログラム板でやる面白味はないなあと思う。 数学的に解いても、その後コードに起こす際にプログラミング固有の工夫とか言語による違いが見られるような物だと興味深い。 個人的な感想です。 [] [ここ壊れてます] 849 名前：デフォルトの名無しさん [2018/12/12(水) 15:01:41.06 ID:LIx8RHBs.net] 集合論的なのをリスト使うのと配列使うのだったら違いもあるだろうけど、 そういう問題出ないね。 A∪B := {x | x ∈ A ∨ x ∈ B} はHaskellだと仮にx が{1,2,3,4,5,6,7,8,9,10}の要素で、Aが{3,4,5,6}、Bが{5,6,7,8}なら setX = [1..10] setA = [3..6] setB = [5..8] [x | x <- setX, x `elem` setA || x `elem` setB] (Haskellは変数名の初めに大文字使えない) これがCで配列縛りだとreallocでも使いながらなんじゃろか。。。 850 名前： mailto:sage [2018/12/12(水) 20:48:43.83 ID:5ElL+qNp.net] >>821 ＞純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、 それは甘い、大甘だと私の経験は私の心に語ってくれています 851 名前： mailto:sage [2018/12/12(水) 20:49:58.51 ID:5ElL+qNp.net] >>822 そういう問題はある種の順序関係を仮定してインプリメントしたいところです 852 名前：デフォルトの名無しさん mailto:sage [2018/12/12(水) 23:47:12.93 ID:V5rMC+dN.net] >>822 Smalltalk | X A B | X := 1 to: 10. A := 3 to: 6. B := 5 to: 8. X select: [:x | (A includes: x) or: [B includes: x]] https://ideone.com/XSlcVz 853 名前：デフォルトの名無しさん mailto:sage [2018/12/13(木) 00:26:45.67 ID:ilwXN+sT.net] >>822 Squeak/Pharo Smalltalk | X A B | X := 1 to: 10. A := 3 to: 6. B := 5 to: 8. X intersection: (A union: B) "=> #(3 4 5 6 7 8) " 854 名前：デフォルトの名無しさん mailto:sage [2018/12/13(木) 01:00:05.58 ID:vQDTFPB2.net] >>822 Ruby x, a, b = [*1..10], [*3..6], [*5..8] p x & (a | b) # => [3, 4, 5, 6, 7, 8] 855 名前：デフォルトの名無しさん mailto:sage [2018/12/13(木) 09:40:48.46 ID:wBrOfppZ.net] >>822 c https://ideone.com/YkmUdB c++ https://ideone.com/WXXvlU

---

---

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

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