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

1 名前：デフォルトの名無しさん mailto:sageteoff [2015/10/07(水) 20:19:06.64 ID:c4LYwtKo.net] プログラミングのお題スレです。 前スレ プログラミングのお題スレ Part7 peace.2ch.net/test/read.cgi/tech/1429195275/ 【出題と回答例】 1 名前：デフォルトの名無しさん 　　お題：お題本文 2 名前：デフォルトの名無しさん 　　>>1 使用言語 　　回答本文 【ソースコードが長くなったら】 (オンラインでコードを実行できる) ideone.com/ codepad.org/ compileonline.com/ rextester.com/runcode runnable.com/ code.hackerearth.com/ melpon.org/wandbox https://paiza.io/ 宿題は宿題スレがあるのでそちらへ。 448 名前：デフォルトの名無しさん mailto:sage [2016/04/16(土) 21:13:38.41 ID:uCxyrvwI.net] >>436 選択ソート？ 449 名前：デフォルトの名無しさん mailto:sage [2016/04/16(土) 23:39:51.82 ID:LiAu7R50.net] >>439 え？バブルソートでしょ。ちょっと調べてくる。 450 名前：デフォルトの名無しさん mailto:sage [2016/04/16(土) 23:43:07.03 ID:LiAu7R50.net] https://ja.wikipedia.org/wiki/%E3%83%90%E3%83%96%E3%83%AB%E3%82%BD%E3%83%BC%E3%83%88 これの疑似コードのちょっと悪い感じ？ シンプルにするためにオーダー悪くなってる。 451 名前：デフォルトの名無しさん mailto:sage [2016/04/16(土) 23:47:56.31 ID:LiAu7R50.net] おっとー、交換条件がおかしいか。 そんなの些細な違いよ！ 452 名前：デフォルトの名無しさん mailto:sage [2016/04/16(土) 23:56:43.13 ID:8gZGJMh1.net] >>37 F# 勉強中 ideone.com/Q1ZFMv 2進⇔10進変換の復習ができてよかった 453 名前：デフォルトの名無しさん mailto:sage [2016/04/17(日) 20:39:22.16 ID:cB2Ml+fZ.net] >>433 @Mathematica ideone.com/hKhw79 454 名前：デフォルトの名無しさん mailto:sage [2016/04/17(日) 20:55:49.84 ID:cB2Ml+fZ.net] 調べたらこんなのもあった。 @Mathematica 「パターンと規則を使ってバブルソートアルゴリズムを実装する」 https://reference.wolfram.com/language/example/ImplementTheBubbleSortAlgorithmWithPatternsAndRules.html 455 名前：デフォルトの名無しさん [2016/04/17(日) 21:55:03.28 ID:8hbCthlc.net] >>440 隣同士の要素を比較・交換するのがバブルソートだと思うけど 456 名前：デフォルトの名無しさん mailto:sage [2016/04/17(日) 22:19:43.05 ID:chPSqpJT.net] >>411 F# 勉強中 ideone.com/3e3eOt 素数判定はWikipediaの同名項目に書かれてるCソースの丸パクリです・・・ あと、最初に挑戦したときは>>418と全く同じ症状だったので断念・・・ なんだか、イマイチな感じなので後でコッソリとリファクタリングするかもです 457 名前：デフォルトの名無しさん mailto:sage [2016/04/17(日) 22:30:35.60 ID:DiLcHZEv.net] 4×4の15パズルの、解ける盤面を作るのに、 空いているマスに、ランダムに100回ほど移動して、 盤面を作っている本を読んだが、 ランダムに盤面を作って、それが解ける問題かどうか、簡単に判別できる方法はないの？ 3×3の盤面で、ランダムに盤面を作って、解ける問題かどうかを判別して。 上は解ける。下は解けない 0,1,2 3,4,5 6,7,空 0,1,2 3,4,5 7,6,空 458 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 01:55:07.16 ID:v1FL9ptr.net] >>448 c++で適当に書いた。ideone.com/eJKGw8 以下を参照したが実装が少し違うのであってるかわからん homepage2.nifty.com/TOMOMI/text/14-15.pdf 459 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/04/18(月) 14:39:50.41 ID:6ER+VIie.net] 15パズルの偶奇性 www.geocities.jp/m_hiroi/puzzle/parity.html 460 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 15:49:05.97 ID:vrHU0PJO.net] １と４と空白を所定に合わせて あとは偶奇性 461 名前： ◆QZaw55cn4c mailto:sage [2016/04/18(月) 19:33:23.43 ID:h2Yzyofc.net] >>441 いや，オーダーはやはりΟ(n^2)で変わらない． どんなコードを想定していたの？ 462 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 20:53:46.45 ID:zW4NHiQV.net] >>452 デバッグなしで書くと。 for(i=0;i<size-1;i++){ for(j=i+1;j<size;j++){ if(a[i]<a[j]) swap(&a[i],&a[j]); }} こういうコードを初心者のころどうも発明（バグ製造）したらしくてずーっと使ってるんだけど、それの簡略版。 forの間にIssorted相当を仕込めばオーダ不安定ソートになる。 俺は長い間これをバブルソートだと思っていた。Orz 463 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 20:57:27.48 ID:zW4NHiQV.net] バブルソートからどうやってコムソート創造したんだよ。 と長い間思っていたが、ベースから間違っていた。Orz 464 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 21:02:36.79 ID:zW4NHiQV.net] オーダーっていうか、実行効率だな。些細なことだけど。 465 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 22:43:04.02 ID:h2Yzyofc.net] >>455 そうそう，オーダー表現は n!, n^2(n^c), nlogn, 1 などで表現する．定数倍は無視するんだ， 正確な定義は知らないがたぶん極限が収束するかどうかで見るんだろう． >>453 もΟ(n^2) 466 名前：デフォルトの名無しさん mailto:sage [2016/04/18(月) 23:45:25.46 ID:zW4NHiQV.net] >>456 なるほどわからん。 まぁ、そういう勘違いを積み重ねるだけの人生だった。Orz いや、死んでないけどさ。 467 名前：デフォルトの名無しさん mailto:sage [2016/04/19(火) 00:24:10.72 ID:5fHK1dXS.net] >>456 n>cのときg(n)<d*f(n)が成り立つようなc,dが存在すれば関数g(n)=O(f(n))って感じじゃね イメージ的に 468 名前：デフォルトの名無しさん mailto:sage [2016/04/19(火) 01:07:43.67 ID:ZMwgfCfL.net] 数学で会話できる人かっこいいなー。 469 名前：デフォルトの名無しさん mailto:sage [2016/04/19(火) 17:18:01.67 ID:93zFzB0Z.net] >>458 かっこいいー もしかして大学出ですか？ 470 名前：デフォルトの名無しさん mailto:sage [2016/04/19(火) 23:30:31.84 ID:iVQa/t2n.net] >>342 F# 勉強中 ideone.com/TfJghl なんかSQLいじってる気分になった 471 名前：デフォルトの名無しさん mailto:sage [2016/04/20(水) 16:20:19.87 ID:bv/Q/2uG.net] >>433 Squeak/Pharo Smalltalk | simpleBubble | simpleBubble := [:arr | 　| stream | 　stream := arr readStream. 　arr size - 1 timesRepeat: [ 　　arr size - 1 timesRepeat: [ 　　　stream next > stream peek ifTrue: [ 　　　　arr swap: stream position with: stream position + 1]]. 　　stream reset 　]. 　arr ]. simpleBubble value: (1 to: 10) asArray shuffled "=> #(1 2 3 4 5 6 7 8 9 10) " 472 名前：デフォルトの名無しさん mailto:sage [2016/04/20(水) 20:06:02.61 ID:ARUL8qdV.net] >>433 c https://ideone.com/NRFb3z 473 名前：デフォルトの名無しさん mailto:sage [2016/04/20(水) 22:18:59.00 ID:+sWW+qMV.net] >>433　Io f := method(a, 　i := 0 　while(i < a size, 　　if(a at(i) > a at(i + 1), 　　　a swapIndices(i, i + 1) 　　　i = 0 　　, 　　　i = i + 1 　　) 　)　　 　a ) 474 名前：デフォルトの名無しさん mailto:sage [2016/04/21(木) 13:03:18.17 ID:5MDUs+Ed.net] >>433 Squeak Smalltalk （PositionableStream>#lastが無いのでPharoではNG。為念） >>464 等を参考にループを >>462 よりシンプルにした版。 | simplerBubble | simplerBubble := [:arr | 　| stream | 　stream := arr readStream position: 1. 　[stream atEnd] whileFalse: [ 　　stream last > stream next ifTrue: [ 　　　arr swap: stream position - 1 with: stream position. 　　　stream position: 1 　　] 　]. 　arr ]. simplerBubble value: (1 to: 10) asArray shuffled "=> #(1 2 3 4 5 6 7 8 9 10) " 475 名前：デフォルトの名無しさん mailto:sage [2016/04/23(土) 01:46:03.15 ID:3vhuTo00.net] >>433 Rust https://ideone.com/gOLw6K 476 名前：デフォルトの名無しさん [2016/04/30(土) 21:02:40.94 ID:f9UktSYx.net] お題：170の階乗の先頭10桁を求める 477 名前：デフォルトの名無しさん [2016/04/30(土) 21:05:19.27 ID:f9UktSYx.net] お題：170の階乗の先頭10桁を求める 478 名前：デフォルトの名無しさん [2016/04/30(土) 22:13:46.81 ID:ih9K+Dlj.net] >>467 Rubyで p (1..170).inject(&:*).to_s[0,10] # 実行結果 # "7257415615" # [Finished in 0.1s] 479 名前：デフォルトの名無しさん mailto:sage [2016/04/30(土) 23:37:54.35 ID:DWppbW2i.net] >>467 F# 勉強中 ideone.com/8Mcpmd 少しはF#分かってきたような、そうでもないような・・・ 480 名前：デフォルトの名無しさん mailto:sage [2016/05/01(日) 00:25:30.55 ID:3nNxkvii.net] >>468 FBasic '170! Dim i As Integer Dim ii As Double Dim f As Double f= 1.0 For i= 2 To 170 ii = CDbl(i) f = f * ii Next Print f Sleep End 7.257415615307994e+306 481 名前：デフォルトの名無しさん [2016/05/01(日) 01:30:49.70 ID:PVJV1HwV.net] >>467 Io Io> a:=1;for(i,1,170,a=a*i);(a/(10**(a log10 floor-9)) )floor asString(10,0) ==> 7257415615 482 名前：デフォルトの名無しさん mailto:sage [2016/05/01(日) 05:22:39.61 ID:k8Y2io+T.net] >>467 Python3 関数を定義したり制御構文を使ったりライブラリをimportしたりするのは負けた気がするので捻った >>> str((lambda f, n: f(f, n))((lambda g, m: m * g(g, m-1) if m > 0 else 1), 170))[:10] '7257415615' 483 名前：デフォルトの名無しさん mailto:sage [2016/05/01(日) 07:00:07.79 ID:Jp0j1ueK.net] >>467 Squeak/Pharo Smalltalk 170 factorial asString first: 10 "=> '7257415615' " 484 名前：デフォルトの名無しさん mailto:sage [2016/05/01(日) 09:24:40.00 ID:i1tpwyoc.net] >>467 @Mathematica 170 // Factorial // ToString // StringTake[#, 10] & 485 名前：デフォルトの名無しさん [2016/05/01(日) 09:37:49.41 ID:tKi6j9CT.net] 匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、 BitTorrentがオープンソースで開発されています 言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？ Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします https://twitter.com/Lyrise_al ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ The Covenant Project 概要 Covenantは、純粋P2Pのファイル共有ソフトです 目的 インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します 特徴 Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW) 接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です DHTにはKademlia + コネクションプールを使用します UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります) 検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません ｐ 486 名前：デフォルトの名無しさん mailto:sage [2016/05/01(日) 14:28:23.75 ID:XECCJNE2.net] >>467 F# printfn "%s" <| (Seq.reduce (*) {1I..170I}).ToString().[..9] 487 名前：デフォルトの名無しさん [2016/05/01(日) 21:02:15.79 ID:PVJV1HwV.net] >>467 R > substr(sprintf("%f",prod(1:170)),1,10) [1] "7257415615" 488 名前：デフォルトの名無しさん mailto:sage [2016/05/02(月) 07:53:08.55 ID:JrdSjVB4.net] お題: n!の上位桁が10^x-1になる最小のnを求める (xは正の整数) 例 x=1: n=96 (9916779348...) x=2: n=96 (9916779348...) x=3: n=261 (9996811196...) x=4: n=17411 (9999777368...) x=5: n=583104？ 489 名前：デフォルトの名無しさん mailto:sage [2016/05/02(月) 11:11:18.30 ID:ybUtGNCd.net] >>479 Squeak/Pharo Smalltalk | fn | fn := [:x | 　| factFloat factStr n nines | 　n := 0. 　factFloat := 1.0. 　nines := String new: x withAll: $9. 　[　n := n + 1. 　　factFloat := factFloat * n. 　　factFloat := factFloat / (10 raisedTo: factFloat log asInteger). 　　factStr := factFloat asString copyWithout: $. . 　　factStr first = $0 ifTrue: [factStr := factStr allButFirst]. 　　factStr size >= x and: [(factStr first: x) = nines] 　] whileFalse. 　{#x->x. #n->n. factStr truncateWithElipsisTo: 13} ]. fn value: 1. "=> {#x->1 . #n->97 . '9916779348...'} " fn value: 2. "=> {#x->2 . #n->97 . '9916779348...'}" fn value: 3. "=> {#x->3 . #n->262 . '9996811196...'} " fn value: 4. "=> {#x->4 . #n->17411 . '9999777368...'} " fn value: 5. "=> {#x->5 . #n->583104 . '9999906872...'} " fn value: 6. "=> {#x->6 . #n->2064173 . '9999993058...'} " 490 名前：デフォルトの名無しさん mailto:sage [2016/05/04(水) 08:45:55.56 ID:GSs/8kUx.net] >>479 @Mathematica ideone.com/4LfZ8E 491 名前：デフォルトの名無しさん [2016/05/04(水) 21:22:23.48 ID:WvfFbq7M.net] >>479 Io f := method(x, 　d := 10 ** (x - 1) 　q := 10 ** x - 1 　a := 1 　n := 0 　while(q != (a * d) floor, 　　n = n + 1 　　a = a * n 　　a = a / 10 ** a log10 floor 　) 　n ) Io> f(1) ==> 96 Io> f(3) ==> 261 Io> f(5) ==> 583104 492 名前：デフォルトの名無しさん mailto:sage [2016/05/04(水) 22:35:23.32 ID:qgnKpMBO.net] //┏┳┳┳┳┓ //┣╋╋╋╋┫ //┣╋╋╋╋┫ //┣╋╋╋╋┫ //┣╋╋╋╋┫ //┗┻┻┻┻┛ //上記の6X6の通路を左上から右下へ到達する時に //同じ場所を通らずにたどり着くルートは何通りあるか？ 嫌儲のプログラミングスレで盛り上がってるこの問題どうすかね 493 名前：デフォルトの名無しさん mailto:sage [2016/05/04(水) 22:37:44.31 ID:h5NbJg5S.net] おねえさん・・・ 494 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 00:59:50.49 ID:muAMBl7W.net] >>483 以前、お題スレ Part6の984 の問題で作ったものをそのまま流用。 左上から部屋番号1,2,3,...36（右下）として、部屋同士の接続を定義。 言語C++： ideone.com/1Nj1eU 5x5なら1秒以内で終わるのですが、6x6はideoneではタイムオーバーでした。 計算するときはn=6にして計算して下さい。自分のところでは計算に70秒程度。 正直合ってるかどうかわかりません。 結果： 6x6: 全1262816通り 最短距離10（252通り） 最長距離34（10180通り） ちなみに・・・ 2x2：全2通り 最短距離2（2通り） 最長距離2（2通り） 3x3：全12通り 最短距離4（6通り） 最長距離8（2通り） 4x4：全184通り 最短距離6（20通り） 最長距離14（32通り） 5x5：全8512通り 最短距離8（70通り） 最長距離24（104通り） 495 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 01:32:14.77 ID:muAMBl7W.net] >>483 元のスレ見にいったら、問題にもう1行あったよ //ただし、同じ交差点は何度通ってもいい これあるなら>>485は取り消しします 496 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 02:48:54.24 ID:PH/e0da8.net] >>479 F# 勉強中 ideone.com/vWueIT ※ただし、UInt64(Max 10進数で19桁)で計算してるので誤差が生じはじめると・・・ ideone上だとx=5が限界、以下ローカルでの実行結果 x=1: n=96 (9916779348...) x=2: n=96 (9916779348...) x=3: n=261 (9996811196...) x=4: n=17411 (9999777368...) x=5: n=583104 (9999906872...) x=6: n=2064173 (9999993058...) ちなみに、x=5がローカル(i7-3537U)で30秒くらいかかるのにideoneだと6秒未満だし やっぱ性能いいのねぇ・・・ あと、階乗の手抜きっぽい計算はPAIZAの彼女を作るゲームの水着ゲット問題で研究しますたｗ 497 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 15:33:45.25 ID:SQKTrz0M.net] >>486 それは発展版の方でですね 最初は482で次問が交差点を何度もです ちなみに交差点を何度もではかなり気をつけないとCではスタックオーバーみたいですね 498 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 17:16:35.94 ID:PH/e0da8.net] >>483 F# 勉強中 ideone.com/31G3C2 ideoneでは残念ながら制限時間超過・・・ ローカル(i7-3537U 8GB mem)では1,262,816通り、実行時間およそ42秒 末尾再起にするため、やむを得ずmutableを使ったのだが、もっとうまいやり方はあるのだろうか・・・・ 499 名前：デフォルトの名無しさん mailto:sage [2016/05/05(木) 18:24:52.73 ID:ZdWJcfSQ.net] >>488 482発展版? by c++ n=6まで ideone.com/J22mpj 手元で時間がかかったがn=7も確認 500 名前：デフォルトの名無しさん mailto:sage [2016/05/06(金) 07:33:20.07 ID:+i3ap6tD.net] >>490 489は、非発展版でした。 発展版はn=5が限界だった。あのビデオ通りの動きだな ideone.com/J22mpj 上書き n=3の経路見てみてあっているような感じ。 それ以上のnは確認ができてない。 数列辞典で引ける程度でたので、これかな https://oeis.org/A013990 501 名前：デフォルトの名無しさん mailto:sage [2016/05/07(土) 23:52:58.29 ID:qCADCCRG.net] >>467 ideone.com/P7XHHt C++。スレが専ブラの画面外に行ってたのでチェックしてなかった。 C++で作った割には誤差が出なくてよかった。たぶん。 >>469つかって検算させてもらった。thx. 502 名前：デフォルトの名無しさん mailto:sage [2016/05/08(日) 00:03:58.77 ID:r8xFef3w.net] >>483はC++やってる人がいるのでパス。 それ以上のコードはかけなさそう。Orz 503 名前：デフォルトの名無しさん mailto:sage [2016/05/08(日) 00:04:20.89 ID:r8xFef3w.net] あ、日付かわった。 504 名前：デフォルトの名無しさん [2016/05/08(日) 21:11:37.01 ID:WelKIVWp.net] お題：1から16までの連続した自然数をA,Bの二つのグループに分ける。 Aの要素の総和とBの要素の総和が等しく、Aの要素の2乗の総和と Bの要素の2乗の総和も等しく、さらにAの要素の3乗の総和と Bの要素の3乗の総和も等しくする。 505 名前：デフォルトの名無しさん mailto:sage [2016/05/08(日) 23:07:10.56 ID:3m2Dr+7v.net] {2,3,5,8,9,12,14,15} と {1,4,6,7,10,11,13,16} だけ？ 506 名前：デフォルトの名無しさん mailto:sage [2016/05/08(日) 23:23:03.64 ID:3m2Dr+7v.net] あ、共通部分があってもいいんだな A=B={1,2,...,16}とか まだありそう 507 名前：デフォルトの名無しさん mailto:sage [2016/05/08(日) 23:38:34.59 ID:r8xFef3w.net] 5秒では終わらんなー。まぁ暇だからやってみようかなぁ・・・。 508 名前：デフォルトの名無しさん mailto:sage [2016/05/09(月) 00:30:22.73 ID:pUXvKib1.net] >>495 ideone.com/gzHjPK C++。一応こういうコードを書いてみた。ろくにデバッグできなかったのでバグってる可能性が高い。 コンビネーションほしー。16!とかほぼ無理なので、絶望した。 509 名前：デフォルトの名無しさん [2016/05/09(月) 01:03:48.60 ID:yYTJyO7B.net] Haskellならマイクロ秒のオーダーで計算できますよ？ 未だにC++に固執するのは宗教ですか？ 510 名前：デフォルトの名無しさん mailto:sage [2016/05/09(月) 01:22:53.38 ID:pUXvKib1.net] 特に宗教じゃないけど、ほかの言語を覚える気にならないだけ。 真面目にゲーム作るときに使おうと思って覚えたのが動機だから、ゲーム基準なの。 constexprがもうちょっと高機能になったらいいなーと思ってる。 511 名前：デフォルトの名無しさん mailto:sage [2016/05/09(月) 01:25:19.28 ID:pUXvKib1.net] >>500 というか、煽ってないでコードだしてよ。 ハスケール読めないけど。 512 名前：デフォルトの名無しさん mailto:sage [2016/05/09(月) 03:01:39.37 ID:2YrVj7rY.net] >>497 グループ分けだから共通は無しじゃないの 513 名前：デフォルトの名無しさん mailto:sage [2016/05/09(月) 15:09:43.81 ID:9C2z/2Vf.net] >>495 ideone.com/kcTdlh 16だけだと寂しかったので、答えが多数出てくる24も追加してみた。 1は必ずAグループに入るようにしている。 (A,Bを特定した時、全く逆の組み合わせも存在するが、今回は表示してない) 514 名前：デフォルトの名無しさん [2016/05/09(月) 20:05:26.31 ID:t+bzhO52.net] >>495 Io for(i, 1, 2 ** 15, 　a := list 　for(j, 1, 16,a push(if(i at(j - 1) == 1, j, -j))) 　if(a map(**3) sum == 0, a println) ) 実行結果 list(-1, 2, 3, -4, 5, -6, -7, 8, 9, -10, -11, 12, -13, 14, 15, -16) 正の数をひとつのグループ、負の数をもうひとつのグループというこで 515 名前：デフォルトの名無しさん mailto:sage [2016/05/10(火) 00:08:20.11 ID:E+X0dc0Z.net] >>495 ideone.com/3boCML C++。重複なし版。相変わらず16!は解決してない。 >>504　これ早いなー。すごいなー。Orz 516 名前：デフォルトの名無しさん mailto:sage [2016/05/10(火) 19:41:46.28 ID:2fCl6+HU.net] 31の場合は何通り？ 517 名前：デフォルトの名無しさん mailto:sage [2016/05/10(火) 20:56:18.35 ID:0+ZmZvza.net] 40通り 518 名前：デフォルトの名無しさん mailto:sage [2016/05/10(火) 21:01:50.08 ID:TdrM46fl.net] >>495 @Mathematica ideone.com/TPGKEh 519 名前：デフォルトの名無しさん mailto:sage [2016/05/11(水) 02:23:15.24 ID:zcj8oTfj.net] >>495 Java ideone.com/J6hgFy 520 名前：デフォルトの名無しさん mailto:sage [2016/05/11(水) 05:59:04.20 ID:71pkMQnc.net] >>510 爆速だね。Core i7 4Gで n=40で3646 n=47で173351 n=48で291482 個見つかった。所要時間1分くらいか 521 名前：デフォルトの名無しさん mailto:sage [2016/05/11(水) 21:27:01.99 ID:zcj8oTfj.net] listupがメモ化とかで速くできそうな気がするけど頭が動いちょらん 522 名前：デフォルトの名無しさん mailto:sage [2016/05/12(木) 19:27:31.92 ID:fkcp4aHY.net] >>495 Squeak/Pharo Smalltalk | elems sets | sets := Set new. elems := (1 to: 16) asArray. (1 to: elems size - 1) do: [:n | 　elems combinations: n atATimeDo: [:comb | 　　| rest | 　　rest := elems difference: comb. 　　((1 to: 3) allSatisfy: [:pow | (comb raisedTo: pow) sum = (rest raisedTo: pow) sum]) 　　　ifTrue: [sets add: {comb copy. rest} asSet] 　] ]. ^sets "=> a Set(a Set(#(2 3 5 8 9 12 14 15) #(1 4 6 7 10 11 13 16))) " 523 名前：デフォルトの名無しさん mailto:sage [2016/05/13(金) 20:53:50.90 ID:6rd1u1gc.net] >>495 @Mathematica, リファクタリング後 ideone.com/QFce6S 524 名前：デフォルトの名無しさん mailto:sage [2016/05/14(土) 16:09:50.16 ID:LEy4i3xG.net] >>495 ｽﾚ汚しｽﾏｿ @Mathematica, さらにリファクタリング ideone.com/gvxa8t testGroup の条件を書き換えて、枝刈り。 計算時間が半分に。 525 名前：デフォルトの名無しさん mailto:sage [2016/05/22(日) 16:51:30.35 ID:QTcku1ZG.net] 昔ダイナムで雪降ってたのでゴム長で行って 朝一大ヤマト1/498で一発入ったら艦長が 『戦闘配置につけ！』って出たのを思い出した。 2連で終わったけど。 526 名前：デフォルトの名無しさん mailto:sage [2016/05/22(日) 16:52:01.87 ID:UXQjq3mC.net] どこの誤爆だｗ 527 名前：デフォルトの名無しさん mailto:sage [2016/05/22(日) 16:59:37.57 ID:ZCteEarO.net] そういや昔のパチンコ雑誌はZ80のアセンブラの解析記事とか載ってたなｗ 528 名前：デフォルトの名無しさん mailto:sage [2016/05/25(水) 05:32:56.17 ID:4GANdY7B.net] >>483 @Mathematica ideone.com/4FZXRG 529 名前：デフォルトの名無しさん [2016/05/27(金) 20:18:44.31 ID:2AExo9Gt.net] お題:n角形を隣接行列で表す 530 名前：デフォルトの名無しさん mailto:sage [2016/05/28(土) 04:06:02.91 ID:t8+ZEFcK.net] >>520 ideone.com/GcMBSl C++。こういうこと？かしらかしらごぞんじかしら。 531 名前：デフォルトの名無しさん mailto:sage [2016/05/28(土) 12:17:02.17 ID:MAzFniKU.net] 全然違うし何でそういう発想になったかわからん 532 名前：デフォルトの名無しさん mailto:sage [2016/05/28(土) 16:19:17.65 ID:XDR4NRkL.net] おれはこれ以外に解釈できない 533 名前：デフォルトの名無しさん mailto:sage [2016/05/28(土) 18:12:21.03 ID:t8+ZEFcK.net] >>522 線引いてみればわかるけど、N角形になるよ。 問題文が端的過ぎる。 534 名前：デフォルトの名無しさん mailto:sage [2016/05/28(土) 18:15:28.59 ID:t8+ZEFcK.net] 出題者でてきてー。 535 名前：デフォルトの名無しさん mailto:sage [2016/05/29(日) 01:35:58.98 ID:l7Z0+24R.net] マジで出題者どこ行った。解こうにも解けないじゃないか。 ダメならダメでいいから出てこい。 536 名前：デフォルトの名無しさん mailto:sage [2016/06/01(水) 20:35:38.46 ID:4RXp3JbO.net] >>520 J f=:(_1&|. +. 1&|.) @ = @ i. f 4 0 1 0 1 1 0 1 0 0 1 0 1 1 0 1 0 537 名前：片山博文MZ ◆T6xkBnTXz7B0 mailto:sage [2016/06/04(土) 22:13:22.70 ID:9azu721e.net] お題：C/C++とWindowsに限定。レジストリ全体を記憶し、 変更があれば変更点を表示する。 Windows 2000で動作しなければならない。 GUIは必要ない。Enterキーを押したタイミングで差分を表示する。 報酬3000円。銀行振込、WebMoney、ビットキャッシュ、Amazonギフト券の中から選べる。 ただし、メールで連絡が取れること。 538 名前：デフォルトの名無しさん mailto:age [2016/06/04(土) 22:13:38.13 ID:9azu721e.net] あげ 539 名前：デフォルトの名無しさん mailto:sage [2016/06/05(日) 00:23:56.68 ID:bEHxSIM9.net] DB全体のスナップショット機能と同じやん 540 名前：デフォルトの名無しさん mailto:sage [2016/06/05(日) 07:15:50.35 ID:VJ6TUrY4.net] ブラック企業かよｗ 541 名前：デフォルトの名無しさん mailto:sage [2016/06/06(月) 08:41:23.90 ID:6BPcdog/.net] Windows7以上？ではレジストリにアクセス権が設定できるんですが？ 542 名前：デフォルトの名無しさん [2016/06/14(火) 17:21:21.81 ID:ylR65uF/.net] N個の具材を3つ選んでハンバーガーにトッピングすることが出来ます。 合計285通りの組み合わせが出来ます。 必要な具材の最低個数と最高個数を求めてください。 543 名前：デフォルトの名無しさん mailto:sage [2016/06/14(火) 19:38:38.50 ID:Eohj2elN.net] 286個では 544 名前：５３２ [2016/06/14(火) 20:27:38.82 ID:Wnl/zMEq.net] いいえ285であってるはずです 「マクドナルド　裏メニュー」の285通りから問題を作りました 545 名前：デフォルトの名無しさん mailto:sage [2016/06/14(火) 21:21:13.32 ID:F0Va16Jg.net] この出題じゃその例にはならないぞ 546 名前：デフォルトの名無しさん mailto:sage [2016/06/14(火) 23:44:42.75 ID:43s0H04y.net] >>533 ちょっと言ってる意味が解らないですね。 オーダーしてくる確率が決まってるならまだしも、イーブンに注文してくるなら最高値と最低値は一緒になるのでは？ 初見でそう思った。 C++にコンビネーションを・・・。Orz 547 名前：デフォルトの名無しさん mailto:sage [2016/06/14(火) 23:46:00.30 ID:sBc8t+V7.net] ハンバーガーにも種類があるのはググって分かったけど、それでも何を解答させんとしているのかはよくわからないね ideone.com/etvHKm 548 名前：デフォルトの名無しさん mailto:sage [2016/06/17(金) 19:43:08.29 ID:ZJPgf/2E.net] >>535 表に1個有るんだろ。 計286通り。

---

---

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

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