プログラミングのお題 ..
552:デフォルトの名無しさん
18/11/17 12:27:52.98 z9owpr8+.net
>>526 ぺちぷ
<?php
function solve(int $n):int{
$a=0;
for($i=5;$i<=$n;$i*=5)$a+=intdiv($n,$i);
return $a;
}
foreach([1,5,10,1e2,1e6,1e16] as $i)printf("%d -> %d\n",$i,solve($i));
?>
1 -> 0
5 -> 1
10 -> 2
100 -> 24
1000000 -> 249998
10000000000000000 -> 2499999999999996
553:デフォルトの名無しさん
18/11/17 12:46:05.88 u+BaxmkL.net
>>536
コリャうっかりw
zlen 差替え。
zlen x = (length.(takeWhile (== '0')).reverse.show.product) [1..x]
554:デフォルトの名無しさん
18/11/17 12:48:16.01 u+BaxmkL.net
実行結果
(0,0)
(1,0)
(2,0)
(3,0)
(4,0)
(5,1)
(10,2)
(100,24)
(1000,249)
(10000,2499)
555:デフォルトの名無しさん
18/11/17 15:08:29.22 thhERN1M.net
>>526 Perl5 その1:単純にloop
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
($s, $n) = ($i, 0);
while ($s) {
$s = int $s / 5;
$n += $s;
}
print "$i $n\n";
}
>>526 Perl5 その2: lambdaのtail recursion
use feature current_sub;
for $i (0,1,2,3,4,5,10,100,1000,10000,1000000) {
$n = sub {my $j = shift;
$j ? do {my $s = int $j / 5;
$s + __SUB__->($s)} : 0;
}->($i);
print "$i $n\n";
}
いずれも実行結果は
$ perl 12_522.pl
0 0
1 0
2 0
3 0
4 0
5 1
10 2
100 24
1000 249
10000 2499
1000000 249998
= i/5のreductionよりもエレガントな解法をしばらく考えていたけど一旦断念して投稿します
556:デフォルトの名無しさん
18/11/17 17:48:20.07 corCuJCM.net
お題
月(01から12)、日(01から31)、時(00から59)、分(00から59)、秒(00から59)の10桁の日付データで
全部の桁が異なる場合を全て求める。だ
557:デフォルトの名無しさん
18/11/17 17:53:02.90 corCuJCM.net
すいません。最後の文字はゴミです無視してください
558:デフォルトの名無しさん
18/11/17 18:44:23.27 eb0sqdRj.net
>>541
時って00から23じゃないの？
559:デフォルトの名無しさん
18/11/17 19:03:48.66 corCuJCM.net
>>543
その通りです。すいません。
時(00から23)に訂正します。
560:デフォルトの名無しさん
18/11/17 19:42:56.43 qglse9qW.net
>>541 Ruby
date = (3..9).flat_map do |mo|
[*1..2].permutation.flat_map do |dd, dh|
([*3..5] - [mo]).permutation(2).flat_map do |dm, ds|
([*3..9] - [mo, dm, ds]).permutation.map do |d, h, m, s|
[0, mo, dd, d, dh, h, dm, m, ds, s] if dh == 1 || h < 4
end
end
end
end.compact
p date.size
# => 768
puts date.map(&:join)
# => 0326174859
0326174958
0326184759
0326184957
0326194758
0326194857
0327164859
0327164958
0327184659
0327184956
... 略
561:デフォルトの名無しさん
18/11/17 20:18:24.56 e9k3MEr9.net
東西ローマ帝国勃興期か
胸が熱くなるな
562:デフォルトの名無しさん
18/11/17 20:30:15.26 z9owpr8+.net
>>540
ルジャンドルの定理がエレガントでは無いと申すか
563:デフォルトの名無しさん
18/11/17 20:54:52.23 u+BaxmkL.net
>>541
Haskell
main = ((mapM_ putStrLn).only.(zip (ccheck date10))) date10
n2 n | n < 10 = '0':show n
n2 n = show n
only = (map (\(_, d) -> d)).filter (\(x,_) -> x == False)
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
パターン数字や最初付近が合ってるかはRubyの人(>>545)ので確認したので多分合ってる。
564:デフォルトの名無しさん
18/11/17 20:56:09.09 u+BaxmkL.net
ccheck = map ((elem False).count)
count xs = map (\c -> ((<2).length.(filter (== c))) xs) "1234567890"
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>545 の人ので答え合わせしたので、多分合ってる。
565:デフォルトの名無しさん
18/11/17 20:57:39.57 u+BaxmkL.net
date10 = [concat [n2 month, "/", n2 day, " ", n2 hour, ":", n2 minut, ":", n2 sec]
| month <- [0..12], day <- [0..31], hour <- [0..24], minut <- [0..60], sec <- [0..60]]
>>545 の結果で答え合わせ済み。
566:デフォルトの名無しさん
18/11/17 20:58:20.76 u+BaxmkL.net
>>545 の結果で答え合わせ済み。
567:デフォルトの名無しさん
18/11/17 21:15:29.25 qglse9qW.net
>>545の全結果
過不足がないことは確認済み
URLﾘﾝｸ(ideone.com)
568:デフォルトの名無しさん
18/11/17 22:37:13.60 BeWwS75G.net
>>541 Perl5
sub f {grep{!/(.)\1/} map{sprintf "%02d", $_} @_}
sub g {map{$_=>1} split'', shift}
for $M (1..10,12) {
($S) = f($M);
$D = $M == 2 ? 28 : ($M =~ /(4|6|9)/ ? 30 : 31);
for $d (f 1..$D) {
%t = g "$S$d";
next if 4 != keys %t;
for $h (f 1..23) {
%t = g "$S$d$h";
next if 6 != keys %t;
for $m (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m";
next if 8 != keys %t;
for $s (f 0..59) {
%t = map{$_=>1} split'', "$S$d$h$m$s";
next if 10 != keys %t;
print "$S$d$h$m$s\n";
} } } } }
実行結果
$ perl 12_537.pl
0326174859
0326174958
0326175849
... 中略
0928175436
0928175634
0928175643
計768個
569:デフォルトの名無しさん
18/11/17 23:10:25.25 u+BaxmkL.net
>>548
03/26 17:48:59
みたいに書式化してるんだけど、RubyもPerlも数字だけなのな。。。
その方が速いのは分かるけど。
570:デフォルトの名無しさん
18/11/17 23:53:27.88 BeWwS75G.net
>>547
数学的にルジャンドルの定理と同じ原理に帰結する解法であっても
もっとエレガントなコードアーキテクチャ、たとえば桁の三角形の5と10を
再帰的に渡り歩いてshiftしながら足しこんでいくようなすごくシンプルで、
もっと短いコード実現を探してたという意味です。
つか5とか10とか100とか通過するたびに0が一桁二桁増えることに
パターンがあるのに気がついてうまく使おうとしたけど、
それがルジャンドルの定理のひとつだとは知りゃせんでした。
571:デフォルトの名無しさん
18/11/18 00:08:39.78 2kF9kdFV.net
25 125が出てこない辺り理屈わかってなさそう
572:デフォルトの名無しさん
18/11/18 00:17:41.21 XHHQeobW.net
>>555
5は*5ね
50+は…
573:デフォルトの名無しさん
18/11/18 05:42:08.97 HhgIFMcS.net
分かっちゃ居たけど、聞いたこともない定理が出る辺り高卒にはエレガントな回答は無理ぽ。。。
574:デフォルトの名無しさん
18/11/18 10:00:29.21 5NL96rQC.net
>>558
codeIQで類似の問題を解いた当時は知らなかったけど、
普通に行き着いたけどな
575:デフォルトの名無しさん
18/11/18 10:39:30.27 Q5hV0WNe.net
>>541 ruby
URLﾘﾝｸ(ideone.com)
576:デフォルトの名無しさん
18/11/18 11:15:29.83 HhgIFMcS.net
>>526
せっかくルジャンドルの定理を知ったので作り直してみた。
Haskell
main = ((mapM_ print).(zip list).(map (zlen 0 1))) list
zlen ans x n | 5 ^ x > n = ans
zlen ans x n = zlen (n `div` (5 ^ x) + ans) (x + 1) n
list = [0,1,2,3,4,5,10,100,1000,10000,12000,100000000]
577:デフォルトの名無しさん
18/11/18 13:05:15.26 oKOqkAfz.net
お題：同調圧力
要素０，１からなる3次以上の正方行列がある。
縦、横、対角線に０が1個だと1に変化する。この変化が繰り返される。
最後にすべての要素が1になる最小数の１の数と初期配置を求めよ。
578:デフォルトの名無しさん
18/11/18 13:38:56.07 XHHQeobW.net
>>558
定理名を知らなくても考えれば見出せるよ
579:デフォルトの名無しさん
18/11/18 14:07:39.31 /U8hetN/.net
>>558
URLﾘﾝｸ(examist.jp)
URLﾘﾝｸ(www.youtube.com)
高校数学の範囲内だろ
「高卒」なる言い訳が通用するほど高校数学は甘くない
580:デフォルトの名無しさん
18/11/18 14:25:30.20 qNfVdQsW.net
まあ入試でよく見る問題だよね
581:デフォルトの名無しさん
18/11/18 14:54:31.18 HhgIFMcS.net
>>559
>>563-564
そうだね。
高卒だからは言い訳だ。
そう言うのを思いつけない頭の悪さでプログラマーに成れなかった。
それだけだな。
582:デフォルトの名無しさん
18/11/18 15:01:13.02 XHHQeobW.net
>>566
短時間で車輪を思い付く/付かないはある意味、向き/不向きでもある
そういうひらめきタイプじゃなくてもちゃんと食べているプログラマーはいっぱいいるぞ
583:デフォルトの名無しさん
18/11/18 16:24:57.02 HhgIFMcS.net
>>567
ありがとう。
でももう、プログラマー目指す年齢じゃないから＾＾；
iPadのHaskell(Raskell)で力付くでも12000！までは解ける辺り、
効率悪くてもとりあえず動く物を作れるようになったのは良い時代になったと思う。
584:
18/11/18 19:54:03.12 KS5/UdBT.net
>>564
その動画、素因数の5を数えればよい、と言い切っちゃっているが、2は数えなくてもいいのか？あるいは 2 を数えなくてもいい理由を述べていないよね
それに、どうして素因数分解は必ずひととおりになるのですか？二通りになるかもしれないのでは？
585:デフォルトの名無しさん
18/11/18 19:58:30.97 /tSlZOJ0.net
そうだね
おまけに足し算がアーベル群を成していないかもしれないから和と自然数の定義から確認しないと駄目だね
586:デフォルトの名無しさん
18/11/18 21:11:02.75 cU5Dmtcu.net
今、((2n-1)2^m, n5^m)をペアで考えるよ
そうすると、1≦n, mで常に(2n-1)2^m≦n2^(m+1)≦n4^m≦n5^mになる
で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
なので素因数は5だけ数えれば良い
587: 素因数分解が一通りなのは自明なので定義からやり直せ
588:デフォルトの名無しさん
18/11/18 21:18:15.05 HyP7YfXU.net
2以上のnに対しn!=(2^p)*(5^q)*N（Nと2と5は互いに素）とする非負整数p,q,Nがただ一組存在して
p>qであることはほとんど自明だが証明しろと言われると…
589:デフォルトの名無しさん
18/11/18 21:24:02.32 HhgIFMcS.net
>>569
URLﾘﾝｸ(mathtrain.jp)
末尾の 0の数は，10で何回割り切れるか，すなわち 2で割れる回数と 5で割れる回数の少ない方である。
（直感的に考えて 5 で割れる回数のほうが少ないので 5で割れる回数だけ考えればよいが練習のため，）
590:デフォルトの名無しさん
18/11/18 21:50:28.21 tNgGKwOg.net
普通に自明
591:
18/11/18 21:56:44.59 KS5/UdBT.net
>>571
＞素因数分解が一通りなのは自明
自明ではないと思います…「素数の定義は 1 と自身以外の約数を持たない」であって「素数の積が一通り」ではないですから
＞そうすると、1≦n, mで常に(2n-1)2^m≦5^mになる
OKです
＞で、ということはx!の中にある5の倍数が含まれるなら、対応した2の倍数もまた含まれていて素因数の個数が同じ
ここは飛躍しているのでは？
n・5^m →(2n-1)・2^m
と対応づけるとき n・5^m の形の数が決して (2n-1)・2^m の形にならないのであれば一対一の対応がとれますが、n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない
厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？
592:
18/11/18 21:58:55.74 KS5/UdBT.net
>>573
＞直感的に考えて 5 で割れる回数のほうが少ないので
あくまでも「直感的に」ですよね
厳密にそういえますか？
593:デフォルトの名無しさん
18/11/18 21:59:59.80 tNgGKwOg.net
ルジャンドルの定理を考えれば普通に自明
594:デフォルトの名無しさん
18/11/18 22:33:22.36 ryC6c2pW.net
>>569
証明はされているしググれば出てくる
内容についてはこのスレの趣旨的にここで深く論じる事ではないと思う
595:デフォルトの名無しさん
18/11/18 22:34:24.44 I7k3lQnf.net
◆QZaw55cn4c は荒らしなのでスルーでお願いします
596:デフォルトの名無しさん
18/11/18 22:42:22.16 qz83zcM7.net
お題
UTF-8のバイト列が与えられるので、Unicodeのコードポイントを求めよ
6F 64 61 69
=> U+006F U+0064 U+0061 U+0069
E3 81 8A E9 A1 8C
=> U+304A U+984C
C2 A9 F0 9F 8D 94 E9 A6 99 41
=> U+00A9 U+1F354 U+9999 U+0041
597:デフォルトの名無しさん
18/11/18 23:39:58.87 N6zzFXD1.net
◆QZaw55cn4c は、このスレでも荒らしてるのか。
598:
18/11/18 23:51:49.66 KS5/UdBT.net
>>578
＞内容についてはこのスレの趣旨的にここで深く論じる事ではない
一理あるとは思います
599:デフォルトの名無しさん
18/11/18 23:58:08.89 N6zzFXD1.net
何かと思ったら、自然数の素因数分解の一意性に文句を付けているのかよ。
600:デフォルトの名無しさん
18/11/19 00:12:50.43 En0/bEno.net
>>575 n・5^m=(2n-1)・2^mなら、nは2の累乗かつ2n-1は5の累乗(2と5は互いに素なので)
でも、2n-1が5の累乗だとするとn=3,13,63,313…と奇数なので(f(1)=3, f(x)=f(x-1)+2・5^(x-1)で導出)nが2の累乗であることに矛盾する
素因数分解が一意なのはwikipediaにでも載ってる
というか自分である程度考えてよ……粗探ししてないでさ
601:デフォルトの名無しさん
18/11/19 00:15:20.48 DnlmRpTS.net
>>580 Java
URLﾘﾝｸ(ideone.com)
602:
18/11/19 00:25:31.38 MufxDZB0.net
>>584
＞ n・5^m=(2n-1)・2^m
そう置くのではなく
a・5^b = (2c-1)・2^d
と置くべきなのでは？
たとえば m = 1 のとき n の小さいものから順に
1・5 → 1・2
2・5 → 3・2
3・5 → 5・2…①
ここ①で 5・2 はすでに数え上げているので、一対一対応になっていないと思います
一対一対応にな�
603:轤ﾈい以上、>>575 の推論は飛躍しているのではないでしょうか 繰り返しますが >>575 「n・5^m の形であってかつ (2n-1)・2^m の形である整数が存在する場合は一対一の対応にならない 厳密に一対一の対応にならないのなら、因数 2 の個数と因数 5 の個数の大小についてなにもいえないのでは？」 です
604:デフォルトの名無しさん
18/11/19 00:36:52.56 En0/bEno.net
ん、あれ確かにおかしいな
即レスはミスの源だな、再検討してくる
605:デフォルトの名無しさん
18/11/19 01:06:40.64 4D1JIT10.net
>>580
大変勉強になりました。
const getCP = s => [...new TextDecoder('utf-8').decode(Uint8Array.from(s.split` `.map(x => parseInt(x, 16))))].map(u => 'U+' + u.codePointAt().toString(16).toUpperCase().padStart(4, 0)).join` `
getCP('6F 64 61 69')
=> "U+006F U+0064 U+0061 U+0069"
getCP('E3 81 8A E9 A1 8C')
=> "U+304A U+984C"
getCP('C2 A9 F0 9F 8D 94 E9 A6 99 41')
=> "U+00A9 U+1F354 U+9999 U+0041"
606:デフォルトの名無しさん
18/11/19 01:10:37.57 rdQ6rffg.net
n/2>=n/5
n/2^2>=n/5^2
以下略
5の方が多くなることはないわな
607:デフォルトの名無しさん
18/11/19 01:11:16.13 4D1JIT10.net
あっ、>>588はJavascript(整形にpadStart使ったのでES2017)です。
608:デフォルトの名無しさん
18/11/19 03:32:52.09 hjbRrJKx.net
>>580
Perl5
変換は Perl 任せ。
URLﾘﾝｸ(paiza.io)
609:デフォルトの名無しさん
18/11/19 10:25:48.15 X6/A5UND.net
問題と言うより、単純な興味なんだけど。
Cでこんなコード書いて
(Hello World!!が横に流れ続けて下でマークがクルクル回る)
URLﾘﾝｸ(ideone.com)
それをHaskellで書いてみたのね。
URLﾘﾝｸ(ideone.com)
ハイブリッドな言語増えて来たので、他の言語だとどう書くのかなって。
出来れば破壊的なのと、関数型っぽく非破壊的なのと見てみたい。
(ミュータブル版とイミュータブル版)
610:デフォルトの名無しさん
18/11/19 10:29:45.48 /4Aoxd3M.net
>>592
何をするのか網ちょい詳しく
611:デフォルトの名無しさん
18/11/19 11:00:22.26 X6/A5UND.net
>>593
精一杯考えて説明したつもりなので、Cのコードコンパイルして実際にコマンドで動かしてもらえれば。
それと同じ動きになるコードを書いて欲しいと言うことです。
(出来れば初期化以外の変数代入有りと無しで)
612:デフォルトの名無しさん
18/11/19 23:48:36.76 S7M28HrM.net
>>580 rust
URLﾘﾝｸ(ideone.com)
>>580 ruby
URLﾘﾝｸ(ideone.com)
613:デフォルトの名無しさん
18/11/20 00:53:04.42 yKairBEQ.net
>>580
python 3
for x in ["6F 64 61 69","E3 81 8A E9 A1 8C","C2 A9 F0 9F 8D 94 E9 A6 99 41"]:
__print(" ".join(['U+{:04X}'.format(ord(y)) for y in bytes.fromhex(x).decode("utf-8")]))
->
U+006F U+0064 U+0061 U+0069
U+304A U+984C
U+00A9 U+1F354 U+9999 U+0041
614:デフォルトの名無しさん
18/11/20 01:11:13.89 avg9qTbR.net
>>588
utf-8がデフォルトだから引数要らないよ
615:587
18/11/20 02:29:27.79 lQrB+xRm.net
>>580
C
全て自分で変換
URLﾘﾝｸ(paiza.io)
616:デフォルトの名無しさん
18/11/20 02:34:35.37 yKairBEQ.net
>>541
python 3
URLﾘﾝｸ(ideone.com)
617:デフォルトの名無しさん
18/11/20 11:19:51.35 XC6mINx9.net
>>580 Ruby 仕様をそのまま。ただし冗長性のチェックだけはしていない
def divide_prefix(byte)
raise 'invalid byte' if byte & 0xF8 == 0xF8
prefix_len = (1..8).find{|i| (byte >> 8 - i) & 1 == 0}
prefix = (1
618: << prefix_len - 1) - 1 << 1 {prefix: prefix, body: byte - (prefix << 8 - prefix_len)} end def utf8_codepoints(bytes) ary = bytes.map{|e| divide_prefix(e)} leading_bytes = ary.select{|dc| dc[:prefix] != 0x02} leading_bytes.map do |lb| utf8_char = ary.shift(lb[:prefix] == 0 ? 1 : lb[:prefix].bit_length - 1) raise 'invalid sequence' if utf8_char[1..-1]&.any?{|dc| dc[:prefix] != 0x02} utf8_char.reverse_each.with_index.map{|dc, i| dc[:body] << 6 * i}.sum end end [ '6F 64 61 69', 'E3 81 8A E9 A1 8C', 'C2 A9 F0 9F 8D 94 E9 A6 99 41' ].each{|str| puts utf8_codepoints(str.split.map(&:hex)).map{|e| 'U+%04X' % e}.join(' ')} # => U+006F U+0064 U+0061 U+0069 U+304A U+984C U+00A9 U+1F354 U+9999 U+0041
619:デフォルトの名無しさん
18/11/20 13:23:53.49 FaN+D89v.net
>>592 Ruby ターミナル上で10秒間 <marquee>Hello, world</marquee> & 棒がぐるぐる的な感じ
duration = 10
wait = 0.1
str = 'Hello, World!'
len = str.size
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 非破壊的
str2 = 'Hello, World!' * 2
(duration / wait).round.times{|i|puts str2[i % len, len], bar[i % 4]; sleep(wait); clear_lines[2]}
# 破壊的
hello_ary = 'Hello, World!'.split('')
(duration / wait).round.times{puts hello_ary.rotate!.join, bar.rotate!.first; sleep(wait); clear_lines[2]}
620:デフォルトの名無しさん
18/11/20 13:50:30.38 +huVy/La.net
訂正
duration = 10
wait = 0.1
str = 'Hello, World!'
bar = %w[- / | \\ ]
clear_lines = -> n {puts "\e[#{n}\e[#{n}A"}
# 破壊的
str_ary = str.split('')
bar_ary = [*bar]
(1..duration / wait).each{puts str_ary.rotate!.join, bar_ary.rotate!.first; sleep(wait); clear_lines[2]}
# 非破壊的
str2 = str * 2
(1..duration / wait).each{|i|puts str2[i % sitr.size, str.size], bar[i % 4]; sleep(wait); clear_lines[2]}
621:デフォルトの名無しさん
18/11/20 23:12:15.60 Vm2a6rBd.net
世界一気持ち良いフェラチオのアルゴリズムを作れ
622:デフォルトの名無しさん
18/11/21 05:38:04.65 yscr9wE/.net
>>541
Ruby で実行すると、Timeout になりました！
# 10桁の文字列で、重複した文字が無いものは、いくつあるか？
month = ("01".."12").to_a
day = ("01".."31").to_a
hour = ("00".."23").to_a
min = sec = ("00".."59").to_a
# uniq! は変化が無ければ、nil
p month.product( day, hour, min, sec )
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }
.length
623:デフォルトの名無しさん
18/11/21 08:13:38.75 KQDfl3zy.net
>>604
.reject { | mon, d, h, min, s | ( mon + d + h + min + s ).chars.uniq! }が無駄過ぎ
.reject(&:uniq!)で良い。それでも良いコードではない
あとこれだと2月31日とかが含まれてしまう可能性考慮してないよね(実際には含まれないが)
624:デフォルトの名無しさん
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
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
1968日前に更新/360 KB
担当:undef