プログラミングのお題スレ 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/ 666 名前：自分は出題者じゃなくて632です mailto:sage [2018/11/22(木) 00:20:17.51 ID:iFlHYuR3.net] >>644 ideoneに食わせたら1234/555動いたが>>636と同じで4になってる https://ideone.com/eojdE5 1234/555 = 2.2[234]234234... で3よな？ 667 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:26:34.37 ID:YC9N9M8Q.net] >>646 うちのPCだと for (<DATA>) { ($X, $y) = split; $x = $m = $X % $y; my ($n, %h); $h{$x} = 1; while(1) { $x = 10 * $x % $y; $n++; last if $h{$x}; $h{$x} = 1; } print "$X/$y => ", ($x ? $n : $x), "\n"; } __DATA__ 1234 55 実行 $ time perl 12_628.pl 1234/55 => 3 0.281 secs Perlは5.20.3 32 bit, integerは64bit のもの。 5.16.3 32 bit, integer が32bitでも 1234/55 は => 3 になるよ 668 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:29:14.36 ID:iFlHYuR3.net] >>647 5が1個足りてませんぜｗ 1234/55=22.4[36]3636... => 2 669 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:33:49.88 ID:YC9N9M8Q.net] >>648 for (<DATA>) { ($X, $y) = split; $x = $m = $X % $y; my ($n, %h); $h{$x} = 1; while(1) { $x = 10 * $x % $y; $n++; last if $h{$x}; $h{$x} = 1; } print "$X/$y => ", ($x ? $n : $x), "\n"; } __DATA__ 1234 555 Perl 5.20.3 32 bit, integer 64bit $ perl.exe 12_628.pl 1234/555 => 4 0.266 secs Perl 5.16.3 32 bit, integer 32bit $ perl 12_628.pl 1234/555 => 4 670 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:37:35.25 ID:iFlHYuR3.net] >>649 じゃから、 1234/555 = 2.2[234]234234... だから答えは3にならんとあかんじゃろ 671 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:37:56.28 ID:YC9N9M8Q.net] >>649 bug に気がついた。循環する範囲だけの長さを求めていない 672 名前： mailto:sage [2018/11/22(木) 00:44:22.07 ID:r9/Xo7jY.net] >>587 私もよーく考えました、>>571 の推論で正しいと思い直しました。 「数字と数字を対応させる」のではなく「数字の中の因数5 と別の数字の中の因数 2 とを対応させる」んですね，週末になったらちゃんと書きます ごめんなさい… 673 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:47:46.57 ID:YC9N9M8Q.net] >>632 >>634 Perl5 for (<DATA>) { ($X, $y) = split; $x = $m = $X % $y; my ($n, %h); $h{$x} = $n++; while(1) { $x = 10 * $x % $y; last if $h{$x}; $h{$x} = $n++; } print "$X/$y => ", ($x ? $n-$h{$x} : $x), "\n"; } __DATA__ 1 3 10 2 988027 983 919 870473 1223 1476221 99998360006603 9999901 123412345 999999999 1234 555 実行 $ perl 12_628.pl 1/3 => 1 10/2 => 0 988027/983 => 982 919/870473 => 54288 1223/1476221 => 122816 99998360006603/9999901 => 1999980 123412345/999999999 => 9 1234/555 => 3 674 名前：604 [2018/11/22(木) 02:49:00.32 ID:zC+py8mV.net] >>541 Kotlin https://paiza.io/projects/TlIXUiQhX1uJMvGlxSRnHA >>608の改造版 重複調査はビットフラグ使ってやるようにした。 出力は番号を振って出すようにした。 675 名前：デフォルトの名無しさん [2018/11/22(木) 03:19:07.41 ID:zC+py8mV.net] >>617 問題の意味がわからない。 676 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 04:04:02.81 ID:dySjvlSp.net] >>632 Ruby f = -> d { 　　[2, 5].each{|e| d /= e while d % e == 0} 　　return 0 if d == 1 　　r = 1; (1..d).find{|i| 1 == r = 10 * r % d} } %w[ 　　1/3 10/2 988027/983 919/870473 1223/1476221 99998360006603/9999901 123412345/999999999 1234/555 ].each{|e| n, d = e.split(?/).map(&:to_i); puts '%d/%d => %d' % [n, d, f[d / d.gcd(n)]]} # => 1/3 => 1 10/2 => 0 988027/983 => 982 919/870473 => 54288 1223/1476221 => 122816 99998360006603/9999901 => 1999980 123412345/999999999 => 9 1234/555 => 3 677 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 15:33:08.34 ID:yB1Us7SO.net] 17941970723/5711177472= 3. 14155370 [ 07847337299484291004011020163934418881248871826338 51095286012502326945724442022732505973857434350098 中略 81545008587679202836020711912487386979243218306349 2795623634229099298422222099702245 ](周期=1584) であってる? 678 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 15:43:48.55 ID:lSIebnj9.net] >>657 あってる 679 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 15:54:06.63 ID:yB1Us7SO.net] >>658 1009 680 名前：デフォルトの名無しさん [2018/11/22(木) 23:20:25.14 ID:8KGvhG/L.net] >>632 https://ideone.com/hY41ni 681 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 19:09:31.91 ID:VH48PKdk.net] >>617 Ruby 再帰 def cost(x, y) return [0] if x == 0 table = cost(x - 1, y) table << table.flat_map.with_index{|e, i| i == 0 ? [x] : [x / i, -(-x / i)].uniq.map{|v| e + v + y + (i * v - x).abs} }.min end [[1,3], [3, 1], [20, 2], [ 682 名前：63, 2]].each{|e| puts 'X = %d, Y = %d => %d' % [*e, cost(*e).last]} # => (X, Y) = (1, 3) => 1 (X, Y) = (3, 1) => 3 (X, Y) = (20, 2) => 11 (X, Y) = (63, 2) => 17 [] [ここ壊れてます] 683 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 19:12:10.98 ID:K3SLU2ZA.net] >>618 f = ->str{str.split.sort{|a, b| a + b <=> b + a}.join} ['3 2 1', '1 2 21', '1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16'].each{|e| puts '%s => %s' % [e, f[e]]} # => 3 2 1 => 123 1 2 21 => 1212 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 => 10111121314151623456789 684 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 19:34:32.58 ID:oncB24e2.net] お題: 入力をHTMLのリストに変換しなさい。 入力: * aaa * bbb * ccc * aaa * bbb * ccc 出力: <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> 685 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 19:51:58.05 ID:ZGD1vCd6.net] お題 非負整数の10進数表記を"マイナス10進数"表記に変換せよ 321 => 481 (400 - 80 + 1) 910 => 19090 (10000 - 9000 + 000 - 90 + 0) 909 => 909 0 => 0 11111 => 29291 123456789 => 284664829 686 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 20:55:58.69 ID:5iW/esUy.net] >>663 https://ideone.com/SHKftF ・行頭と行末は適当に削除しちゃってる 687 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 21:05:33.15 ID:Hqw3cjct.net] >>663 Ruby puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).join('</li><l> 入力: * aaa * bbb * ccc * aaa * bbb * ccc 出力: <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> 688 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 21:07:03.88 ID:Hqw3cjct.net] >>666 途切れたので訂正 puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).('</li><li>')}.join("</ul>\n<ul>") 689 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 21:10:53.54 ID:Hqw3cjct.net] >>667 連投ごめん 訂正 puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).join('</li><li>')}.join("</ul>\n<ul>") 690 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 22:18:17.60 ID:Hqw3cjct.net] >>664 Ruby f = -> n {return n if n < 10;a, b = n.divmod(100); c, d = b.divmod(10); 100 * f[a - (-c / 10)] + 10 * (-c % 10) + d} [321, 910, 909, 0, 11111, 123456789].each{|e| puts '%d => %d' % [e, f[e]]} # => 321 => 481 910 => 19090 909 => 909 0 => 0 11111 => 29291 123456789 => 284664829 691 名前：デフォルトの名無しさん mailto:sage [2018/11/23(金) 23:32:40.54 ID:RKSYf6WR.net] >>663 Perl5 for (split /\n\n/, <<EOL) * aaa * bbb * ccc * aaa * bbb * ccc EOL { @a = map{"<li>$_</li>"} /\* (\w+)/g; print "<ul>", @a, "</ul>\n"; } 実行結果 $ perl 12_659.pl <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> <ul><li>aaa</li><li>bbb</li><li>ccc</li></ul> 692 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 00:04:24.01 ID:IB4DmzOp.net] >>670 * 以降にスペース文字が含まれていても、もれなく扱うなら @a = map{"<li>$_</li>"} /\* (\w+)/g; ↓ @a = map{"<li>$_</li>"} /\* ([^\n]+)/g； 693 名前：デフォルトの名無しさん [2018/11/24(土) 02:05:34.99 ID:Q9o1GKtC.net] >>664 問題の意味がわからない。 694 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 02:34:23.79 ID:noZFD3Jl.net] >>672 俺も分からなかったんで調べたら例えば4桁のn進数 A3 A2 A1 A0 の場合 A0 * n^0 + A1 * n^1 + A2 * n^2 + A3 * n^3 となるわけだけど、単純にこのnが-10ならマイナス10進数ということらしい 695 名前：デフォルトの名無しさん [2018/11/24(土) 02:35:47.10 ID:Q9o1GKtC.net] >>663 Kotlin https://paiza.io/projects/San6JOBupEDa6gEL9f6L5Q 拡張関数使ってみました。 696 名前：デフォルトの名無しさん [2018/11/24(土) 02:43:21.86 ID:Q9o1GKtC.net] >>673 なるほど。そういうことか。ありがとう。 697 名前：デフォルトの名無しさん [2018/11/24(土) 03:26:26.65 ID:Q9o1GKtC.net] >>664 Perl5 https://paiza.io/projects/AJSUVyggQJnm7GnS8_ZC1g 698 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 03:43:39.38 ID:Q9o1GKtC.net] >>632 Kotlin https://paiza.io/projects/DwesufgOG64B8-KN_ErG5w C https://paiza.io/projects/HwczmyQnaji1IgHICqHrIg 最初 Kotlin で作って確認した後で paiza.io にコピペして実行したら 99998360006603 / 9999901 が タイムアウトしてしまい、じゃあ C で作るか(ついでに tsearch() 使ってみるか)と思ってやってみたが 相変わらず同じ計算でタイムアウトした。 まあしかしそれ以外の計算はなんとかなったので両方公開しとく。 アルゴリズムは割った余りを10倍するのを繰り返して同じ余りが出たらそこで循環と判定するというやつ。 699 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 04:00:55.96 ID:7YEvwBu9.net] >>663 javascript ` * aaa * bbb * ccc * aaa * bbb * ccc `.split`\n\n`.map(ol => `<ol><li>${ol.match(/(?<=\* ).*/g).join`</li><li>`}</li></ol>`).join`\n` 出力: <ol><li>aaa</li><li>bbb</li><li>ccc</li></ol> <ol><li>aaa</li><li>bbb</li><li>ccc</li></ol> // 本物のdocument fragment作っちゃう版 var fragment = ` * aaa * bbb * ccc * aaa * bbb * ccc `.trim().split`\n\n`.map(ol => ol .match(/(?<=\* ).*/g) .reduce((acc, li) => (acc.appendChild(document.createElement`li`).innerHTML = li, acc), document.createElement`ol`)) .reduce((acc, ol) => (acc.appendChild(ol), acc), document.createDocumentFragment()) document.querySelector('div#target').appendChild(fragment)など任意のエレメントにそのままappend可能。 700 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 05:34:48.85 ID:Dcky2N9A.net] >>664 https://pastebin.com/6HttXyVt 701 名前：デフォルトの名無しさん [2018/11/24(土) 05:38:41.45 ID:Q9o1GKtC.net] >>632 C (その2) https://paiza.io/projects/21K5fAVsJlYtob_H0rZ9LA よく考えたら出来た。 循環になっている桁の最初の余りを取っておいて次に出るまでカウントすれば良いだけで余りを全て保存しておく必要ないんだな。 702 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 05:41:18.30 ID:Dcky2N9A.net] >>679の言語は JavaScript( Windows Scripting Host用 )ね 703 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 08:20:40.93 ID:01jBobXF.net] >>663 Ruby で作った。ただし、最終行に改行を追加した text = <<"EOT" * aaa * bbb * xxx * yyy EOT buf = ""; result = "" text.each_line do |line| # 1行ずつ処理する line.chomp! # 末尾の改行を削除する case when line.empty? # 空文字列 result += "<ul>" + buf + "</ul>" + "\n" # ul で囲む buf = "" when line.start_with?( "* " ) buf += "<li>" + line.slice!( 2..-1 ) + "</li>" # "* " 以後の部分を取り出す else raise end end puts result 704 名前：デフォルトの名無しさん [2018/11/24(土) 11:05:11.18 ID:1C+vWWG1.net] 2人以上(1ユーザーに対し、1PC以上)のジャンケンゲームを作れ。 ・勝ちグループにユーザーが居れば勝ちとする。 ・グー=g、チョキ=v、パー=wとする。 ・グー、チョキ、パー以外が入力されたら、あいこ扱い。 ・全員の手もその都度表示。 例 Rock, Paper, Scissors! ―じゃんけんぽん(またはあいこでしょ)の英語版 (Rock = g/G, Paper = w/W, Scissors = v/V) g [("You",'g'),("PC1",'v'),("PC2",'g')] You Win!! 705 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 12:06:59.71 ID:X5g7u0K6.net] >>683 def janken(hand, opp_number) 　　hands = opp_number.times.map{%w[g v w].sample}.unshift(hand) 　　p hands. 706 名前：map.with_index{|h, i| [i == 0 ? 'You' : "PC#{i}", h]} 　　return 'Draw' if hands.uniq.size != 2 　　hands = hands.uniq.join.sum == 0xDE ? %w[w g] : hands.uniq.sort 　　['You Win!', 'You Lose!'][hands.index(hand)] end puts janken(?g, 1) # => [["You", "g"], ["PC1", "v"]] You Win! puts janken(?v, 2) # => [["You", "v"], ["PC1", "v"]] Draw puts janken(?w, 3) # => [["You", "w"], ["PC1", "g"], ["PC2", "v"]] Draw puts janken(?g, 4) # => [["You", "g"], ["PC1", "g"], ["PC2", "g"], ["PC3", "v"], ["PC4", "v"]] You Win! [] [ここ壊れてます] 707 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 12:08:52.78 ID:X5g7u0K6.net] >>684 Ruby コピペミス puts janken(?v, 2) -> puts janken(?v, 1) puts janken(?w, 3) -> puts janken(?w, 2) 708 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 12:14:16.56 ID:X5g7u0K6.net] >>684 「・グー、チョキ、パー以外が入力されたら、あいこ扱い」を見落としていたので return 'Draw' if hands.uniq.size != 2 を return 'Draw' if hands.uniq.size != 2 || %w[g, v, w].none?(hand) に修正 puts janken('グーチョキパー', 5) # => [["You", "グーチョキパー"], ["PC1", "g"], ["PC2", "w"], ["PC3", "v"], ["PC4", "g"], ["PC5", " v"]] Draw 709 名前：デフォルトの名無しさん [2018/11/24(土) 12:16:11.70 ID:1C+vWWG1.net] >>684 あ、あいこはあいこと表示して終わっちゃうのね。。。 あいこの時はまたジャンケンし直しにして欲しい。 条件に入れればよかったかなぁ。。。 710 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 12:26:57.03 ID:hG+y0dS8.net] >>683 > ・グー=g、チョキ=v、パー=wとする。 グー=g、チョキ=c、パー=pか グー=m、チョキ=v、パー=wか どっちかに統一してほしい。 グー=g、チョキ=v、パー=wだとgが表音イニシャル、v, wが象形と統一性がない。 気になってご飯が喉を通らなくてプログラミングどころじゃない… 711 名前：デフォルトの名無しさん [2018/11/24(土) 13:02:40.59 ID:1C+vWWG1.net] gも象形のつもりだったんだが。。。 712 名前：デフォルトの名無しさん [2018/11/24(土) 14:02:53.32 ID:S/Hnk7Kr.net] >>687 Ruby def input(message, cond); begin; puts message; end while cond.call; end def janken 　　hand_type = %w[g v w] 　　input('Input the number of opponents.', proc{gets.to_i < 1}) 　　opp_number, hand, hands = $_.to_i 　　loop do 　　　　input('Input your hand.', proc{gets; false}) 　　　　hand = hand_type.index($_.chomp!) 　　　　hands = opp_number.times.map{rand(3)}.unshift(hand) 　　　　p hands.map.with_index{|h, i| i == 0 ? ['You', $_] : ["PC#{i}", hand_type[h]]} 　　　　hand && hands.uniq.size == 2 ? break : puts('Draw') 　　end 　　puts %w[You\ Win! You\ Lose.][3 * hand / hands.uniq.sum / 2] end janken # => Input the number of opponents. 1 Input your hand. choki [["You", "choki"], ["PC1", "g"]] Draw Input your hand. w [["You", "w"], ["PC1", "v"]] You Lose. 713 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 14:57:54.21 ID:Q9o1GKtC.net] >>688 まずは瞑想でもして心を落ち着けると良い。 714 名前：679 [2018/11/24(土) 15:20:34.57 ID:1C+vWWG1.net] >>683 一応、自分自身でも投稿。 予想通り分岐使わないバージョン出て来た。 自分も挑戦してみようかな。 Haskell(リストに勝ち負け確定パターン(含まれてるかでグループパターン割り出し)があるか判別して、先頭要素(必ずユーザー)がパターンと同じか判定) https://ideone.com/9EmrYI Cとか死ねたし。(全体の勝ちグループ（各手をカウントしてグループパターン割り出し)の手を確定後、勝ちグループと同じ手に対応した文字を入力していたか判定) https://ideone.com/AmfTOy (能力不足の自分はあえてでは無いが)あえて条件分岐バージョンにすると言語や個人の個性出そう。 (CとHaskellでグループ分けや自分が勝ちグループ側かの判定が違うアルゴリズムになった) その場合、アルゴリズムの説明付きだと面白そう。 715 名前：デフォルトの名無しさん [2018/11/24(土) 16:39:00.82 ID:ZWAqZgZk.net] >>683 Python3 https://ideone.com/PcHoga 716 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 16:56:21.89 ID:S/Hnk7Kr.net] >>693 グーチョキパー以外をプレイヤーが出したときおかしな挙動しない？ 717 名前：デフォルトの名無しさん [2018/11/24(土) 17:14:41.52 ID:ZWAqZgZk.net] >>694 あいこの判定を手の種類数だけでしてたせいだな 修正した https://ideone.com/3XBPBb 718 名前：デフォルトの名無しさん [2018/11/24(土) 22:52:47.96 ID:5TC6Hle/.net] お題 順列を求めるのにシャッフルでデータをたくさん用意して 重複データを取り除くことで求めている人がいた 順列の数の何倍位のデータを用意すればいいか調べる 719 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 23:20:30.16 ID:Vcpm1NYO.net] 許容誤差と確率の問題じゃん 720 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 23:23:27.73 ID:7YEvwBu9.net] >>696 二度と来なくていい 721 名前：デフォルトの名無しさん mailto:sage [2018/11/24(土) 23:37:47.52 ID:Wfpvwubu.net] >>683 PowerShell function Janken { 　　$hands = @($args[0]) + (1..$args[1] | %{ Get-Random "g","v","w" }) 　　("[" + ($hands | % {"{0}`",'$_')" -f $(if ($i++ -eq 0) {"(`"You"} else {",(`"PC" + ($i-1)}) }) + "]") 　　$groups = @($hands | Group-Object) 　　$win = @{ "g" = "v"; "v" = "w"; "w" = "g" }[$args[0]] 　　if ($groups.Count -ne 2 -or $win -eq $null) { return "Draw" } 　　if (($groups | ? {$_.Name -eq $win}).Count -gt 0) { return "You Win!!" } 　　return "You Lose!!" } PowerShell > Janken g 1 [("You",'g') ,("PC1",'v')] You Win!! PowerShell > Janken v 2 [("You",'v') ,("PC1",'v') ,("PC2",'g')] You Lose!! PowerShell > Janken w 3 [("You",'w') ,("PC1",'v') ,("PC2",'g') ,("PC3",'w')] Draw PowerShell > Janken a 1 [("You",'a') ,("PC1",'g')] Draw 722 名前：679 [2018/11/25(日) 01:57:22.20 ID:ae+bi37x.net] >>699 >>687 723 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 06:18:56.85 ID:k7/W79Is.net] >>683 Kotlin https://paiza.io/projects/3zt5CUPdhrTFhXx2z7ayvw 入力は1行単位で最初の手が自分、スペース区切りでPCの手になる。 グー、チョキ、パーと元の文字列の対応は以下に対応。 グー: "g", "G", "グー", "ぐー" チョキ: "v", "V", "c", "C", "チョキ", "ちょき" パー: "w", "W", "p", "P", "パー", "ぱー" 勝敗の判定は「勝」、「負」、「相子」で出る。 724 名前：679 [2018/11/25(日) 07:47:50.59 ID:ae+bi37x.net] >>701 ジャンケンゲームの肝？ってPCはランダムな値を使う所だと思うんですが・・・ あと、私が勝手にアイコといえばジャンケンやり直しって勝手に思い込んでて仕様に盛り込まなかったのがダメなんですが、 アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いしたいです。 >>699 さんも、アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いします。 725 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 11:54:57.77 ID:qcobBjeQ.net] お題 標準運指(taipingu.net/kotu02.html)によるタイピングを考える。 英小文字からなる文字列Sが与えられるので、Sを入力するのにかかる時間を求めなさい。 各文字の入力にかかる時間は以下の通りとする。 ・1文字目 　・ホームポジションから動かない -> 4 　・ホームポジションから動く -> 5 ・2文字目以降 　・1つ前の文字と反対の手の指 -> 1 　・1つ前の文字と同じ手の違う指 -> 2 　・1つ前の文字と同じ手の同じ指 -> 3 (例) aiueo => 9 (4+1+2+1+1) odai => 9 pppp => 14 asdfjkl => 15 fjdksla => 10 726 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 12:38:51.26 ID:YCGD2W4D.net] >>703 Ruby h = -> c {'qaz'[c] ? 1 : 'wsx'[c] ? 2 : 'edc'[c] ? 3 : 'rfvtgb'[c] ? 4 : 'yhnujm'[c] ? -4 : 'ik'[c] ? -3 : 'ol'[c] ? -2 : 'p'[c] ? -1 : raise('invalid key')} f = -> str{(str[/\A[adfghjkls]/] ? 4 : 5) + str.each_char.map{|c| h[c]}.each_cons(2).map{|a, b| a * b < 0 ? 1 : a != b ? 2 : 3}.sum} %w[aiueo odai pppp asdfjkl fjdksla].each{|s| puts '%s => %d' % [s, f[s]]} # => aiueo => 9 odai => 9 pppp => 14 asdfjkl => 15 fjdksla => 10 727 名前：デフォルトの名無しさん [2018/11/25(日) 13:38:17.14 ID:k7/W79Is.net] >>702 そういうインタラクティブなやつか。 じゃあまた暇があったら作ろう。 728 名前：デフォルトの名無しさん [2018/11/25(日) 16:23:23.79 ID:rkqtyTFb.net] お題：Brainfuckのインタプリタを実装せよ 仕様 https://ja.wikipedia.org/wiki/Brainfuck >+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>++++++++[<++++>-]<+.[-]++++++++++. ⇒ Hello World! ++++++++[>++++++++<-]>++.<++++++[>++++++++<-]>.<----[>++++<-]>-.++++++++.+++++.--------.+++++++++++++++.<----[>++++<-]>--.++++++++. ⇒ ？ 729 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 16:52:01.92 ID:1Q36MCdG.net] >>706 Ruby やっつけ def parse_bra(code) 　　Hash.new.tap{|h| 　　　　while i = (code.index(/\[[^\[\]]*\]/)) 　　　　　　h[i] = i + $&.size - 1; h[h[i]] = i; code = code.sub($&, ' ' * $&.size) 　　　　end 　　end end def step(stat) 　　case stat[:code][stat[:pos]] 　　when ?> then stat[:mar] = stat[:mar] == 9999 ? 0 : stat[:mar] + 1 　　when ?< then stat[:mar] = stat[:mar] == 0 ? 9999 : stat[:mar] - 1 　　when ?+ then stat[:mem][stat[:mar]] = stat[:mem][stat[:mar]] == 255 ? 0 : stat[:mem][stat[:mar]] + 1 　　when ?- then stat[:mem][stat[:mar]] = stat[:mem][stat[:mar]] == 0 ? 255 : stat[:mem][stat[:mar]] - 1 　　when ?. then putc stat[:mem][stat[:mar]] 　　when ?, then stat[:mem][stat[:mar]] = $stdin.getc&.ord.to_i 　　when ?[ then stat[:pos] = stat[:bra][stat[:pos]] if stat[:mem][stat[:mar]] == 0 　　when ?] then stat[:pos] = stat[:bra][stat[:pos]] if stat[:mem][stat[:mar]] != 0 　　end end def bf(code) 　　stat = {pos: 0, mar: 0, code: code, mem: Array.new(10000, 0), bra: parse_bra(code)} 　　(step(stat); stat[:pos] += 1) while stat[:pos] < code.size end bf('>+++++++++[<++++++++>-]/ 中略 /++++[<++++>-]<+.[-]++++++++++.') # => Hello World! bf('++++++++[>++++++++<-]>+/ 中略 /++++.<----[>++++<-]>--.++++++++.') # => Brainfuck 730 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 19:29:25.63 ID:Iiz4BNf0.net] >>706 C 昔書いたやつ https://ideone.com/r8gfF0 mandelbrotがideoneで2.9s 731 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 21:08:13.52 ID:FiKNHiMA.net] >>708 ideoneのbrainfuckより速いじゃないかｗ https://ideone.com/E28MuB 732 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 21:09:21.48 ID:F5E3KDnq.net] >>709 笑った 733 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 23:28:07.03 ID:DgoPPid/.net] >>664　Perl5 普通のloop版 use feature qw{current_sub say}; for (qw{321 910 909 0 11111 123456789}) { $a = $_; $s = 1; @d= (); do { $d = int $a / 10*$s; $m = $a % (10*$s); unshift @d, $m*$s; $s *= -1; $a = ($a - $m)/10; } while $a; say "$_ $d => ", @d; } >>664　Perl5 無名関数の末尾再帰版 use feature qw{say}; for (qw{321 910 909 0 11111 123456789}) { $s = 1; say "$_ $d => ", sub { $a = shift; $d = int $a / 10*$s; $m = $a % (10*$s); my $ms = $m*$s; $s *= -1; $a = ($a - $m)/10; (($a ? __SUB__->($a) : ()), $ms); }->($_); } 734 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 23:30:57.42 ID:DgoPPid/.net] >>711 ｺﾞﾒﾝ、普通のloop版の say "$_ $d => ", @d; は不要なdebug writeも出力するので say "$_ => ", @d; に訂正 結果はいずれも $ perl 12_660.pl 321 => 481 910 => 19090 909 => 909 0 => 0 11111 => 29291 123456789 => 284664829 735 名前：デフォルトの名無しさん mailto:sage [2018/11/25(日) 23:34:40.02 ID:DgoPPid/.net] >>711 再々投ｺﾞﾒﾝ 無名関数の末尾再帰版 × use feature qw{say}; ↓ ○ use feature qw{current_sub say}; 736 名前：697 [2018/11/26(月) 02:29:30.61 ID:jdmxn8AZ.net] >>683>>702 HTML + JavaScript https://codepen.io/an 737 名前：on/pen/OaERvj 即実行できた方がいいかなと思ってブラウザで動く JavaScript にしてみた。 PC側は10台まで台数入力する。 表示は「グー」、「チョキ」、「パー」になっている。 判定は方法ほ Kotlin のやつとほとんど同じ。 但し勝敗や相子に関係なく再挑戦ボタンが出る。 [] [ここ壊れてます] 738 名前：デフォルトの名無しさん mailto:sage [2018/11/28(水) 01:28:37.70 ID:he8qnrZH.net] >>706 c https://ideone.com/AfZmCz 739 名前：711 mailto:sage [2018/11/28(水) 23:15:07.63 ID:he8qnrZH.net] >>706 c https://ideone.com/Plh1vx ・mandelbrotが4.24s ・セル配列をコンパクト化 ・一部のforとswitchをgotoで置き換え ・データポインタの範囲チェックは廃止 ・']'のとき無条件に'['へ戻ってたのを廃止 740 名前：デフォルトの名無しさん [2018/11/28(水) 23:53:16.47 ID:fj/EN88U.net] これで。以前からやろうとしてできてない。AI簡単そうだが。 ３ｘ３盤タイルゲーム for Windows　ver2.00　14/7/5 更新 対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」　＜入門版＞ ４ｘ４盤タイルゲーム for Windows　ver2.00　14/7/5 更新 対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」　＜本格版＞ www2u.biglobe.ne.jp/~shunbook/omocha/index.htm 741 名前：デフォルトの名無しさん mailto:sage [2018/11/29(木) 11:20:14.11 ID:jwCbT4Qs.net] 盤の状態は4×4のやつで3^16=43046721通りだから後退解析で全状態の最善手が簡単に解ける 742 名前：デフォルトの名無しさん mailto:sage [2018/11/29(木) 19:56:01.31 ID:Hd6SZyXm.net] >>716 その "&&label" って初めてみたんだけどgcc拡張なんだな 743 名前：デフォルトの名無しさん mailto:sage [2018/11/29(木) 20:53:52.25 ID:lIzTCHsu.net] >>719 これか。こんなのあったとは知らなかった。 nnabeyang.hatenablog.com/entry/2012/12/05/160312 しかしあまり利用する必要なさそうな予感。 744 名前：711 mailto:sage [2018/11/29(木) 23:18:59.74 ID:dyCCyrAH.net] >>706 c https://ideone.com/ddpLYQ ・ mandelbrotが4.24s→3.42s ・いくつかの単純なループを自前の命令に置き換え >>719-720 まさかこれ使う日が来るとはね（　＾ω＾） 745 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 16:33:00.37 ID:M3yAddAk.net] さすがC言語 奥が深いな 746 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 18:55:20.12 ID:eqr4XxJg.net] 儲かるお題を書いてください。 747 名前：デフォルトの名無しさん [2018/11/30(金) 19:56:50.93 ID:vThfWoZE.net] お題: C言語のコメント/*〜*/, //〜 を除去するプログラムを実装せよ 748 名前：711 mailto:sage [2018/11/30(金) 22:52:06.95 ID:j+r1UJtS.net] >>706 https://ideone.com/d0oDj0 ・ mandelbrotが4.24s→3.42s→3.24s ・ループの置き換えを若干増やす ・初期8命令を6命令へ、なんとなく整理 749 名前：デフォルトの名無しさん [2018/11/30(金) 22:53:31.37 ID:cIO0a97u.net] >>724 命令すんなカス 750 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 23:05:45.19 ID:iwzbC/nf.net] >>725 ここまで最適化するとはすごいな 今VCに移植してやってみてる VCはラベルのアドレスは取れないのでcase文内で処理してる でも文字がダラダラと表示されるのが嫌なので、putchar()の所を 一度バッファに溜めておいて最後にputs()で一気に出力するようにした 751 名前： mailto:sage [2018/11/30(金) 23:09:14.20 ID:MkfLpznc.net] >>724 やったことがある気がしたのですが、もうすっか� 752 名前：阮Yれてしまいました… [] [ここ壊れてます] 753 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 23:09:48.33 ID:iwzbC/nf.net] >>716のを移植するとこうなる 他のも同様だと思う Random1.h というのは自前のストップウォッチクラスを使うためだけなので、 std::chronoを使って適当に自作すれば良い https://ideone.com/Vf0qIj 754 名前：デフォルトの名無しさん mailto:sage [2018/11/30(金) 23:16:05.51 ID:TjeK6E2T.net] お題: 入力にこのスレのhtmlが与えられるので数字だけ,区切りで出力しなさい。 出力例 2018,11,30,... 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" => "

---

---

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

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