- 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/
- 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
- 856 名前：デフォルトの名無しさん mailto:sage [2018/12/15(土) 18:26:25.25 ID:RxHR1YVb.net]
- お題：標準入力から読み取った行を出力せよ
ただし42を読んだ場合は出力せずに終了する
https://ideone.com/vdWddB
- 857 名前：デフォルトの名無しさん mailto:sage [2018/12/15(土) 18:51:24.63 ID:Hf86DN+J.net]
- >>829
ruby -pe'~/^42$/&&exit'
- 858 名前：デフォルトの名無しさん [2018/12/15(土) 20:46:54.11 ID:Du8iBFv1.net]
- >>829 Common Lisp
https://ideone.com/QQzEQh
read-lineの第三引数にnil以外を使ったの初めてだ
- 859 名前：デフォルトの名無しさん mailto:sage [2018/12/15(土) 23:34:07.15 ID:2jxK776v.net]
- >>829
bash
https://paiza.io/projects/gIZdCMpBEoNvFnnjVvGGtA
- 860 名前：デフォルトの名無しさん mailto:sage [2018/12/15(土) 23:59:19.52 ID:QTag+jm2.net]
- >>829 PowerShell
while (($var = (Read-Host)) -ne 42) { $var }
- 861 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 03:36:20.47 ID:X+FaDx+z.net]
- >>829
python 3
https://ideone.com/it2Axq
- 862 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 13:54:15.20 ID:ob8ozoeg.net]
- [お題] 来年と素数
今年も残りわずか、来年は2019年で平成31年。
1)"2019"の省略形の"19"について。
素数の和で19を作る、すべての素数配列を列挙せよ(できれば辞書順で)。
同じ素数を何個使ってもよいが、同じ素数同士は区別しない。
・例えば対象が"11"だと以下の6つ
{2, 2, 2, 2, 3}
{2, 2, 2, 5}
{2, 2, 7}
{2, 3, 3, 3}
{3, 3, 5}
{11}
以下 2)3)4)は種類計のみ答える(明細は多いので略)。
2)来年の初まりは平成31年で、"31"について。
素数の和で31を作る、その種類はいくつか。条件は1)と同様。
3)素数の和で2019を作る、その種類はいくつか。条件は1)と同様。
4)2019と31を続けた数 201931(=2019*100+31)について。
素数の和で201931を作る、その種類はいくつか。
但し、使用していい素数は31以下の素数かつ、
同じ素数は最大2019個までしか使えない。同じ素数は区別しない。
※ 3)4)は64bit整数を超えるので、下10桁だけの回答も可。
- 863 名前： mailto:sage [2018/12/16(日) 14:12:11.90 ID:IjCemHtZ.net]
- >>835
年忘れ課題の時期になったんですね…
- 864 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 19:04:23.02 ID:P931WLXH.net]
- >>835 Java
https://ideone.com/LgkDWF
あってんのかなー
- 865 名前：830 mailto:sage [2018/12/16(日) 19:54:33.15 ID:GrZg6kve.net]
- >>837
2)の31からして自分のと違う。
自分のでは111だった。
javaのやついじって、112個の明細を出してみたら、[2,2,27] があった。
27は素数じゃないよね。いじり方が悪い？
- 866 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 19:56:19.00 ID:pjubjjb0.net]
- >>838
自分も31は111だったわ
- 867 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 20:37:34.86 ID:VvrWecHB.net]
- >>835 Ruby 1)は省略
require 'prime'
def fuge(n, cand = Prime.to_a(n), h = {}, succ = 0)
c0 = cand[0]
return h[[n, c0]] if h[[n, c0]]
return 0 if n == 0 || !c0 || n < c0
return 1 if n == c0
x = succ == 2019 ? 0 : fuge(n - c0, cand, h, succ + 1)
h[[n, c0]] = fuge(n, cand[1..-1], h) + x
end
p fuge(19) # => 23
p fuge(31) # => 111
p fuge(2019) # => 576202207044176168646563
p fuge(201931, Prime.to_a(31)) # => 4021686887140718864271667825968903
- 868 名前：デフォルトの名無しさん mailto:sage [2018/12/16(日) 20:50:18.98 ID:P931WLXH.net]
- >>838
まじだ・・・修正した
犯人は118行目だ！orz
- 869 名前：830 mailto:sage [2018/12/17(月) 20:45:38.05 ID:4p2KDXiR.net]
- >>837 836
当方の回答と一致しました。
>>840
4) 201931 だけ異なる(自分のがあっているとは限らないが……)。
※再帰の動きがよくわからない
- 870 名前：830 mailto:sage [2018/12/20(木) 20:26:37.78 ID:W0v1JICZ.net]
- >>835 python https://ideone.com/OFR7bn
間が空いたので、出題者コメント
1)問題文説明用に書いてみて、問題にもできると思った。
2)3)は"オイラー 31 DP"でググってください。
違いはコインの額面が素数に変わったくらいと、おおきさ。
なかには一つ一つ数えて、本問の2)しか溶けない回答があるので見分けて。
4)については、ソース上三種類書いて考察しています。
("201931"という変な数値は、3重ループ解を落とすのが目的だった)
- 871 名前：デフォルトの名無しさん mailto:sage [2018/12/21(金) 08:20:43.27 ID:hMEdBbLv.net]
- お題：
真理値表から２入力NANDで最小ゲート数回路を作れ。実用上最も重要な問題群
- 872 名前：デフォルトの名無しさん mailto:sage [2018/12/21(金) 08:38:52.94 ID:choQhZIj.net]
- 遅延時間とかファンアウトとかは考慮不要ってことでいいのかな
- 873 名前：デフォルトの名無しさん [2018/12/22(土) 11:29:36.65 ID:7UfbjIEE.net]
- 参考にどうぞ
https://eng.kice.tokyo/logic/logic_ex3/
|
 |
