プログラミングのお題スレ 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/ 643 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:22:35.53 ID:fvygYhm9.net] >>618 Java https://ideone.com/NWI4DM 644 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:30:22.51 ID:7Tiab2M6.net] >>617 Java https://ideone.com/g0xX7G 1 3は3じゃなくて1でいいんよね？ 645 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) ] [ここ壊れてます] 646 名前：22:30:46.05 ID:luckbEjf.net mailto: >>541 c https://ideone.com/cyu360 [] [ここ壊れてます] 647 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:32:28.49 ID:XrCNlm4w.net] >>618 python3 def keyMaker(x): __x = [int(y) for y in x] __x.append(x[-1]+0.1) __return x for y in ["3 2 1","1 2 21", "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16"]: print(int("".join(sorted(y.split(),key=lambda x: keyMaker(x))))) -> 123 1212 10111121314151623456789 0.1足さないと "10 11 101 100"で間違えるな 648 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:39:54.74 ID:Pa+SHuBo.net] >>624 101 10 と 10 101 で結果が異なる https://ideone.com/crTQpT 649 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:54:14.65 ID:7Tiab2M6.net] >>618 Java https://ideone.com/Ievsls 650 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 22:55:54.34 ID:7Tiab2M6.net] あ、>>625問題読み間違えてるわ コスト1で1増やすんじゃなくて1増減出来るのね… 651 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:11:59.00 ID:DBPerFhf.net] >>618 Perl5 use feature say; say sort{"$a$b"<=>"$b$a"} split for <DATA>; __DATA__ 3 2 1 1 2 21 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 実行 $ perl 12_614.pl 123 1212 10111121314151623456789 652 名前：デフォルトの名無しさん [2018/11/21(水) 23:12:22.88 ID:jrFgFGaV.net] お題：分数を小数に直したときの循環部分の周期を求める 割り切れる場合は0とする 例： 1/3 => 1 10/2 => 0 988027/983 => 982 919/870473 => 54288 1223/1476221 => ? 99998360006603 / 9999901 => ? 653 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:20:10.22 ID:7Tiab2M6.net] >>617 Java (>>625の修正) https://ideone.com/Wmb9ZO 654 名前：デフォルトの名無しさん [2018/11/21(水) 23:21:24.98 ID:jrFgFGaV.net] 123412345/999999999 => 9 も>>632の例に追加 655 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:30:03.05 ID:fvygYhm9.net] >>625 あ、ごめん1 3は1だね 3 1と書き間違えた 656 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:35:51.69 ID:7Tiab2M6.net] >>632 Java https://ideone.com/DX4VYY 657 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:40:44.97 ID:7Tiab2M6.net] >>636 循環部の周期じゃなくて、小数点以下の循環部の終わる位置を調べてる気がしてきた…修正が必要ですｗ 658 名前：デフォルトの名無しさん mailto:sage [2018/11/21(水) 23:56:52.64 ID:DBPerFhf.net] >>632 >>634 Perl5 for (<DATA>) { ($X, $y) = split; $x = $m = $X % $y; my $n; do { $x = 10 * $x % $y; $n++ } while $x != $m; print "$X/$y => ", ($x ? $n : $x), "\n"; } __DATA__ 1 3 10 2 988027 983 919 870473 1223 1476221 99998360006603 9999901 123412345 999999999 実行 $ 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 659 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:02:55.27 ID:YC9N9M8Q.net] >>637 そういわれると>>638も自信がなくなってきたので念のため修正 >>632 >>634 Perl5 for (<DATA>) { ($X, $y) = split; $x = $m = $X % $y; my ($n, %h); $h{$x} = 1; do { $x = 10 * $x % $y; $n++ } until $h{$x}; print "$X/$y => ", ($x ? $n : $x), "\n"; } __DATA__ 1 3 10 2 988027 983 919 870473 1223 1476221 99998360006603 9999901 123412345 999999999 実行 $ 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 660 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:08:36.27 ID:iFlHYuR3.net] 1234/555 => 3 >>636だと4になる >>638だと無限ループって怖くね？ 661 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:10:07.02 ID:YC9N9M8Q.net] >>640 サンプルデータでは問題ないが 場合によっては無限ループの恐れｱﾙかも 662 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:11:14.76 ID:YC9N9M8Q.net] >>639 は無限ループの恐れなし 663 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:13:47.95 ID:iFlHYuR3.net] >>642 ideoneに食わせたらTime limit exceededになる・・・なんでや https://ideone.com/2b6wUH 664 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:16:08.77 ID:YC9N9M8Q.net] >>642 いや変なところから巡回し始める数値があれば>>639 も無限ループ 以下修正版。しかし少し進んでからようやく巡回し始める数値ってあるんだろうか… 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__ 1 3 10 2 988027 983 919 870473 1223 1476221 99998360006603 9999901 123412345 999999999 665 名前：デフォルトの名無しさん mailto:sage [2018/11/22(木) 00:19:18.30 ID:YC9N9M8Q.net] >>643 しらんがなサイトのtimeout秒設定とちゃいますか いま使っているPC(CPU Core U1300 1.06Gz)では 一番遅い>>644のソースで $ time 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 12.312 secs 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" => " 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 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/ 874 名前： mailto:sage [2018/12/22(土) 16:28:53.58 ID:vmp1HvU+.net] >>846 昔カルノー図がかける範囲（3入力？4入力くらいだったかな？）で簡約化ツールを作ったことがあります 当時は書き捨て上等、でやっていたのですが、今は困ってしまっています、当時のプログラム記述能力は当時は今後もずっと保存されるものと当時は考えていたのですが、それは完全な誤りでした… 875 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 16:48:28.85 ID:V9Fp8lZV.net] >>846 俺全然わかってない人なんだけど、 そのURLの一番下の、入力部分のNOTゲートを無視しない場合、 9個のNANDゲートで構成できるって書いてあるけど、 NOTゲートの部分を2個減らして7個で作るとかはあかんのん？ 876 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 16:56:13.54 ID:jMuRFGAa.net] 半導体製造のコストがある NANDゲートは作り易い、というか造りが簡素で単純 NOTゲートも作り易い なので厳密には製造コストも考えないといけない 877 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 17:29:24.88 ID:gPP7+XoH.net] >>848 ホントだ、AとCのNOTを一つずつ減らせるね というかこれが最小になる保証もないよね 878 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 18:34:59.46 ID:m1FIlPHW.net] >>846 カルノー図からの簡略結果が最終形ではない。 最終形は Z=~ABC+A~C+~BC 879 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 21:11:36.62 ID:9AXglOVX.net] >>851 それA=0, B=0, C=0の結果から間違ってるんだが 880 名前：デフォルトの名無しさん mailto:sage [2018/12/23(日) 23:39:28.74 ID:DR7zt9Cz.net] >>852 うむ 最終形は Z=~ABC+A~C+~B~C ですね ２入力NAND回路は Step 9, Solution 1 0 : -1, -1: 0, 0, 0, 0, 1, 1, 1, 1 1 : -1, -1: 0, 0, 1, 1, 0, 0, 1, 1 2 : -1, -1: 0, 1, 0, 1, 0, 1, 0, 1 3 : 0, 0: 1, 1, 1, 1, 0, 0, 0, 0 4 : 3, 1: 1, 1, 0, 0, 1, 1, 1, 1 5 : 4, 2: 1, 0, 1, 1, 1, 0, 1, 0 6 : 5, 2: 1, 1, 1, 0, 1, 1, 1, 1 7 : 5, 4: 0, 1, 1, 1, 0, 1, 0, 1 8 : 7, 6: 1, 0, 0, 1, 1, 0, 1, 0 ともう一つでした。 881 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 08:22:13.10 ID:bL5ZoHRn.net] >>853 > Z=~ABC+A~C+~B~C それA=0, B=1, C=0の結果が違うぞ 882 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 11:32:09.70 ID:7aEQUcJ6.net] >>854 ~ABC → C=0なので0 A~C → A=0なので0 ~B~C → B=1なので0 結果0であってるんじゃないのん？ 883 名前：デフォルトの名無しさん mailto:sage [2018/12/24(月) 13:42:11.05 ID:bL5ZoHRn.net] >>855 すまん、合ってるわ ちょっとボケてたな 884 名前：デフォルトの名無しさん mailto:sage [2018/12/26(水) 16:33:56.35 ID:GYS6kcBm.net] >>853 wxMaximaでお絵描きした。 /* [wxMaxima: input start ] */ load (graphs)$ gg() := draw_graph( net, show_weight=true, vertex_size=3, show_id=true, show_vertices=[0,1,2,8], show_vertex_type=filled_square, head_length=0.2, head_angle=5, edge_color="dark-green", text_color=blue ); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ Solution[1]:[[[ 0, 3],2],[[ 3, 4],1],[[ 1, 4],1], [[ 4, 5],1],[[ 2, 5],1],[[ 5, 6],1],[[ 2, 6],1], [[ 5, 7],1],[[ 4, 7],1],[[ 7, 8],1],[[ 6, 8],1]]$ /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ aa:1$ for g:aa thru 1 do ( net : create_graph(9,Solution[g],directed=true), print("Solution",aa,Solution[g]),aa:aa+1, gg()); /* [wxMaxima: input end ] */ 885 名前：デフォルトの名無しさん mailto:sage [2019/01/06(日) 20:37:20.68 ID:uX30aAuK.net] エモい歌うまバーチャルユーチューバー https://script.google.com/macros/s/AKfycbxuAt1ejx43_zMRfK7Xplwgwn7cXDQAdZTJkDdLrVCLo8SIdhI/exec 今、見られている話題のVtuberを知りたいなら、ハルカス式Vtuberランキングを見ましょう 【ハルカス式Vtuberランキング】※毎週・毎月自動更新 https://script.google.com/macros/s/AKfycbzZO93mJcZ5M_dPmIZOzuVQNr4mcGwQQdiT7GiLld_1Uews7uE/exec 年末年始の一週間12/27〜01/02までのハルカス式Vtuberランキング https://docs.google.com/spreadsheets/d/1jdVQ2r5yTrAykMRF1nuX6_5DXpK0167D4JcVCQZTJdM/edit#gid=157464142 年末の一ヶ月12/1〜12/31までのハルカス式Vtuberランキング https://docs.google.com/spreadsheets/d/1Yc6HD_h4lfurme9b3T0ZXBf2-iBpFSmMGg-1bdgSe0E/edit#gid=1971024984 第４回バーチャルYouTuber人気投票募集中（全304名、2018年11月23日〜） あなたの好きなVtuberは？５問（配信内容、トーク、歌うま、ゲーム実況、キャラデザ） https://script.google.com/macros/s/AKfycbwSwNBm8qYD4_kZN2uJLeqRIP8Mwpbo3YDTUEpaSMU02BDAR3jh/exec ・Googleフォームは標準仕様では不正投票が可能な為、改造して対策を行いました。 ・2018/11/23時点でチャンネル登録数10,000人以上のuserlocalに登録されたVtuberを対象としています。 ・一つのチャンネルでVtuberが複数人いる場合は、それぞれ分けています。 ・このフォームに投票するにはグーグルアカウントでログインする必要はありません。 ・並び順は前回の得票数の高い順と新人は登録者数の多い順に並んでいます。 ・今回も1,000人の方が投票するまで継続します。 なお投票結果はスプレッドシートにリアルタイムで表示されるようにしました。 また【概要】と【詳細】でシートを分けております。 https://docs.google.com/spreadsheets/d/1udB81Vnia9CoIgPaan3a5XFeaCfcnBXkRoPTuxvRpAc/ ｇｒげｒげ 886 名前：デフォルトの名無しさん [2019/01/18(金) 22:48:43.15 ID:sD1souQd.net] あげ 887 名前：デフォルトの名無しさん [2019/01/19(土) 05:22:33.88 ID:M8Q3zGyy.net] 過疎ってるので別スレのこれをお題にする。 なお、クラスではなく関数でもサブルーチンでも良い。 https://mevius.5ch.net/test/read.cgi/tech/1544839627/332 332 デフォルトの名無しさん (ﾜｯﾁｮｲ f11f-t+p0) sage 2019/01/18(金) 22:57:58.37 ID:1ZiD/8V00 文字列から数字をtmpWとtmpHに抜き出すクラスを作りたいのですがどうしたらいいですか？ 演算子記号は+−もある、数字の桁数は不明で小数点もあり、数字が入るときは小文字一字始まり、引数はw or hで抜き出す戻り値を示す。 対象文字 �@w900×ＨH �AWW×h1000 �BWW×HH �Cw900/h100 結果 引数がwなら左　 hなら右 �@tmpW=900　tmpH=�W�W �AtmpW=�W�W tmpH=1000 �BtmpW=�W�W　tmpH=�W�W �CtmpW=900　tmpH=1000 888 名前：デフォルトの名無しさん mailto:sage [2019/01/19(土) 08:17:19.40 ID:9NMu+pMT.net] お題スレじゃなくて、あなたの宿題無料でやりますよになってる 889 名前：デフォルトの名無しさん [2019/01/19(土) 09:54:02.71 ID:9IabhBF0.net] >>860 Ruby f = -> str {str.scan(/([A-Z]{2}|[a-z])((?:\d+\.)?\d+)?/).each_with_object({}){|(m, num), h| h["tmp#{m[0].upcase}"] = !num ? ' ' : num.match?(/\./) ? num.to_f : num.to_i}} %w[ 　　w900×HH WW×h1000 WW×HH w900/h100 w3.14/h2.72 ].each{|e| h = f[e]; puts "#{e} -> " + h.map{|v| '%s = %p' % v}.join(', ')} # => w900×HH -> tmpW = 900, tmpH = " " WW×h1000 -> tmpW = " ", tmpH = 1000 WW×HH -> tmpW = " ", tmpH = " " w900/h100 -> tmpW = 900, tmpH = 100 w3.14/h2.72 -> tmpW = 3.14, tmpH = 2.72 890 名前：デフォルトの名無しさん mailto:sage [2019/01/19(土) 12:58:12.91 ID:XYN5JTgF.net] > �CtmpW=900　tmpH=1000 891 名前：デフォルトの名無しさん [2019/01/19(土) 15:20:58.20 ID:M8Q3zGyy.net] >>861 お題をやるかどうかは自由だし使う言語も自由なのでここは宿題向きスレではない。それに宿題用のスレは別にある。 892 名前：デフォルトの名無しさん [2019/01/20(日) 17:00:10.01 ID:XepLmY3z.net] お題 チェス盤をかく □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 893 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 17:28:18.15 ID:bv4HmLR/.net] for i in range(4): print("□■□■□■□■") print("■□■□■□■□") 894 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 18:45:01.40 ID:vla32kuj.net] console.log(` □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ `); 895 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:21:05.18 ID:QLQt0ffh.net] >>865 85kg 170cmの俺がJavascriptで回答。 [85, 170] .map(d => [...d.toString(2).padStart(8,0)] .map(b => +b ? '□' : '■') .join`` + '\n') .join`` .repeat(4) 896 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:39:43.28 ID:CUY2SNg1.net] >>865 Ruby puts 72.times.map{|i| i % 9 / 8 * 10 + 15 / (i % 9 + 8) * (i & 1 ^ 9633)}.pack('U*') # => □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 897 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:45:27.08 ID:z2xvgkTe.net] >>868 >>869 お前ら天才だな 普段何やってんの 898 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 19:58:44.02 ID:vla32kuj.net] >>870 ヒマ人どもの公開オナニーに騙されるな。 ベンチ取ってみれば分かるけど >>868より>>867のほうが処理速度も速く、CPU、メモリ消費も勝ってる。 899 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 22:22:45.08 ID:n75q6Hj+.net] 解法や工夫は色々あっていい 900 名前：デフォルトの名無しさん mailto:sage [2019/01/20(日) 23:40:01.19 ID:3oCDYmJz.net] >>871 可読性も最強だしなｗ 901 名前：デフォルトの名無しさん [2019/01/21(月) 00:16:11.01 ID:evkqklOK.net] 前々からつくろうとしていまだ決定版ができてないのがある。 コマンド　fileA fileBで、重複行を除いて連結と、 A-Bで重複行を除くやつ。入力が数百Mだときつい。 902 名前：デフォルトの名無しさん [2019/01/21(月) 00:20:48.31 ID:q5TMCwho.net] きついのは口臭だけにしとけよ 903 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 04:33:49.89 ID:ZCrWhalc.net] >>874 Linux とかでよく使われるシェル(bash とか)ならこんな感じだろうな。 ( uniq fileA ; uniq fileB ) > fileC シェルスクリプトにするならこんな内容のファイルを作ってそれの実行パーミッション立てておくだけ。 #!/bin/sh uniq $1 uniq $2 ようするに uniq コマンド使ってるだけ。 Windows でも似たようなものはあるかも知れないが WSL 入れて Ubuntu とか動かしちゃった方が何も考えずに Linux 風にできるので楽かも知れない。 /mnt/c/ にCドライブマウントされてるからファイルのやり取りを考える必要もない。 改行が LF なのとデフォルトのエンコーディングが UTF-8 なのは考慮する必要があるが。 904 名前：デフォルトの名無しさん [2019/01/21(月) 07:09:30.84 ID:evkqklOK.net] そんな機能あったっけ、と確認したみたけど意図する動作しない、連続しない重複も対象 Linuxコマンド集　【 uniq 】 ソート済みのファイルから重複した行を削除する ファイルで重複している行を削除する。ただし，ファイルはソートしてある必要がある https://tech.nikkeibp.co.j 905 名前：p/it/article/COLUMN/20060227/230918/ 連続していない離れた重複行も削除したければ、sortコマンドコマンドで予めソートする必要がある。その代わり順番は保存されない。 https://hydrocul.github.io/wiki/commands/uniq.html [] [ここ壊れてます] 906 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 08:10:55.04 ID:rd0KMO5T.net] 要するにAの末尾とBの先頭で一致するとこだけを削除したいってこと？ 907 名前：デフォルトの名無しさん [2019/01/21(月) 08:19:59.40 ID:evkqklOK.net] ２つあって。 一つは連結した単一ファイルで、後方にある重複行を取り除く。 もう一つはBに存在する行を取り除いたAの重複行を取り除く。 それぞれuniq拡張(A+B)　、uniq拡張(A-B)のような。 908 名前：デフォルトの名無しさん [2019/01/21(月) 09:47:36.96 ID:evkqklOK.net] スクリプトやめてC++でやってみたら ロードと書き込みの速度とほぼ同程度でできるようだ。 909 名前：デフォルトの名無しさん [2019/01/21(月) 11:56:42.83 ID:ub5sAEWO.net] >>865 J }:("1) 8 9 $ '_#' _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ _#_#_#_# #_#_#_#_ 910 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 13:07:07.09 ID:jV3tC4jb.net] JってUnicode使えないの？ 911 名前：デフォルトの名無しさん [2019/01/21(月) 13:14:23.06 ID:ub5sAEWO.net] 使えるんだけど私の方が勉強不足で。 912 名前：デフォルトの名無しさん [2019/01/21(月) 14:03:05.80 ID:chW+Guj1.net] >>865 Perl https://paiza.io/projects/06iuVCc-HeWgTb7j2TrTMQ 913 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 14:14:22.79 ID:P73TaUU+.net] >>879 A-Bの部分は grep -x -v -f B A でできるけど順序を保存したuniqはコマンドだけではできないのかな 914 名前：デフォルトの名無しさん [2019/01/21(月) 18:14:39.49 ID:chW+Guj1.net] そういうコマンドを別途作るか、全部作っちゃうかかな。 915 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 21:03:38.83 ID:mEBdwP2z.net] Ruby なら、ハッシュで重複行を排除できる。 ARGF は、a.txt b.txt (ARGV)を連結した、仮想ファイル ruby script.rb a.txt b.txt 以下は、script.rb の内容 hash = { } ARGF.each_line { |line| hash[ line ] = true } # true には、特に意味がない puts hash.keys -- a.txt あ a あ b -- b.txt x あ a ん -- 出力 あ a b x ん 916 名前：デフォルトの名無しさん [2019/01/21(月) 21:49:42.62 ID:QH90tNLy.net] 速度出るのできた。CRCと文字列長のハッシュしかみてなく重複らしいのはduplicate.txtへ。 標準出力 deldup.exe fileA fileB ・・・　はマージして重複削除 deldup.exe /D fileA fileB ・・・　はA -B -・・・の重複削除 https://ideone.com/ABJNAy 917 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 22:56:33.96 ID:uToUSKRf.net] >>865 octave https://ideone.com/KyX1rR 918 名前：デフォルトの名無しさん mailto:sage [2019/01/21(月) 23:04:52.30 ID:PFiT+1XJ.net] >>226 Javaはunsignedの概念がない 919 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 02:53:38.24 ID:t1xtxA/a.net] >>879 後方にある重複業削除なら awk で連想配列(要するにハッシュ)使ってこんな風にすればできるな。 awk '{if(!n[$0]){n[$0]=1;print}}' fileA fileB ただし全行をメモリ上に置くことになるのでファイルがでかいとまともに動かない環境があるかも。 超大きいファイルの場合は行ごとに MD5 や SHA1 等のハッシュ値計算してそれだけ保管しておいて比較した方が良いかもね。 920 名前：デフォルトの名無しさん [2019/01/22(火) 10:22:28.48 ID:f5q/almD.net] >>865 Lua for i=1,72 do if i%9==0 then print("") else io.write(({"■","□"})[i%2+1]) end end 921 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 11:22:34.61 ID:ez/DcBYq.net] 普通に行ごとにソートして重複を除去すればいいだけやん 922 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 12:39:35.18 ID:bOf9t ] [ここ壊れてます] 923 名前：fZi.net mailto: >>865 javascript [...function*(){for(var i=0;i<64;i++)yield (i&7)==7?'\n':'■□'[i&8?i%2:+!(i%2)]}()].join`` [] [ここ壊れてます] 924 名前：デフォルトの名無しさん [2019/01/22(火) 12:48:37.38 ID:J1mDHp9Y.net] >>893 順序変えなくないんだって。 925 名前：デフォルトの名無しさん [2019/01/22(火) 18:32:37.01 ID:f5q/almD.net] >>865 Ruby puts (["□■"*4,"■□"*4]*4) 926 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 18:48:04.82 ID:bOf9tfZi.net] >>881 J分からない人向け解説ｷﾎﾞﾝﾇ 927 名前：デフォルトの名無しさん mailto:sage [2019/01/22(火) 22:15:16.89 ID:4TOwjU0o.net] >>865 javascript ['□■', '■□'].map(s => s.repeat(4) + '\n').join``.repeat(4) 928 名前：デフォルトの名無しさん [2019/01/24(木) 21:04:14.42 ID:HE3o+0uB.net] >>865 Lua print (((("_#"):rep(36)):gsub("(........).","%1\n"))) 929 名前：デフォルトの名無しさん mailto:sage [2019/01/24(木) 22:20:43.56 ID:HLNzgCZV.net] >>865 javascript Array(72).fill().map((v, i)=>i%9?'■□'[i%2]:'\n').join`` >>894はボード横幅が7になってる間違いでしたごめんなさい。 930 名前：デフォルトの名無しさん [2019/01/25(金) 20:09:30.47 ID:s1700d1K.net] お題 n個からr個選ぶ組み合わせの個数を求める 931 名前：デフォルトの名無しさん mailto:sage [2019/01/25(金) 22:06:56.43 ID:7NAKvkXa.net] 数学の問題が叩かれるのはここのアホどもには難しいからなんだ！ 決してスレ違いだからじゃないんだ！ だから高校１年の教科書の定義引き写すだけの簡単な問題なら叩かれないんだ！ 932 名前：デフォルトの名無しさん mailto:sage [2019/01/25(金) 22:30:26.19 ID:oIz/D2lY.net] 教科書捨てたから定義ググりました。 const p = (n, r) => (n < 2 || r < 1) ? 1 : n * p(n - 1, r - 1); const c = (n, r) => p(n, r) / p(r); c(1200, 100); //=> 1.2734481790871909e+148 chromeでBigInt実装されてるのでせっかくだからと思ってpを const p = (n, r) => (n < 2n || r < 1n) ? 1n : n * p(n - 1n, r - 1n); に改良しようとしたらエラーでる… なんでか分かる方いたら教えてください。 933 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 03:39:53.55 ID:mo79YSSI.net] >>901 Ruby c = -> (n, k, m = []) { 　　m[n] = [1] unless m[n] 　　k = n - k if n < k * 2 　　return m[n][k] if m[n][k] 　　m[n][k] = c[n - 1, k - 1, m] + c[n - 1, k, m] } p c[5, 2] # => 10 p c[100, 50] # => 100891344545564193334812497256 >>903 undefined - 1n でエラーが起きているので const c = (n, r) => p(n, r) / p(r, r); 934 名前：デフォルトの名無しさん [2019/01/26(土) 03:52:04.18 ID:NFcmjJe3.net] >>901 効率はともかく、関数プログラミングって本でこれ見た時は感動したな。(言語は数学とSMLを合わせた仮想言語だったが) Haskell c n 0 = 1 c n m |n == m = 1 c n m = c (n - 1) m + c (n - 1) (m - 1) 実行結果 5 `c` 3 >10 935 名前：デフォルトの名無しさん [2019/01/26(土) 04:12:24.35 ID:NFcmjJe3.net] 高校の教科書版 Haskell c' n r = product [1..n] `div` (product [1..(n - r)] * product [1..r]) 解説 n C r = n P r / r! = n! / ((n - r) ! * r!) (n P r = n ! / (n - r)!に分解) 936 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 04:32:41.56 ID:Ve68vOks.net] >>904 ありがとう！ 恥 937 名前：ずかしい… [] [ここ壊れてます] 938 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 05:11:41.67 ID:iYrqGgfh.net] >>901 C++ inline uint64_t gcd(uint64_t a, uint64_t b) { uint64_t r; while ((r = a % b) != 0) { a = b; b = r; } return b; } uint64_t binomial(uint64_t n, uint64_t m) { if (n < m) return 0; m = (m > n / 2) ? n - m : m; uint64_t result = 1; for (uint64_t i = 1; i <= m; i++, n--) { uint64_t d = gcd(result, i); result /= d; result *= n / (i / d); } return result; } 939 名前：デフォルトの名無しさん [2019/01/26(土) 10:34:54.19 ID:ls0y1m5K.net] >>901 Lua function cc(n,r) local a = 1 for i = 1, r do a=a*(n-i+1)/i end return a end print(cc(20,10)) 184756.0 940 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 11:22:21.12 ID:tq46h9Ux.net] お題 複数の線分が平面上で重なりがあるかないかしらべる。 941 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 12:02:35.05 ID:Owe/QLUY.net] >>865 @Mathematica Table[If[EvenQ[i + j], 0, 1], {i, 8}, {j, 8}] // 　ArrayPlot[#, Mesh -> True] & 942 名前：デフォルトの名無しさん [2019/01/26(土) 13:54:20.56 ID:+oP10x+/.net] >>910 適当に連立方程式とくだけじゃなかったです？ 数学出来ないんですけど。 943 名前：デフォルトの名無しさん [2019/01/26(土) 14:10:31.09 ID:t2YAFdPa.net] 人狼AI　と　人狼ゲーム 944 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 14:39:24.25 ID:YRte2Dpq.net] >>865 Perl5 print ((qw{□■}x4, "\n", qw{■□}x4, "\n")x4); 実行結果 $ perl 12_860.pl □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 945 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 15:04:32.49 ID:vn81VQ6e.net] >>865 Pharo Smalltalk String cr join: ((1 to: 4) collect: [:i | {'□■' repeat: 4 . '■□' repeat: 4} ]) flattened 実行結果 □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ □■□■□■□■ ■□■□■□■□ 946 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 17:16:36.10 ID:5cGQ6lSj.net] お題: マークダウン記法の見出しをHTMLに変換しなさい 947 名前：デフォルトの名無しさん [2019/01/26(土) 18:50:28.91 ID:OZN9QunV.net] >>865 rfo-basic For i=1 To 44 m$=m$+Chr$((9622+Mod(i,2))*(Mod(i,9)<>0)+10) Next Print m$ End プロは奇をてらわない。 ｂａｉ　砂坊主 948 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 21:39:22.15 ID:Ve68vOks.net] byでは？ 949 名前：デフォルトの名無しさん mailto:sage [2019/01/26(土) 21:56:29.11 ID:lXnCadeF.net] レス古事記に構うなよ 950 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 00:46:03.01 ID:EZ97VlcS.net] >>865 @Mathematica セルオートマトン（ルール32）を使って、、 CellularAutomaton[32, {0, 1, 0, 1, 0, 1, 0, 1}, 8] // 　ArrayPlot[#, Mesh -> True] & 951 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 01:01:04.00 ID:u288xi28.net] >>865 python3 [print("".join("■" if (x+y) % 2 else "□" for y in range(8))) for x in range(8)] 952 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 04:52:31.63 ID:rwuNPA7J.net] >>865 C for (int r = 0; r < 8; r++) {   for (int c = 0; c < 8; c++) {     printf((r + c) % 2 ? "■" : "□");   }   printf("\n"); } 953 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:36:29.52 ID:rwuNPA7J.net] >>910 C double abac = (bx - ax) * (cy - ay) - (by - ay) * (cx - ax); double abad = (bx - ax) * (dy - ay) - (by - ay) * (dx - ax); double cdca = (dx - cx) * (ay - cy) - (dy - cy) * (ax - cx); double cdcb = (dx - cx) * (by - cy) - (dy - cy) * (bx - cx); return (abac * abad < 0 && cdca * cdcb < 0); 954 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:44:59.11 ID:mVMeZ4rl.net] >>923 直線じゃなくて線分だぞ 955 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 06:46:02.03 ID:z0hosMYm.net] >>916 javascript(es2018 regexネームドグル 956 名前：ープのため) const atxMatcher = line => line.trim().match(/^(?<directive>\S*)[ \t]+(?<contents>.*)/) const atxRules = [{ name: 'HnTag', regex: /^#{1,6}/, process: (hnDirective, hnContents) => { const hnEl = document.createElement('h'+ hnDirective.length) hnEl.textContent = hnContents return hnEl.outerHTML } }] const makeHtml = line => { const atxMatch = atxMatcher(line) if (!atxMatch) return line const {directive, contents} = atxMatch.groups let tag for (const rule of atxRules) { const directiveMatch = directive.match(rule.regex) if (directiveMatch) { tag = rule.process(directiveMatch[0], contents) break } } return tag ? tag : line } `# aaa ##\tbbb ###### \t ccc ################ ddd `.trim().split`\n`.map(makeHtml).join`` 結果： <h1>aaa</h1><h2>bbb</h2><h6>ccc</h6><h6>ddd</h6> [] [ここ壊れてます] 957 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 08:20:11.42 ID:rwuNPA7J.net] >>924 線分ですよ 958 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 11:17:31.03 ID:/cT7Kgd3.net] >>923 > return (abac * abad < 0 && cdca * cdcb < 0); return (abac * abad <= 0 && cdca * cdcb <= 0); 端点も含まんとあかんのとちゃう？ 959 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 12:22:09.16 ID:rwuNPA7J.net] 重なりの定義によるかも 接しているのは重なりなしとしました 960 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 12:42:45.94 ID:rwuNPA7J.net] と思ったけど=ありのが正解でした 961 名前：デフォルトの名無しさん [2019/01/27(日) 13:15:46.24 ID:4tSdie01.net] お題 半径が整数の3つの円ある。 どの円も他の2つの円に外接している。 3つの円の中心点を結んでできる 三角形がピタゴラスの三角形に なる場合の3つの円の半径を 100未満についてすべて求める。 例えば3つの円の半径が1,2,3の時 辺の長さが3,4,5のピタゴラスの 三角形ができる。 962 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 13:54:53.07 ID:wgzaqL4l.net] >>930 C++ https://ideone.com/TvwEx3 963 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 14:02:09.42 ID:/cT7Kgd3.net] >>930 Java https://ideone.com/vHvOJu 964 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 14:08:22.33 ID:u288xi28.net] >>930 python3 https://ideone.com/PPyoFC 965 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 14:21:11.01 ID:/cT7Kgd3.net] >>932 しまった…半径100未満なのに100まで調べてるｗ > r(20, 30, 100) = p(50, 120, 130) が余分やｗｗ >>930 Java 修正しました https://ideone.com/BkN6Ls 966 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 17:44:27.67 ID:rwuNPA7J.net] >>927 =の追加で要件をクリアしたと思ってましたが、対象が線分から直線に変わってました 端点については、以下のコードの呼び出しが4つ必要になります int abap = (b.x - a.x) * (p.y - a.y) - (b.y - a.y) * (p.x - a.x); if (abap == 0 &&     (p.x >= min(a.x, b.x) && p.x <= max(a.x, b.x)) &&     (p.y >= min(a.y, b.y) && p.y <= max(a.y, b.y))) {   return 1; } return 0; 967 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 18:36:00.36 ID:rE8NR22a.net] >>930 Ruby 2.5.0 def kotae(max) 　　(1..max).each_with_object([]) do |ra, ary| 　　　　x, y = max - ra, 2 * ra**2 　　　　1.step(Integer.sqrt(x), 2) do |n| 　　　　　　next if x * n**2 < y 　　　　　　rx = ra + n**2 　　　　　　m, r = (ra + rx).divmod(n) 　　　　　　ry = ra * m / n 　　　　　　next if m.even? || r != 0 || m.gcd(n) != 1 　　　　　　pcpy = [ra, rx, ry].sort 　　　　　　ary.push(*(1..max / pcpy[2]).map{|i| pcpy.map{|e| e * i}}) 　　　　end 　　end end pys = kotae(100 - 1) p pys.size # => 82 p pys # => [[1, 2, 3], 　[2, 3, 10], 　[2, 4, 6], 　# 中 968 名前：略 # 　[33, 66, 99], 　[35, 84, 85], 　[36, 84, 90]] [] [ここ壊れてます] 969 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 18:48:49.63 ID:z0hosMYm.net] >>930 javascript https://ideone.com/S1PkhD 970 名前：デフォルトの名無しさん mailto:sage [2019/01/27(日) 21:02:27.16 ID:u288xi28.net] >>910 python3 ax+by=c (d<x<e) px+qy=r (s<x<t) とする import numpy as np co = np.array([[a,b],[p,q]]) in = np.array([c,r]) ans = np.linalg.solve(co,in) print(d<ans[0]<e and s<ans[0]<t) 本当は直線が平行なときも調べないといけないが略 971 名前：デフォルトの名無しさん mailto:sage [2019/01/28(月) 02:42:20.01 ID:Ht+H3Zdt.net] こちらで検証したパターンです line ab = {{0, 0}, {100, 0}}; line cd1 = {{0, 0}, {100, 0}};    // 重なりあり line cd2 = {{1, 0}, {100, 0}};    // 重なりあり line cd3 = {{0, 0}, {99, 0}};    // 重なりあり line cd4 = {{-1, 0}, {100, 0}};    // 重なりあり line cd5 = {{0, 0}, {101, 0}};    // 重なりあり line cd6 = {{-1, 0}, {99, 0}};    // 重なりあり line cd7 = {{1, 0}, {101, 0}};    // 重なりあり line cd8 = {{-100, 0}, {0, 0}};    // 重なりあり line cd9 = {{100, 0}, {200, 0}};    // 重なりあり line cd10 = {{-100, 0}, {-1, 0}};    // 重なりなし line cd11 = {{101, 0}, {200, 0}};    // 重なりなし line cd12 = {{0, -100}, {0, -1}};    // 重なりなし line cd13 = {{0, -100}, {0, 0}};    // 重なりあり line cd14 = {{0, -100}, {0, 1}};    // 重なりあり 972 名前：デフォルトの名無しさん mailto:sage [2019/01/28(月) 19:06:17.59 ID:ZiBPaW1B.net] >>910 ２直線を (x,y)=(x1,y1)+t(x2*x1,y2*y1) (x,y)=(x3,y3)+s(x4*x3,y4*y3) としたときｔ、ｓが０以上１以下の条件で解を持つことであろう。 973 名前：デフォルトの名無しさん [2019/01/28(月) 20:30:57.09 ID:BBM43iQf.net] >>901 >>906の改良版。 product [(n - (r - 1))..n]はそのままn P rにもなる。 p n r = product [(n - (r - 1))..n] Haskell c'' n r = product [(n - (r - 1))..n] `div` product [1..r] Python def fact(n): a = 1 i = 1 while i <= n: a *= i i += 1 return a def p(n,r): a = 1 i = n - (r - 1) while i <= n: a *= i i += 1 return a def c(n,r): return (p(n,r) // fact(r)) 974 名前：デフォルトの名無しさん mailto:sage [2019/01/30(水) 16:02:43.18 ID:WqNbA033.net] お題 古のスタートレックゲームを作る 975 名前：デフォルトの名無しさん [2019/01/30(水) 16:19:17.11 ID:gOIe9eSU.net] >>942 そのゲームがどんなものだったのか詳細が書いてある所はある？ 昔々 Apple ][ でテキストのやつを人がやってる所は見たことあるのだが細かいルールがどんなんだったか忘れた。 確かワープして移動してってクリンゴンが撃ってくるとかクリンゴンに向けて撃つだとかそんなのを繰り返すんだよな？ 976 名前：デフォルトの名無しさん [2019/01/30(水) 19:13:41.13 ID:32wJF+eS.net] >>865 RFOーBASIC TEXT.INPUT S$,"","チェス番を入力してください。" PRINT S$ END 977 名前：デフォルトの名無しさん mailto:sage [2019/01/30(水) 21:23:13.66 ID:zHXVmep5.net] >>943 この辺りを参考にすればいいかと https://ja.m.wikipedia.org/wiki/スタートレック_(マイコンゲーム) 978 名前：デフォルトの名無しさん [2019/01/31(木) 17:40:00.64 ID:uIyAv6WO.net] >>865 Lua print("░") 横から見た 979 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 17:57:03.10 ID:6YZEfuaO.net] >>941 python の場合、これじゃいかんのか？ まだ全くpythonを知らん人間だが。 scipy.special.comb(n, k, exact = False) python はライブラリを使ってなんぼでしょ。 生の言語で比較するのは時代遅れ。 なんで膨大な処理が必要なAI でpython が主流になったか。 980 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 18:21:11.67 ID:JEItRzDd.net] ライブラリを紹介するスレじゃないんだが。 mathjs math.combinations(7, 5) こういうの延々と続けるの？ バカじゃないのｗｗｗ 981 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 18:41:17.06 ID:6YZEfuaO.net] >>948 別に構わんだろ。 そもそも言語なんてやりたいことを解決するのに便利かどうかだけの話なんだから。 そういう意味では、普通のことをやるにはどの言語でも大差はない。 FORTRAN なんて大昔の言語だがいまだに科学技術計算で使われ続けてきているのは、言語仕様ではなく高速なライブラリが整ってるからに他ならない。 なんでAI や科学技術計算にスクリプト言語のpython がもてはやされてるのかもう一度考えてみる必要があるのでは？ 982 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 18:50:20.38 ID:6YZEfuaO.net] いくら言語が優れていても、ある特定の環境だけでしか実用性がない言語と言うのは、別環境用のライブラリが整っていないからに他ならない。 例えばSwift これは、Mac環境下ではObjective-C の全てが使えるが、 言語的にはWindows などでコンパイルできても、ライブラリがないから実用として使うにはまだ程遠い。 API が整っていることが重要。 python がもてはやされてるのは、ライブラリが整ってるからだろ。 言語の良さがどうかなんてあまり関係ない。 ま、個人的な好き嫌いが出てくるのは仕方ないが、実用性があるかどうかはまた別の問題。 983 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 18:58:10.77 ID:6YZEfuaO.net] そもそも、言語なんてアセンブラの時代からマクロで自分好みの文をかけるようになってたんだから、今更何を議論してるのかという気もする。 標準化された文法というのは評価はするが、それはどっちかと言うと頭でっかちな学者が考えること。 現場はいかにバグが少なく早く問題を解決できるかにかかってる。 つまり総合環境だろ。 984 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 18:59:37.75 ID:aRQ4w2UO.net] 溜まってたものを一気に語ったな 985 名前：デフォルトの名無しさん [2019/01/31(木) 19:46:27.30 ID:REgWEVPY.net] うむ。これからの時代はファミリーBASICだな。 986 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 19:59:18.32 ID:6YZEfuaO.net] >>953 最初の頃のBASICは、10数個位しか命令は無かった。 ま、電卓がわりみたいなものでは有るが、基本的なプログラミング言語としては成り立ってた。 987 名前：デフォルトの名無しさん [2019/01/31(木) 20:11:31.45 ID:4JULsXj7.net] >>947 たまたま、ライブラリで解決出来る問題だからってマウント取られてもね。。。 それに、C/C++みたいに多倍長整数サポートしてない言語と、サポートしてる言語でのアルゴリズムの違いや、 式変形して引き算を足し算に変えられる所は変えた方が速度出るとか、色々勉強にはなってるよ。 >>941の例じゃ(n - (r - 1))を(n - r + 1)にした方が速い。 (Haskellでは速いだけでなく、2の補数表現を(元の数値と別に)生成してるらしく、メモリ効率も上がる) 988 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 21:19:24.42 ID:Te48fFDx.net] >(n - (r - 1))を(n - r + 1)にした方が速い。 >>955 あのさ、そんなのはコンパイラの最適化次第だろ。 勿論ど素人のプログラマじゃ無ければそれなりの工夫はするはずだが、そんな事は些細な事。 くだらんことを言うな。 むしろそんなコンパイラがクソ。 言語なんてのは言語道断。 989 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 22:25:01.31 ID:xJsSt9Re.net] Python では、機械学習などの周辺ライブラリ一式が揃っているから、使われる Ruby では、ベクトル演算のNArray があって、 処理速度はOctave にも匹敵するけど、一式揃っていない 北大の湊教授が作った、ZDD はあるけど 990 名前：デフォルトの名無しさん mailto:sage [2019/01/31(木) 22:46:32.84 ID:2IY59Hh/.net] scipy/scipy/special/cephes at master ・ scipy/scipy 991 名前： ttps://github.com/scipy/scipy/tree/master/scipy/special/cephes この辺り見てみるとフォートランとCがそのまま使われてる scipy/_comb.pyx at master ・ scipy/scipy ttps://github.com/scipy/scipy/blob/master/scipy/special/_comb.pyx このあたりをそのまま書ければいい [] [ここ壊れてます] 992 名前：デフォルトの名無しさん [2019/02/01(金) 04:58:43.05 ID:IMBPiIxm.net] お題 平方数かどうか判定する 993 名前：デフォルトの名無しさん mailto:sage [2019/02/01(金) 10:08:25.26 ID:VdCPb4pG.net] C++ #include <iostream> #include <limits> template <typename T> bool is_safely_multiplicable(T a, T b) { if (b == 0) return true; return a <= (std::numeric_limits<T>::max() / b); } uint64_t sqrt_int(uint64_t x) { if (x == 0) return 0; uint64_t a = 1, b = x, c; while (b - a > 1) { c = (b - a) / 2 + a; if (is_safely_multiplicable(c, c) && x >= c * c) a = c; else b = c; } return a; } bool is_square_number(uint64_t x) { uint64_t rt_x = sqrt_int(x); return rt_x * rt_x == x; } 994 名前：デフォルトの名無しさん [2019/02/01(金) 18:32:58.66 ID:iYm26gLc.net] >>959 Haskell isSqr a = isSqr' a [n * n | n <- [0..a]] where isSqr' x (l:_) |(x == l) = True isSqr' x (l:_) |(x < l) = False isSqr' x (_:ls) = isSqr' x ls 995 名前：デフォルトの名無しさん [2019/02/01(金) 20:32:42.61 ID:iYm26gLc.net] Python def isSqr(x): n = 0 a = 0 while x <= a: if x == a: return True n += 1 a = n * n return False リスト内包表記だとすぐ落ちた。。。 Haskellより持たない。。。 996 名前：デフォルトの名無しさん [2019/02/01(金) 21:10:55.66 ID:qFuZrTt3.net] これはいかに巨大数を高速判定するかだろ 997 名前：デフォルトの名無しさん [2019/02/01(金) 21:19:45.40 ID:qFuZrTt3.net] 目星はこれを荒く使えばつきそう 逆数と平方根を求める高次収束アルゴリズム www.finetune.co.jp/~lyuka/technote/fract/sqrt.html 高速根号計算 takashiijiri.com/study/miscs/fastsqrt.html 998 名前：デフォルトの名無しさん mailto:sage [2019/02/01(金) 22:13:46.18 ID:kNvVsHFY.net] https://code.i-harness.com/ja-jp/q/4829b 999 名前：デフォルトの名無しさん [2019/02/01(金) 23:10:20.49 ID:iYm26gLc.net] >>963 m = ？ n = m * m m=10の時nの1/10で、m=100だとnの1/100 探すべきmが高速で小さくなって行く。 大きな数になる程、0<=mなループの始まり求めるの無理ゲー。。。 1000 名前：デフォルトの名無しさん mailto:sage [2019/02/01(金) 23:12:44.04 ID:VdCPb4pG.net] ttps://ideone.com/xr1vcE Newton-Raphson法ほど速くはないがせめてO(log(N))くらいで実装せにゃお題として出てくる意味がなかろう 1001 名前：デフォルトの名無しさん [2019/02/02(土) 00:09:40.70 ID:/6KX0oFw.net] >>959 Lua function isSquare(n) local a = 0 local i = 1 while a < n do a = a + i i = i + 2 end return a == n end print(isSquare(100000)) print(isSquare(10000)) 1002 名前：デフォルトの名無しさん [2019/02/02(土) 03:47:32.54 ID:i2SNxKFt.net] いっそsqrt 関数実装。 頭悪いんで数学的じゃない。 256以上入れるとフリーズするけど、その範囲なら精度抜群。 精度を1つ落とすと(range(15)の値を1つ減らすと)2桁くらい大きな数を入れてもフリーズしなくなる。 def sqrt(x): i = 1 if x == 0: return 0 while x >= (i * i): if x / i == i: return i i += 1 i -= 1 a = 0.1 for j in range(15): while x >= (i * i): i += a i -= a a *= 0.1 return (i - a) 1003 名前：デフォルトの名無しさん [2019/02/02(土) 09:51:18.58 ID:/6KX0oFw.net] >>959 J f =: = *: @ <. @ %: 1004 名前：デフォルトの名無しさん [2019/02/02(土) 13:18:27.64 ID:CwD+xRo8.net] 平方数かどうかを高速に判定する方法 - hnwの日記 https://hnw.hatenablog.com/entry/20140503 GNU MPのmpz_perfect_square_p関数の実装 GNU MPのソースコードを確認してみたところ、次のような処理だとわかります。 引数nのmod 256を計算し、平方数ではない数を判定する 平方数のmod 256は44種類の値しか出現しないので、入力の82.8%は平方数でないと判定できる 同様に入力nのmod 9, 5, 7, 13, 17（64-bitシステムではmod 97も）を計算し、平方数ではない数を判定する これにより入力の99.25%（64-bitシステムでは99.62%）について平方数でないと判定できる 最後に、平方根を計算して平方数かどうか確認する 平方数ではない数の多くを事前にふるい落とし、判定できなかった数だけ真面目に平方根を求める、という方針だとわかります。 もちろん、GNU MPの場合のmod pの選び方は多倍長整数演算ならではだと言えます。 mod 256はサイズNにかかわらずO(1)で計算できるので、最初に行うことで全体の高速化に貢献できます。 また、2ステップ目の計算も2^24-1 = 9 * 5 * 7 * 13 * 17 * ...であることを利用し、多倍長整数であっても比較的高速に計算できるような実装になっています。 10進整数でmod 9を求める場合に全部の桁を足し合わせてからmod 9しても同じ結果になるのと同様、 下位から24bit区切りの数を足し合わせてからmod 2^24-1を計算することで、元の数のmod 2^24-1が計算できるのです。 1005 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 13:43:47.68 ID:OgiywF+Q.net] >>949 えぇ… 1006 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 16:31:05.91 ID:9W2pTWu+.net] >>972 その心は？ 1007 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 16:42:03.23 ID:OgiywF+Q.net] >>970 えぇ… の間違い。 1008 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 17:31:46.69 ID:rEiZ26fd.net] 本質的に高度な数学的知識が要求され る問題は板違いかと 言語によっては、問題にジャストフィット するライブラリが標準で添付されているとか ライブラリ管理コミュニティを通じて 容易に入手できるとかあるかもしれないが その場合は紹介程度に。 言語処理系の言語処理の為の機能提供 である場合を除いて多くは本質的に多言 語に対応しており〜言語用のライブラリと いう表現は兎も角〜言語のライブラリと表 現すると曖昧で誤解を招きやすい表現 として嫌われる場合もありえることに注意。 （別言語で記述される場合もある） 1009 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 17:36:46.77 ID:XgXX/tZQ.net] なんしたのきゅうに 1010 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 17:57:26.00 ID:rEiZ26fd.net] セルフホスティング対応な言語でライブラリを 自前で構成しているもので、他言語に移植されて いない独自の機能を持つものもあるかもしれない し、もっと極端に言えば独自性の高いライブラリに 最適化された言語を自前で作ってそれで記述され ているものもあるかもしれないけど一般的には入手 は容易ではないかも 1011 名前：デフォルトの名無しさん mailto:sage [2019/02/02(土) 19:52:10.51 ID:hDNgHqpo.net] じゃあさ、各々複数行の a.txt と、b.txtを並べて表示して。 1012 名前：デフォルトの名無しさん [2019/02/02(土) 23:25:24.42 ID:g8xy/J6N.net] 辺に沿って動くとき、AからBまでの最短経路はいくつあるか 　　　　　　　　　┏┳┳┳┓B 　　　　　　　　　┣╋╋╋┫ 　　　　　　┏┳╋╋╋╋┫ ┏┳┳┳╋╋╋╋╋┻┛ ┣╋╋╋╋╋╋╋┫ ┣╋╋╋╋╋╋╋┫ ┣╋╋╋╋╋╋╋┛ ┗┻┻┻┻┻┻┛ A 1013 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 00:45:38.22 ID:UGH880J+.net] おねえさんがロボットになるやつかｗ 1014 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 00:55:19.58 ID:UTpNqxd4.net] 中 1015 名前：学受験の算数の問題に経路を数える問題があるよな つまり小学生でも手計算で解ける [] [ここ壊れてます] 1016 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 00:57:22.00 ID:72eosYJ+.net] >>975 アホちゃうの？ プログラムというのは、問題解決のための言語であって、問題が解決できなければどんなに美しい言語でも存在価値はない。 最速で美しく問題解決にたどり着ける言語が一番。 言語そのものの美しさなんて二の次。 英語でも日本語でも何でも良い。 利用できるものは何でも利用すれば良い。 好き嫌い言ってる奴はアホ。 どんなに綺麗な国の言葉でも高等教育が自国語でできない国がほとんど、それは利用できる教材が自国語で書いたものがないから。 日本語だったら英語を知らなくてもノーベル賞が取れるだけの教材(ライブラリ)が揃ってる。 1017 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 01:53:34.29 ID:wxxHWwaf.net] 別に高度な数学が必要になることは構わないけど、数学だけで話が閉じちゃうような問題はつまらないとは思う。数学的に解を求める解法自体が主題で、コーディングはただその解法を(日本語、英語などの自然言語と同様に)とあるプログラミング言語で記述しただけのような。 もちろん数学に価値がないといっているのではなく、話のウェイトとしてプログラムである部分がほぼないのなら、その話、ここじゃなくてもいいじゃんと思うよ。 1018 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 04:02:35.76 ID:JyP+XfGy.net] つまらない問題だと思ったら無視すればいいだけじゃないかな その問題に対して回答する人がいるなら、回答者(と出題者)にとっては つまらない問題ではないってことなんだろうし 1019 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 04:46:34.72 ID:1lu6X4vo.net] >>982 ＯＳ記述の言語は言語じゃないのか？ コンパイラなどの言語処理系記述の言語 も言語じゃないってわけだな 問題解決手段の一つではあるかもしれないが 通信系ソフトウェアの存在はどう説明？ 既存の資産を維持しより効率的に活用する研究が 新しいプログラミング言語が次々と生成されてくる原 動力じゃないかと 1020 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 05:08:39.33 ID:l3Qt7IvN.net] >>982 >日本語だったら英語を知らなくてもノーベル賞が取れるだけの教材(ライブラリ)が揃ってる。 ダウト。ノーベル賞を受賞した研究者はみんな英語で論文書いている。 あと、今の日本語での教育教材の蓄積があるのは、大雑把に言って、 ここ10年でノーベル賞受賞した面々の世代の研究者や技術者が書いた。 もちろん彼らは英語の文献を読み、勉強し、日本語の文献を書いた。 だから、英語の文献なんて要らないみたいな話はアホ。 ソファでポテチ食いながら「ジャガイモなんて買えばいいんだから、育ててる奴はアホ」と言ってるようなもの。 1021 名前：981 mailto:sage [2019/02/03(日) 05:15:20.75 ID:l3Qt7IvN.net] プログラミング言語も一緒。 Cは泥臭い実用言語で、その前にはAlgolなど「綺麗な」言語が下敷きとしてあった。 Cは現在でも多くの問題を解決するための道具として活用されているが、 現在では使われていないAlgolなどの「綺麗な」言語なしにCは生まれなかった。 1022 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 05:39:02.55 ID:1lu6X4vo.net] 個々の言語の歴史観の講釈はスレ違い 確かに問題解決の道具であることが 中心かもしれないが、扱ってきた問 題の種類によって文法やライブラリ・ その取り扱い方に差異が生じている が、同じ問題を別言語で「解く」と 優劣の違いがわかって面白いかもし れない。 が、あんまし長くやってると不毛な 言語比較論、文化比較論になったり して色々ヤバいからそろそろ一旦 お開きにしたら？ 続 1023 名前：きはそれぞれの言語別スレッドで ということで [] [ここ壊れてます] 1024 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 07:04:30.87 ID:LaZtKDWq.net] お題：プログラムの実行時刻が午前なら「おはようございます、ご主人様！」、午後なら「お疲れ様です、ご主人様！」と表示させる 1025 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 07:48:34.73 ID:AEg+fU/i.net] >>989 C time_t now = time(NULL); struct tm *p = localtime(&now); if (p->tm_hour * 60 + p->tm_min < 12 * 60) {   printf("おはようございます、ご主人様！\n"); } else if (p->tm_hour * 60 + p->tm_min > 12 * 60) {   printf("お疲れ様です、ご主人様！\n"); } 1026 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 08:56:17.85 ID:l3Qt7IvN.net] >>989 Pharo Smalltalk Smalltalk ui inform: (Time now meridianAbbreviation = 'AM' ifTrue: [ 'おはようございます、ご主人様！' ] ifFalse: [ 'お疲れ様です、ご主人様！' ]) 1027 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 09:19:47.58 ID:72eosYJ+.net] python from datetime import datetime if datetime.now().hour < 12: print('おはようございますご主人様') else: print('お疲れ様です、ご主人様') 1028 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 09:23:27.86 ID:1lu6X4vo.net] 午前12時=00:00 午後12時=12:00 23:59の後は00:00 午前12時=12:00 午後12時=24:00 24:00の後は00:01 1029 名前：デフォルトの名無しさん [2019/02/03(日) 09:40:26.58 ID:cfde/ig7.net] >>865 Common Lisp https://pastebin.com/TLD3d9R1 実行結果 https://i.imgur.com/6Dne4jz.png 1030 名前：デフォルトの名無しさん [2019/02/03(日) 09:58:12.21 ID:I0qputsI.net] >>969 のHaskell版。 負の数の場合の処理、負の数含め、絶対値が256以上だった場合エラー吐く様に処理を追加。 ※Haskellは整数と少数を明確に分ける為、渡す数に小数点が無いとエラーになる。 mysqrt x = mysqrt' x 0 where mysqrt' x m |x < 0 = - mysqrt (abs x) mysqrt' x m |x == m * m = m mysqrt' x m |x < m * m = fsqrt x (m - 1) 0.1 15 mysqrt' x m = mysqrt' x (m + 1) fsqrt _ a _ 0 = a fsqrt v _ _ _ | v > 256 = error "\"fsqr\":out of range 0..256" fsqrt v a f n | v <= a * a = fsqrt v (a - f) (f * 0.1) (n - 1) fsqrt v a f n = fsqrt v (a + f) f n 使用例 main = print (mysqrt x) >> print (mysqrt x * mysqrt x) 結果 1.41421356237309 2.0 1031 名前：デフォルトの名無しさん [2019/02/03(日) 10:00:13.11 ID:I0qputsI.net] fsqrt v _ _ _ | v > 256 = error "\"fsqr\":out of range 0..256" fsqrt v a f n | v <= a * a = fsqrt v (a - f) (f * 0.1) (n - 1) fsqrt v a f n = fsqrt v (a + f) f n 1032 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 10:13:31.71 ID:xEPkQ4sk.net] この改行長文おじさんはどこからきたの。笑 1033 名前： mailto:sage [2019/02/03(日) 10:31:38.09 ID:t4xt++Qj.net] >>982 ＞日本語だったら英語を知らなくてもノーベル賞が取れるだけの教材(ライブラリ)が揃ってる。 最近はそうでもないようですよ…ペーパーは英語だし、教科書＝テキストレベルでも英語でしか発刊されない状況といいます haskell をやろうとして圏論の教科書を探しましたが、欧米の本の和訳ばかりで日本人が書いた圏論の教科書はありませんでした 1034 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 10:35:41.62 ID:/jO+7TC8.net] 誰か次スレ頼む 1035 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 11:07:15.54 ID:72eosYJ+.net] お題1: 現在地の緯度、経度を出せ 緯度:、、、、 経度:、、、、 お題2: 東京都新宿区西新宿2丁目8-1 の緯度、経度を出せ 緯度:、、、 経度:、、、 お題3: お題2で求めた緯度経度から住所を出せ 郵便番号:、、、 住所:東京都、、、、 1036 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 11:22:46.76 ID:72eosYJ+.net] 立てたよ プログラミングのお題スレ Part13 https://mevius.2ch.net/test/read.cgi/tech/1549160513/ 1037 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 11:23:36.56 ID:72eosYJ+.net] >>1000 は、次スレに移動させるね。 1038 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 17:37:12.27 ID:csrqlAvs.net] うめ 1039 名前：デフォルトの名無しさん [2019/02/03(日) 17:37:50.59 ID:oUppVF8S.net] >>969 今までの苦労は一体。。。 数学的な平方根の近似値は√x = x ^ (1/2)だった。。。 Haskell だとこんだけ。 mysqrt x = x ** 0.5 1040 名前：デフォルトの名無しさん mailto:sage [2019/02/03(日) 17:38:30.96 ID:csrqlAvs.net] 次スレ プログラミングのお題スレ Part13 https://mevius.2ch.net/test/read.cgi/tech/1549160513/ 1041 名前：1001 [Over 1000 Thread.net] このスレッドは１０００を超えました。 新しいスレッドを立ててください。 life time: 128日 7時間 29分 24秒 1042 名前：過去ログ ★ [[過去ログ]] ■ このスレッドは過去ログ倉庫に格納されています

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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