18/11/21 13:17:27.94 r/9FyEhs.net
>>545 をちょっと変更。月を分ける必要がなかった
date = [1, 2].permutation.flat_map do |dd, dh|
[*3..5].permutation(2).flat_map do |dm, ds|
([*3..9] - [dm, ds]).permutation.map do |mo, d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h == 3
end
end
end.compact.sort
625:デフォルトの名無しさん
18/11/21 13:59:24.73 89fYavxU.net
月日時分秒で文字列で並べる前に11月とか11日とか22日とか必ず各桁が同じ値になるやつ最初から省けば無駄がなくなって少し速くならんか？
626:デフォルトの名無しさん
18/11/21 17:57:29.48 89fYavxU.net
>>541
Kotlin
URLﾘﾝｸ(paiza.io)
色々試した結果、やはり最初に必要な文字列全て作ってしまうのが一番速かった。
627:デフォルトの名無しさん
18/11/21 19:06:42.18 7Tiab2M6.net
文字列を正規表現で判定するのは遅いんじゃね？
628:デフォルトの名無しさん
18/11/21 19:31:36.89 fvygYhm9.net
12*31*6
629:0*60*60=80,352,000通りの桁が異なるか判定より、10桁並び替え10!=3,628,800通りが日付になってるか判定の方が速そう
630:デフォルトの名無しさん
18/11/21 19:43:32.60 fvygYhm9.net
>>610
計算ミスった、12*31*24*60*60=32,140,800か
お詫びにコード、C++
URLﾘﾝｸ(ideone.com)
631:デフォルトの名無しさん
18/11/21 19:50:15.56 XrCNlm4w.net
最初の4桁は高々365パターンしかないからその各組について残り6桁720通り検討すれば262,800通りで済む
632:デフォルトの名無しさん
18/11/21 19:55:14.22 XrCNlm4w.net
ちなみに最初の4桁で数字に重複がないのは130通りしかないからここできちんと処理すれば93,600通りで済む
633:デフォルトの名無しさん
18/11/21 20:17:28.45 Pa+SHuBo.net
普通にやれば768通りで済む
時間が 0x/1d 23:Mm:Ss なら
{M, S} = {4, 5} で残りは4つの数字の任意の順でＯＫ
2 * 4! 通り
時間が 0X/2d 1h:Mm:Ss なら
M, S は異なる{3, 4, 5}の元で残りは5つの数字の任意の順でＯＫ
3P2 * 5! 通り
全部で (2 + 3P2 * 5) * 4! = 768 通り
634:デフォルトの名無しさん
18/11/21 20:32:17.09 89fYavxU.net
>>609
そうかも。
やっぱただの二重ループで調べるのが一番速いかな？
最初はSetに一文字づつ入れて同じのが既にあったらっていう判定してたんだけどね、正規表現なら一発で判定できると気づいてそちらにした。
まあでも正規表現だから中で複雑な動きになってるかも知れないな。
635:デフォルトの名無しさん
18/11/21 20:41:48.33 89fYavxU.net
良く考えたら各桁が数字しかないから10ビットのビットフラグ立てるかBoolenArrayで10要素あれば重複調べられるな。後で変えよう。
636:デフォルトの名無しさん
18/11/21 21:02:48.05 fvygYhm9.net
お題
以下の操作を好きなだけ行う時、0をXにするまでに必要な最小コストを求めよ
・コスト1で値を1増減させる
・コストn+Yで値をn倍する
XとYは与えられ、0以上の整数であることが保証される
nは自然数の範囲で任意に決めて良い
例(X, Y)
1 3
20 2
63 2
出力
3
11
17
637:デフォルトの名無しさん
18/11/21 21:03:37.61 Gj+ctZjI.net
お題
N個の正整数を並べ替えたあと結合してできる整数の最小値を求めよ
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
638:デフォルトの名無しさん
18/11/21 21:13:22.72 fcujQIsM.net
>>541
一年って365日？372日？
639:デフォルトの名無しさん
18/11/21 21:47:53.81 DBPerFhf.net
>>618 Perl5
use feature say;
for (<DATA>) {
s/\s*//g;
$z = tr/0//;
@a = grep{$_} sort split '';
$a = shift @a;
say join '',($a, (0)x$z, @a);
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
execution
$ perl 12_614.pl
123
1122
10111111112233445566789
640:デフォルトの名無しさん
18/11/21 21:49:54.93 DBPerFhf.net
>>620
間違ってる。ｺﾞﾒﾝ却下
641:デフォルトの名無しさん
18/11/21 22:06:23.31 DBPerFhf.net
>>620 Perl5
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
say $n;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__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
10111213141516123456789
642:デフォルトの名無しさん
18/11/21 22:08:43.18 DBPerFhf.net
>>622
途中の
say $n;
は不要なdebug write、
削除して下記と差し替え
use List::Util max;
use feature say;
for (<DATA>) {
@a = split;
$n = max map{length} @a;
$b = join '', sort map{$_.'a'x($n-length)} @a;
$b =~ s/a//g;
say $b;
}
__DATA__
3 2 1
1 2 21
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
643:デフォルトの名無しさん
18/11/21 22:22:35.53 fvygYhm9.net
>>618 Java
URLﾘﾝｸ(ideone.com)
644:デフォルトの名無しさん
18/11/21 22:30:22.51 7Tiab2M6.net
>>617 Java
URLﾘﾝｸ(ideone.com)
1 3は3じゃなくて1でいいんよね？
645:デフォルトの名無しさん
18/11/21
646:22:30:46.05 ID:luckbEjf.net
647:デフォルトの名無しさん
18/11/21 22:32:28.49 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:デフォルトの名無しさん
18/11/21 22:39:54.74 Pa+SHuBo.net
>>624
101 10 と 10 101 で結果が異なる
URLﾘﾝｸ(ideone.com)
649:デフォルトの名無しさん
18/11/21 22:54:14.65 7Tiab2M6.net
>>618 Java
URLﾘﾝｸ(ideone.com)
650:デフォルトの名無しさん
18/11/21 22:55:54.34 7Tiab2M6.net
あ、>>625問題読み間違えてるわ
コスト1で1増やすんじゃなくて1増減出来るのね…
651:デフォルトの名無しさん
18/11/21 23:11:59.00 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:デフォルトの名無しさん
18/11/21 23:12:22.88 jrFgFGaV.net
お題：分数を小数に直したときの循環部分の周期を求める
割り切れる場合は0とする
例：
1/3 => 1
10/2 => 0
988027/983 => 982
919/870473 => 54288
1223/1476221 => ?
99998360006603 / 9999901 => ?
653:デフォルトの名無しさん
18/11/21 23:20:10.22 7Tiab2M6.net
>>617 Java (>>625の修正)
URLﾘﾝｸ(ideone.com)
654:デフォルトの名無しさん
18/11/21 23:21:24.98 jrFgFGaV.net
123412345/999999999 => 9
も>>632の例に追加
655:デフォルトの名無しさん
18/11/21 23:30:03.05 fvygYhm9.net
>>625
あ、ごめん1 3は1だね
3 1と書き間違えた
656:デフォルトの名無しさん
18/11/21 23:35:51.69 7Tiab2M6.net
>>632 Java
URLﾘﾝｸ(ideone.com)
657:デフォルトの名無しさん
18/11/21 23:40:44.97 7Tiab2M6.net
>>636
循環部の周期じゃなくて、小数点以下の循環部の終わる位置を調べてる気がしてきた…修正が必要ですｗ
658:デフォルトの名無しさん
18/11/21 23:56:52.64 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:デフォルトの名無しさん
18/11/22 00:02:55.27 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:デフォルトの名無しさん
18/11/22 00:08:36.27 iFlHYuR3.net
1234/555 => 3
>>636だと4になる
>>638だと無限ループって怖くね？
661:デフォルトの名無しさん
18/11/22 00:10:07.02 YC9N9M8Q.net
>>640
サンプルデータでは問題ないが
場合によっては無限ループの恐れｱﾙかも
662:デフォルトの名無しさん
18/11/22 00:11:14.76 YC9N9M8Q.net
>>639 は無限ループの恐れなし
663:デフォルトの名無しさん
18/11/22 00:13:47.95 iFlHYuR3.net
>>642
ideoneに食わせたらTime limit exceededになる・・・なんでや
URLﾘﾝｸ(ideone.com)
664:デフォルトの名無しさん
18/11/22 00:16:08.77 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:デフォルトの名無しさん
18/11/22 00:19:18.30 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です
18/11/22 00:20:17.51 iFlHYuR3.net
>>644
ideoneに食わせたら1234/555動いたが>>636と同じで4になってる
URLﾘﾝｸ(ideone.com)
1234/555 = 2.2[234]234234... で3よな？
667:デフォルトの名無しさん
18/11/22 00:26:34.37 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:デフォルトの名無しさん
18/11/22 00:29:14.36 iFlHYuR3.net
>>647
5が1個足りてませんぜｗ
1234/55=22.4[36]3636... => 2
669:デフォルトの名無しさん
18/11/22 00:33:49.88 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:デフォルトの名無しさん
18/11/22 00:37:35.25 iFlHYuR3.net
>>649
じゃから、
1234/555 = 2.2[234]234234... だから答えは3にならんとあかんじゃろ
671:デフォルトの名無しさん
18/11/22 00:37:56.28 YC9N9M8Q.net
>>649
bug に気がついた。循環する範囲だけの長さを求めていない
672:
18/11/22 00:44:22.07 r9/Xo7jY.net
>>587
私もよーく考えました、>>571 の推論で正しいと思い直しました。
「数字と数字を対応させる」のではなく「数字の中の因数5 と別の数字の中の因数 2 とを対応させる」んですね，週末になったらちゃんと書きます
ごめんなさい…
673:デフォルトの名無しさん
18/11/22 00:47:46.57 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
18/11/22 02:49:00.32 zC+py8mV.net
>>541
Kotlin
URLﾘﾝｸ(paiza.io)
>>608の改造版
重複調査はビットフラグ使ってやるようにした。
出力は番号を振って出すようにした。
675:デフォルトの名無しさん
18/11/22 03:19:07.41 zC+py8mV.net
>>617
問題の意味がわからない。
676:デフォルトの名無しさん
18/11/22 04:04:02.81 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:デフォルトの名無しさん
18/11/22 15:33:08.34 yB1Us7SO.net
17941970723/5711177472=
3.
14155370
[
07847337299484291004011020163934418881248871826338
51095286012502326945724442022732505973857434350098
中略
81545008587679202836020711912487386979243218306349
2795623634229099298422222099702245
](周期=1584)
であってる?
678:デフォルトの名無しさん
18/11/22 15:43:48.55 lSIebnj9.net
>>657
あってる
679:デフォルトの名無しさん
18/11/22 15:54:06.63 yB1Us7SO.net
>>658
1009
680:デフォルトの名無しさん
18/11/22 23:20:25.14 8KGvhG/L.net
>>632
URLﾘﾝｸ(ideone.com)
681:デフォルトの名無しさん
18/11/23 19:09:31.91 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:デフォルトの名無しさん
18/11/23 19:12:10.98 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:デフォルトの名無しさん
18/11/23 19:34:32.58 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:デフォルトの名無しさん
18/11/23 19:51:58.05 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:デフォルトの名無しさん
18/11/23 20:55:58.69 5iW/esUy.net
>>663
URLﾘﾝｸ(ideone.com)
・行頭と行末は適当に削除しちゃってる
687:デフォルトの名無しさん
18/11/23 21:05:33.15 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:デフォルトの名無しさん
18/11/23 21:07:03.88 Hqw3cjct.net
>>666 途切れたので訂正
puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).('</li><li>')}.join("</ul>\n<ul>")
689:デフォルトの名無しさん
18/11/23 21:10:53.54 Hqw3cjct.net
>>667 連投ごめん 訂正
puts '<ul>%s</ul>' % $<.read.split("\n\n").map{|s| s.scan(/(?<=^\* ).*/).join('</li><li>')}.join("</ul>\n<ul>")
690:デフォルトの名無しさん
18/11/23 22:18:17.60 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:デフォルトの名無しさん
18/11/23 23:32:40.54 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:デフォルトの名無しさん
18/11/24 00:04:24.01 IB4DmzOp.net
>>670
* 以降にスペース文字が含まれていても、もれなく扱うなら
@a = map{"<li>$_</li>"} /\* (\w+)/g;
↓
@a = map{"<li>$_</li>"} /\* ([^\n]+)/g；
693:デフォルトの名無しさん
18/11/24 02:05:34.99 Q9o1GKtC.net
>>664
問題の意味がわからない。
694:デフォルトの名無しさん
18/11/24 02:34:23.79 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:デフォルトの名無しさん
18/11/24 02:35:47.10 Q9o1GKtC.net
>>663
Kotlin
URLﾘﾝｸ(paiza.io)
拡張関数使ってみました。
696:デフォルトの名無しさん
18/11/24 02:43:21.86 Q9o1GKtC.net
>>673
なるほど。そういうことか。ありがとう。
697:デフォルトの名無しさん
18/11/24 03:26:26.65 Q9o1GKtC.net
>>664
Perl5
URLﾘﾝｸ(paiza.io)
698:デフォルトの名無しさん
18/11/24 03:43:39.38 Q9o1GKtC.net
>>632
Kotlin
URLﾘﾝｸ(paiza.io)
C
URLﾘﾝｸ(paiza.io)
最初 Kotlin で作って確認した後で paiza.io にコピペして実行したら 99998360006603 / 9999901 が
タイムアウトしてしまい、じゃあ C で作るか(ついでに tsearch() 使ってみるか)と思ってやってみたが
相変わらず同じ計算でタイムアウトした。
まあしかしそれ以外の計算はなんとかなったので両方公開しとく。
アルゴリズムは割った余りを10倍するのを繰り返して同じ余りが出たらそこで循環と判定するというやつ。
699:デフォルトの名無しさん
18/11/24 04:00:55.96 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:デフォルトの名無しさん
18/11/24 05:34:48.85 Dcky2N9A.net
>>664
URLﾘﾝｸ(pastebin.com)
701:デフォルトの名無しさん
18/11/24 05:38:41.45 Q9o1GKtC.net
>>632
C (その2)
URLﾘﾝｸ(paiza.io)
よく考えたら出来た。
循環になっている桁の最初の余りを取っておいて次に出るまでカウントすれば良いだけで余りを全て保存しておく必要ないんだな。
702:デフォルトの名無しさん
18/11/24 05:41:18.30 Dcky2N9A.net
>>679の言語は
JavaScript( Windows Scripting Host用 )ね
703:デフォルトの名無しさん
18/11/24 08:20:40.93 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:デフォルトの名無しさん
18/11/24 11:05:11.18 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:デフォルトの名無しさん
18/11/24 12:06:59.71 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:デフォルトの名無しさん
18/11/24 12:08:52.78 X5g7u0K6.net
>>684 Ruby コピペミス
puts janken(?v, 2) -> puts janken(?v, 1)
puts janken(?w, 3) -> puts janken(?w, 2)
708:デフォルトの名無しさん
18/11/24 12:14:16.56 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:デフォルトの名無しさん
18/11/24 12:16:11.70 1C+vWWG1.net
>>684
あ、あいこはあいこと表示して終わっちゃうのね。。。
あいこの時はまたジャンケンし直しにして欲しい。
条件に入れればよかったかなぁ。。。
710:デフォルトの名無しさん
18/11/24 12:26:57.03 hG+y0dS8.net
>>683
> ・グー=g、チョキ=v、パー=wとする。
グー=g、チョキ=c、パー=pか
グー=m、チョキ=v、パー=wか
どっちかに統一してほしい。
グー=g、チョキ=v、パー=wだとgが表音イニシャル、v, wが象形と統一性がない。
気になってご飯が喉を通らなくてプログラミングどころじゃない…
711:デフォルトの名無しさん
18/11/24 13:02:40.59 1C+vWWG1.net
gも象形のつもりだったんだが。。。
712:デフォルトの名無しさん
18/11/24 14:02:53.32 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:デフォルトの名無しさん
18/11/24 14:57:54.21 Q9o1GKtC.net
>>688
まずは瞑想でもして心を落ち着けると良い。
714:679
18/11/24 15:20:34.57 1C+vWWG1.net
>>683
一応、自分自身でも投稿。
予想通り分岐使わないバージョン出て来た。
自分も挑戦してみようかな。
Haskell(リストに勝ち負け確定パターン(含まれてるかでグループパターン割り出し)があるか判別して、先頭要素(必ずユーザー)がパターンと同じか判定)
URLﾘﾝｸ(ideone.com)
Cとか死ねたし。(全体の勝ちグループ（各手をカウントしてグループパターン割り出し)の手を確定後、勝ちグループと同じ手に対応した文字を入力していたか判定)
URLﾘﾝｸ(ideone.com)
(能力不足の自分はあえてでは無いが)あえて条件分岐バージョンにすると言語や個人の個性出そう。
(CとHaskellでグループ分けや自分が勝ちグループ側かの判定が違うアルゴリズムになった)
その場合、アルゴリズムの説明付きだと面白そう。
715:デフォルトの名無しさん
18/11/24 16:39:00.82 ZWAqZgZk.net
>>683
Python3
URLﾘﾝｸ(ideone.com)
716:デフォルトの名無しさん
18/11/24 16:56:21.89 S/Hnk7Kr.net
>>693
グーチョキパー以外をプレイヤーが出したときおかしな挙動しない？
717:デフォルトの名無しさん
18/11/24 17:14:41.52 ZWAqZgZk.net
>>694
あいこの判定を手の種類数だけでしてたせいだな
修正した
URLﾘﾝｸ(ideone.com)
718:デフォルトの名無しさん
18/11/24 22:52:47.96 5TC6Hle/.net
お題
順列を求めるのにシャッフルでデータをたくさん用意して
重複データを取り除くことで求めている人がいた
順列の数の何倍位のデータを用意すればいいか調べる
719:デフォルトの名無しさん
18/11/24 23:20:30.16 Vcpm1NYO.net
許容誤差と確率の問題じゃん
720:デフォルトの名無しさん
18/11/24 23:23:27.73 7YEvwBu9.net
>>696
二度と来なくていい
721:デフォルトの名無しさん
18/11/24 23:37:47.52 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
18/11/25 01:57:22.20 ae+bi37x.net
>>699
>>687
723:デフォルトの名無しさん
18/11/25 06:18:56.85 k7/W79Is.net
>>683
Kotlin
URLﾘﾝｸ(paiza.io)
入力は1行単位で最初の手が自分、スペース区切りでPCの手になる。
グー、チョキ、パーと元の文字列の対応は以下に対応。
グー: "g", "G", "グー", "ぐー"
チョキ: "v", "V", "c", "C", "チョキ", "ちょき"
パー: "w", "W", "p", "P", "パー", "ぱー"
勝敗の判定は「勝」、「負」、「相子」で出る。
724:679
18/11/25 07:47:50.59 ae+bi37x.net
>>701
ジャンケンゲームの肝？ってPCはランダムな値を使う所だと思うんですが・・・
あと、私が勝手にアイコといえばジャンケンやり直しって勝手に思い込んでて仕様に盛り込まなかったのがダメなんですが、
アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いしたいです。
>>699 さんも、アイコと(アイコ扱いの)不正入力はジャンケンやり直しの形でお願いします。
725:デフォルトの名無しさん
18/11/25 11:54:57.77 qcobBjeQ.net
お題
標準運指(URLﾘﾝｸ(taipingu.net))によるタイピングを考える。
英小文字からなる文字列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:デフォルトの名無しさん
18/11/25 12:38:51.26 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:デフォルトの名無しさん
18/11/25 13:38:17.14 k7/W79Is.net
>>702
そういうインタラクティブなやつか。
じゃあまた暇があったら作ろう。
728:デフォルトの名無しさん
18/11/25 16:23:23.79 rkqtyTFb.net
お題：Brainfuckのインタプリタを実装せよ
仕様 URLﾘﾝｸ(ja.wikipedia.org)
>+++++++++[<++++++++>-]<.>+++++++[<++++>-]<+.+++++++..+++.[-]>++++++++[<++++>-]<.>+++++++++++[<+++++>-]<.>++++++++[<+++>-]<.+++.------.--------.[-]>++++++++[<++++>-]<+.[-]++++++++++.
⇒ Hello World!
++++++++[>++++++++<-]>++.<++++++[>++++++++<-]>.<----[>++++<-]>-.++++++++.+++++.--------.+++++++++++++++.<----[>++++<-]>--.++++++++.
⇒ ？
729:デフォルトの名無しさん
18/11/25 16:52:01.92 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:デフォルトの名無しさん
18/11/25 19:29:25.63 Iiz4BNf0.net
>>706 C
昔書いたやつ
URLﾘﾝｸ(ideone.com)
mandelbrotがideoneで2.9s
731:デフォルトの名無しさん
18/11/25 21:08:13.52 FiKNHiMA.net
>>708
ideoneのbrainfuckより速いじゃないかｗ
URLﾘﾝｸ(ideone.com)
732:デフォルトの名無しさん
18/11/25 21:09:21.48 F5E3KDnq.net
>>709
笑った
733:デフォルトの名無しさん
18/11/25 23:28:07.03 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:デフォルトの名無しさん
18/11/25 23:30:57.42 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:デフォルトの名無しさん
18/11/25 23:34:40.02 DgoPPid/.net
>>711
再々投ｺﾞﾒﾝ
無名関数の末尾再帰版
× use feature qw{say};
↓
○ use feature qw{current_sub say};
736:697
18/11/26 02:29:30.61 jdmxn8AZ.net
>>683>>702
HTML + JavaScript
URLﾘﾝｸ(codepen.io)
737:on/pen/OaERvj 即実行できた方がいいかなと思ってブラウザで動く JavaScript にしてみた。 PC側は10台まで台数入力する。 表示は「グー」、「チョキ」、「パー」になっている。 判定は方法ほ Kotlin のやつとほとんど同じ。 但し勝敗や相子に関係なく再挑戦ボタンが出る。
738:デフォルトの名無しさん
18/11/28 01:28:37.70 he8qnrZH.net
>>706 c
URLﾘﾝｸ(ideone.com)
739:711
18/11/28 23:15:07.63 he8qnrZH.net
>>706 c
URLﾘﾝｸ(ideone.com)
・mandelbrotが4.24s
・セル配列をコンパクト化
・一部のforとswitchをgotoで置き換え
・データポインタの範囲チェックは廃止
・']'のとき無条件に'['へ戻ってたのを廃止
740:デフォルトの名無しさん
18/11/28 23:53:16.47 fj/EN88U.net
これで。以前からやろうとしてできてない。AI簡単そうだが。
３ｘ３盤タイルゲーム for Windows ver2.00 14/7/5 更新
対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」 ＜入門版＞
４ｘ４盤タイルゲーム for Windows ver2.00 14/7/5 更新
対戦するたびに学習して次第に強くなる「最善手探索＋対戦学習型知能ゲーム」 ＜本格版＞
URLﾘﾝｸ(www2u.biglobe.ne.jp)
741:デフォルトの名無しさん
18/11/29 11:20:14.11 jwCbT4Qs.net
盤の状態は4×4のやつで3^16=43046721通りだから後退解析で全状態の最善手が簡単に解ける
742:デフォルトの名無しさん
18/11/29 19:56:01.31 Hd6SZyXm.net
>>716
その "&&label" って初めてみたんだけどgcc拡張なんだな
743:デフォルトの名無しさん
18/11/29 20:53:52.25 lIzTCHsu.net
>>719
これか。こんなのあったとは知らなかった。
URLﾘﾝｸ(nnabeyang.hatenablog.com)
しかしあまり利用する必要なさそうな予感。
744:711
18/11/29 23:18:59.74 dyCCyrAH.net
>>706 c
URLﾘﾝｸ(ideone.com)
・ mandelbrotが4.24s→3.42s
・いくつかの単純なループを自前の命令に置き換え
>>719-720
まさかこれ使う日が来るとはね（ ＾ω＾）
745:デフォルトの名無しさん
18/11/30 16:33:00.37 M3yAddAk.net
さすがC言語
奥が深いな
746:デフォルトの名無しさん
18/11/30 18:55:20.12 eqr4XxJg.net
儲かるお題を書いてください。
747:デフォルトの名無しさん
18/11/30 19:56:50.93 vThfWoZE.net
お題: C言語のコメント/*～*/, //～ を除去するプログラムを実装せよ
748:711
18/11/30 22:52:06.95 j+r1UJtS.net
>>706
URLﾘﾝｸ(ideone.com)
・ mandelbrotが4.24s→3.42s→3.24s
・ループの置き換えを若干増やす
・初期8命令を6命令へ、なんとなく整理
749:デフォルトの名無しさん
18/11/30 22:53:31.37 cIO0a97u.net
>>724
命令すんなカス
750:デフォルトの名無しさん
18/11/30 23:05:45.19 iwzbC/nf.net
>>725
ここまで最適化するとはすごいな
今VCに移植してやってみてる
VCはラベルのアドレスは取れないのでcase文内で処理してる
でも文字がダラダラと表示されるのが嫌なので、putchar()の所を
一度バッファに溜めておいて最後にputs()で一気に出力するようにした
751:
18/11/30 23:09:14.20 MkfLpznc.net
>>724
やったことがある気がしたのですが、もうすっか�
752:阮Yれてしまいました…
753:デフォルトの名無しさん
18/11/30 23:09:48.33 iwzbC/nf.net
>>716のを移植するとこうなる
他のも同様だと思う
Random1.h というのは自前のストップウォッチクラスを使うためだけなので、
std::chronoを使って適当に自作すれば良い
URLﾘﾝｸ(ideone.com)
754:デフォルトの名無しさん
18/11/30 23:16:05.51 TjeK6E2T.net
お題: 入力にこのスレのhtmlが与えられるので数字だけ,区切りで出力しなさい。
出力例
2018,11,30,...
755:デフォルトの名無しさん
18/11/30 23:54:45.63 8gAcKqbf.net
どれだけの数字の種類に対応するのかで個性が出るな
756:デフォルトの名無しさん
18/12/01 00:17:45.63 XKE5KJf3.net
>>726
誰もお前になんか言ってねーよ
自意識過剰なんじゃボケカス
757:デフォルトの名無しさん
18/12/01 01:26:07.16 3EVAE812.net
>>724
Perl
URLﾘﾝｸ(paiza.io)
Perl だと簡単だ。
但し /* /* */ */ みたいな二重のやつには対応していない。最初の /* から次に出た */ を削除して */ が残る。
(この辺は本物のCプリプロセッサでも同じかな?)
758:デフォルトの名無しさん
18/12/01 01:45:09.70 YAQo6Dqr.net
>>730 Ruby
require 'open-uri'
thread = 'URLﾘﾝｸ(mevius.2ch.sc)'
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:デフォルトの名無しさん
18/12/01 01:53:10.02 k1RHlnBk.net
>>733
"/* hoge */" => ""
760:
18/12/01 02:29:20.81 J8cQMvWo.net
>>733
＞(この辺は本物のCプリプロセッサでも同じかな?)
そうですね。URLﾘﾝｸ(ideone.com)
761:デフォルトの名無しさん
18/12/01 03:00:24.20 3EVAE812.net
>>735
あー。文字列リテラルについては何も考えてなかった。
明日考えよう。
>>736
やはりそうでしたか。わざわざどうも。
762:デフォルトの名無しさん
18/12/01 03:09:09.09 3EVAE812.net
>>735
今閃いたので修正した。(URLは同じ)
763:デフォルトの名無しさん
18/12/01 03:22:24.06 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:デフォルトの名無しさん
18/12/01 03:24:23.46 3EVAE812.net
>>724
Cでも作った。
URLﾘﾝｸ(paiza.io)
これは1文字づつ読んでモード切り替えて出力したりしなかったりする方式。
文字列リテラルにも対応。
765:デフォルトの名無しさん
18/12/01 03:40:27.80 mIATMgqT.net
>>738
'"', /* hoge */, "fuga" => '"', /* hoge */, "fuga"
766:デフォルトの名無しさん
18/12/01 03:45:42.76 mIATMgqT.net
>>738
"// hoge" => "
767:デフォルトの名無しさん
18/12/01 04:05:45.76 3EVAE812.net
>>741>>742
あ、それか。それは明日考えよう。
768:デフォルトの名無しさん
18/12/01 04:06:53.29 3EVAE812.net
C言語の方もシングルクォート考慮してないから似たようなものだな。
769:デフォルトの名無しさん
18/12/01 05:34:42.40 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:デフォルトの名無しさん
18/12/01 07:52:53.53 U3mK8vlP.net
>>732
誰も俺に言われてると思ってねーよ
自意識過剰なんじゃボケカス
771:デフォルトの名無しさん
18/12/01 11:03:33.46 XKE5KJf3.net
>>746
生きづらそう
772:デフォルトの名無しさん
18/12/01 11:10:29.72 50ygxsN0.net
>>733
PCRE(Perl)の正規表現なら再帰マッチ(&R)や(&1)使いなせぇ
参考サイトはｲﾛｲﾛあるし
773:デフォルトの名無しさん
18/12/01 11:16:56.49 50ygxsN0.net
>>748
ｺﾞﾒﾝ再帰マッチは(?R)や(?1)だた
時間あればnest対応版書いてみたいけど
多分ないや…
こういうのは再帰降下パーサParse::RecDescentやPerl6のRule使うと楽に書ける
774:デフォルトの名無しさん
18/12/01 12:39:50.92 U3mK8vlP.net
>>747
おまえやわw
いちいち素っ頓狂なレスすんなカスw
775:デフォルトの名無しさん
18/12/01 12:41:56.31 1eGLRG7/.net
いつもの単芝君やないか
この板に粘着して荒らしまわってる奴やで
意思疎通は不可能なのでNGするなりスルーするなりしてくれ
776:デフォルトの名無しさん
18/12/01 15:19:58.00 3EVAE812.net
>>733の改造終了(URLは同じ)
長い呪文になってしまった。
>>748>>749
なるほど。その内暇な時にでも考えよう。
777:デフォルトの名無しさん
18/12/01 17:02:07.43 3EVAE812.net
>>740も改造終了(URLは同じ)。
778:デフォルトの名無しさん
18/12/01 17:25:35.20 cOhty352A
>>706 F#
URLﾘﾝｸ(ideone.com)
mandelbrotが2.9s
URLﾘﾝｸ(postd.cc) を参考にした
779:デフォルトの名無しさん
18/12/01 17:34:49.88 XO3Kyvz4.net
>>710 F#
URLﾘﾝｸ(ideone.com)
mandelbrotが2.86s
URLﾘﾝｸ(postd.cc) を参考にした
780:デフォルトの名無しさん
18/12/01 17:37:04.95 XO3Kyvz4.net
>>755 はインタプリタでないので無視してください
781:デフォルトの名無しさん
18/12/02 00:35:34.00 twRH93OM.net
>>706
Kotlin
URLﾘﾝｸ(paiza.io)
1行1プログラムだが行が長くなると見辛いので行末に \ があったら次の行と連結している事にした。
782:711
18/12/02 16:02:26.97 aFBnTuDv.net
>>706 c
URLﾘﾝｸ(ideone.com)
・ mandelbrotが4.24s→3.42s→3.24s→2.13s
・G: while (*dp) dp += ip->d; ip++; goto TOP; を追加
>>727
caseで分岐するほうが移植性あっていいよね（ ＾ω＾）
783:デフォルトの名無しさん
18/12/02 16:29:28.37 hHHhmr7T.net
Python「・・・」
784:デフォルトの名無しさん
18/12/03 22:04:03.50 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:デフォルトの名無しさん
18/12/03 23:49:23.73 CrTNh3lq.net
数え上げ系のお題はつまんない
787:デフォルトの名無しさん
18/12/04 10:39:39.35 ZczbahAK.net
パズルソルバーは制約・論理プログラミングが最適だね。
788:デフォルトの名無しさん
18/12/04 13:11:47.75 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:デフォルトの名無しさん
18/12/04 13:34:55.49 fo8RIf+e.net
>>763 無駄な括弧があったので修正
regexp = /([^"']*?)(?:\/\/[^\n]*|\/\*.*?\*\/)?(("|').*?(?<!\\)(?:\\\\)*\3)?/m
puts src.gsub(regexp, '\1\2')
790:デフォルトの名無しさん
18/12/04 17:02:17.81 N7rAE58b.net
>>758
URLﾘﾝｸ(ideone.com)
caseに書いちゃうと遅くなるな
791:デフォルトの名無しさん
18/12/04 17:20:50.80 tkE9zz4k.net
お題: テキストが入力されるのでそれがお題であれば1，お題でなければ0を出力せよ
792:デフォルトの名無しさん
18/12/04 17:37:59.07 HMynH27O.net
>>766
#!/bin/sh
if grep お題 >/dev/null 2>&1
then
echo 1
else
echo 0
fi
793:デフォルトの名無しさん
18/12/04 17:43:36.31 evmq38l5.net
お題
C/C++言語のソースをHTMLに変換
・色分け（外部スタイルシートで色分け以外にも
サイズや種類など色々と細かく指定可能）表示
・コメント・クォート・マクロ定義部分・マクロ等に対応
・ローカル変数・グローバル変数・static関数・非static関数
ライブラリ変数/関数/マクロ（ヘッダ記載)・
ローカル型・グローバル型名の区別
入力：コマンドラインからファイル名(.c/.cpp)
出力：出力htm(l)ファイルとそれが参照するスタイルシート(.css)を
新規作成
794:デフォルトの名無しさん
18/12/04 17:47:43.27 evmq38l5.net
あと、コードブロックや式の括弧のネストレベルに応じて
背景色を変えてほしい（要望）
コマンドラインからタブ=4,8とか指定できるようにもして欲しい
795:デフォルトの名無しさん
18/12/04 17:58:45.10 0EeyK9d3.net
>>766
ruby -ne'p~/\Aお題\Z/?1:0'
796:デフォルトの名無しさん
18/12/04 18:05:08.94 HMynH27O.net
1. 好きなIDEのエディタで画面に表示。
2. PrtSc キーを押す。
3. ペイントを起動してペースト。
4. PNGファイルとして保存。
5. メモ帳を起動。
6. HTML を書き、imgで先の画像を表示するようにする。
7. 拡張子をhtmlにして保存。
8. ブラウザで表示。
9. 終了。
797:デフォルトの名無しさん
18/12/04 18:14:10.74 evmq38l5.net
型に応じて変数の色分け（スタイル変更）に対応できたら最高
忘れてたけど予約語の色分けは当然
ソースコードの構文エラー箇所以降は単色赤文字で表示
798:デフォルトの名無しさん
18/12/04 19:05:35.22 Ntdpy5BB.net
>>766 PowerShell
[int]("お題" -eq $(Read-Host))
799:デフォルトの名無しさん
18/12/05 04:19:34.99 fABNAu0P.net
>>760 Java
URLﾘﾝｸ(ideone.com)
800:デフォルトの名無しさん
18/12/05 19:36:38.80 W3jESzak.net
お題：ビュフォンの針をシミュレートして円周率の近似値を求めよ
801:デフォルトの名無しさん
18/12/05 20:02:35.88 W3jESzak.net
自分でやってみた
Python3
URLﾘﾝｸ(ideone.com)
1000万本投げた場合
3.14219665312
802:デフォルトの名無しさん
18/12/05 23:06:27.91 dgv/Vo0c.net
angleを計算するのに思いっきりπの値使ってるだろうし..ｗｗｗ
803:デフォルトの名無しさん
18/12/05 23:30:47.41 oCZO3Dfm.net
wikipediaは日本語版だけその問題に言及して疑似コードも載ってるのな
804:
18/12/05 23:30:56.16 qUBA/FDJ.net
>>777
そんなツッコミは初めてみました、うまいですね…
805:デフォルトの名無しさん
18/12/05 23:42:52.79 W3jESzak.net
>>777
書いてて思ったけどめんどくさくなってそれ以上考えなかった
806:デフォルトの名無しさん
18/12/06 01:36:29.15 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:デフォルトの名無しさん
18/12/06 01:57:54.87 CjS0UpEg.net
こういうプログラム面手するのつらいだろうな
808:デフォルトの名無しさん
18/12/06 02:09:23.51 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
18/12/06 20:58:20.17 fqSvUjwD.net
>>760
需要はほぼなかったみたいだが、出題者コメントを
答えだすのに必要なものだけに前処理で集計。今回必要なのは
0-9数字使用の有無だけなので2^10に集約・集計できる( 50万→1024）
この数になればあとは、二重ループで集計をすればいい。
後半は集約にビットを使えば、popcountを使って簡潔に書けるパターン。
想定解(python by pypy) URLﾘﾝｸ(ideone.com)
回答者さんとほぼ同じ。
あえて相違点は、pythonのpopcount相当が意外と重かったので、
前処理でテーブル化している。(高速に出れば、いらないはず？)
※制約の50万と1.5秒は、素の(標準だけの)pythonに合わせている。
(このコードも素のpythonだと、例題6)だけで0.8秒くらい)
810:デフォルトの名無しさん
18/12/06 21:56:29.19 QyI+7EvW.net
>>784
from collections import Counter
でもうちょっと楽できる
811:デフォルトの名無しさん
18/12/07 15:14:44.93 wiJMm9Hc.net
>>784
蛇足的改良？してみた(一応C++だが殆どC)
URLﾘﾝｸ(pastebin.com)
812:デフォルトの名無しさん
18/12/07 22:19:34.17 x8xNXHP3.net
お題
1,3,4,6,7,9,10,12,…
のように1から始まり奇数, 奇数,偶数,偶数,
奇数,奇数,偶数,偶数…と続く場合2019番目はいくつになるか
813:デフォルトの名無しさん
18/12/07 22:30:
814:34.68 ID:avhY9emJ.net
815:デフォルトの名無しさん
18/12/07 22:32:31.84 avhY9emJ.net
結果書いてなかった
3028
816:デフォルトの名無しさん
18/12/07 22:35:02.23 avhY9emJ.net
計算量的に整数の乗算とシフト演算だけの n * 3 >> 1 のほうが良いか
817:デフォルトの名無しさん
18/12/07 22:38:48.18 xSpw6JJG.net
>>787 Ruby
f = -> n {a, b = n.divmod(4); 6 * a + 2 * b + 3 / (b + 2)}
p f[2019]
# => 3030
818:デフォルトの名無しさん
18/12/07 22:47:23.26 avhY9emJ.net
>>791
1が0番目で計算してね？
URLﾘﾝｸ(ideone.com)
819:デフォルトの名無しさん
18/12/07 22:48:51.29 xSpw6JJG.net
>>792
あー本当だ
しかも n * 3 >> 1 でよかったんだね
820:デフォルトの名無しさん
18/12/08 03:40:55.13 xmV4OmOO.net
>>787
Kotlin
URLﾘﾝｸ(paiza.io)
821:デフォルトの名無しさん
18/12/08 08:09:08.92 JIGsOpwq.net
第ｎ項=3n/2+(-1)^n/4-1/4
822:デフォルトの名無しさん
18/12/08 09:20:01.90 vpfNpx82.net
プログラミング初心者なんですがJavaを覚えるのに良い課題下さい
言語の本は一冊読みました
823:デフォルトの名無しさん
18/12/08 09:29:35.75 5PBkTMHJ.net
Winならtypeコマンド(LinuxとかUnix系だとcat)と同じ機能を自作してみるとか、行番号も表示するようにするとかから始めては？
824:デフォルトの名無しさん
18/12/08 09:53:44.58 Mku3deOK.net
>>787
f=:+/@$&1 2
f 2019
3028
825:デフォルトの名無しさん
18/12/08 09:59:51.42 Mku3deOK.net
>>798
言語はJ
826:781
18/12/08 12:53:06.37 JIGsOpwq.net
整数計算オーバーフローが発生していたのを修正
URLﾘﾝｸ(pastebin.com)
827:デフォルトの名無しさん
18/12/08 15:30:02.59 dsjig1JQ.net
お題：N×Nの盤面に石を置いていく。
どの4つの石も同一円周上に乗らないようにする場合、最大何個配置できるか？
ただし、一直線上に並ぶ配置は半径∞の円周上と考える。
N=3 => 5
N=4 => 7
5 => 9
6 => 11
9 => 18
828:デフォルトの名無しさん
18/12/08 17:29:13.00 xmV4OmOO.net
>>801
問題の意味がわからない。図とか描いてくれ。
829:デフォルトの名無しさん
18/12/08 17:33:47.41 kCA+QhwE.net
>>801
石の大きさはゼロで格子点とでも考えればいいのかな
830:デフォルトの名無しさん
18/12/08 17:36:28.60 m52vxjN5.net
ああ共円か
有名なゲームだな
831:デフォルトの名無しさん
18/12/08 19:05:02.19 xmV4OmOO.net
共円でググってようやっとわかった。
832:デフォルトの名無しさん
18/12/08 19:37:58.42 xPmIyiBg.net
>>796
テトリス
833:デフォルトの名無しさん
18/12/10 02:09:47.01 3g7m60y1.net
>>787
1は0番目じゃなくて1番目だよね。念のため確認
834:デフォルトの名無しさん
18/12/12 02:35:41.59 84v7sPOJ.net
お題
2次元平面上で点(x,y)が点列(X1,Y1), (X2,Y2), ..., (Xn,Yn), (X1,Y1)を順に結んでできる多角形の内部にあるかどうか判定せよ
835:デフォルトの名無しさん
18/12/12 07:13:05.92 SVnAXs6w.net
どのような多角形をなすかの
仮定で方法も違ってくるだろうけど、
一般的な場合を視野に入れる限り
複数の数学ライブラリを組み合わせて
扱うソリューションパッケージ的なものに
なりそうでお題としてはなんだかなって感じ
836:デフォルトの名無しさん
18/12/12 08:10:30.84 3f3X1OW4.net
>>808
多角形の定義がひどい。
重なる事はあるのか、と、重なったときに内部はどうするのかとか。(抜けるのはめんどくさい)
重なってはいけないけど辺は突き抜けても良いのかとか。
描いた絵みたいな状態を許すかどうかでけっこう判定が変わる。
URLﾘﾝｸ(o.8ch.net)
837:デフォルトの名無しさん
18/12/12 08:27:43.91 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:デフォルトの名無しさん
18/12/12 09:01:00.07 J4hfK+qs.net
また数学か。数学板が嫌なら紙とえんぴつでやってろ
839:デフォルトの名無しさん
18/12/12 09:21:43.03 YlPyc4+b.net
ポリゴンで塗り潰してその色になれば真
840:デフォルトの名無しさん
18/12/12 11:12:59.34 3f3X1OW4.net
数学になるの？
俺CAD関連と3DCG関連でこういうの書くけどな。
コード書こうと思って出題者に問うたつもりだけど。。
証明出来てないコード書いても無意味なんだから先にロジック書いたつもり。
ってかどうして数学？っぼい問題が嫌われるの？
脳筋コードが良いってこと？
841:デフォルトの名無しさん
18/12/12 11:17:02.00 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:デフォルトの名無しさん
18/12/12 11:40:32.38 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:デフォルトの名無しさん
18/12/12 11:56:39.21 3f3X1OW4.net
ベクトル係数の解法も綺麗だな。式も少ないし素晴らしいと思う。
844:デフォルトの名無しさん
18/12/12 12:12:03.42 SeAXRl2+.net
>>808 Java
URLﾘﾝｸ(ideone.com)
わかんねーので言語任せｗ
non_zero: >>810の星型の内部も多角形に含まれる
even_odd: >>810の星型の内部は多角形に含まれない
845:デフォルトの名無しさん
18/12/12 12:14:30.79 ygJIxGmd.net
>>814
このスレには解答者側に数学ができない人がいて、そういう人が文句を言ってる
かく言う俺も数学できないが文句は言わない
846:デフォルトの名無しさん
18/12/12 14:03:01.24 FdJbiO2G.net
数学の問題集から拾ってきただけみたいな雑な出題が叩かれてるんじゃなかったのか
問題文自体に不備があってそこを詰めるのが主になってしまうパターンもあるけど
847:デフォルトの名無しさん
18/12/12 14:49:36.03 GETLERsG.net
純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、という
848:問題だったら、わざわざプログラム板でやる面白味はないなあと思う。 数学的に解いても、その後コードに起こす際にプログラミング固有の工夫とか言語による違いが見られるような物だと興味深い。 個人的な感想です。
849:デフォルトの名無しさん
18/12/12 15:01:41.06 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:
18/12/12 20:48:43.83 5ElL+qNp.net
>>821
＞純粋に数学だけで解けて解法の式を作ったら、あとはコードにベタ書きしてただ解を出力するだけ、
それは甘い、大甘だと私の経験は私の心に語ってくれています
851:
18/12/12 20:49:58.51 5ElL+qNp.net
>>822
そういう問題はある種の順序関係を仮定してインプリメントしたいところです
852:デフォルトの名無しさん
18/12/12 23:47:12.93 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]]
URLﾘﾝｸ(ideone.com)
853:デフォルトの名無しさん
18/12/13 00:26:45.67 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:デフォルトの名無しさん
18/12/13 01:00:05.58 vQDTFPB2.net
>>822 Ruby
x, a, b = [*1..10], [*3..6], [*5..8]
p x & (a | b)
# => [3, 4, 5, 6, 7, 8]
855:デフォルトの名無しさん
18/12/13 09:40:48.46 wBrOfppZ.net
>>822
c
URLﾘﾝｸ(ideone.com)
c++
URLﾘﾝｸ(ideone.com)
856:デフォルトの名無しさん
18/12/15 18:26:25.25 RxHR1YVb.net
お題：標準入力から読み取った行を出力せよ
ただし42を読んだ場合は出力せずに終了する
URLﾘﾝｸ(ideone.com)
857:デフォルトの名無しさん
18/12/15 18:51:24.63 Hf86DN+J.net
>>829
ruby -pe'~/^42$/&&exit'
858:デフォルトの名無しさん
18/12/15 20:46:54.11 Du8iBFv1.net
>>829 Common Lisp
URLﾘﾝｸ(ideone.com)
read-lineの第三引数にnil以外を使ったの初めてだ
859:デフォルトの名無しさん
18/12/15 23:34:07.15 2jxK776v.net
>>829
bash
URLﾘﾝｸ(paiza.io)
860:デフォルトの名無しさん
18/12/15 23:59:19.52 QTag+jm2.net
>>829 PowerShell
while (($var = (Read-Host)) -ne 42) { $var }
861:デフォルトの名無しさん
18/12/16 03:36:20.47 X+FaDx+z.net
>>829
python 3
URLﾘﾝｸ(ideone.com)
862:デフォルトの名無しさん
18/12/16 13:54:15.20 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:
18/12/16 14:12:11.90 IjCemHtZ.net
>>835
年忘れ課題の時期になったんですね…
864:デフォルトの名無しさん
18/12/16 19:04:23.02 P931WLXH.net
>>835 Java
URLﾘﾝｸ(ideone.com)
あってんのかなー
865:830
18/12/16 19:54:33.15 GrZg6kve.net
>>837
2)の31からして自分のと違う。
自分のでは111だった。
javaのやついじって、112個の明細を出してみたら、[2,2,27] があった。
27は素数じゃないよね。いじり方が悪い？
866:デフォルトの名無しさん
18/12/16 19:56:19.00 pjubjjb0.net
>>838
自分も31は111だったわ
867:デフォルトの名無しさん
18/12/16 20:37:34.86 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:デフォルトの名無しさん
18/12/16 20:50:18.98 P931WLXH.net
>>838
まじだ・・・修正した
犯人は118行目だ！orz