プログラミングのお題スレ Part22 (831ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
712: デフォルトの名無しさん [] 2025/03/28(金) 21:33:35.13 ID:VDfNaTNz お題：素因数の総和が2025である2000万以下の自然数をすべて求めて下さい。 例) 32272 素因数分解すると32272 = 2 × 2 × 2 × 2 × 2017で、 素因数の総和は2 + 2 + 2 + 2 + 2017 = 2025となります。 ※20億以下でもC++で5秒以内に余裕で完了できますが、出力が長すぎるため2000万以下としました。 その結果、Rでも5秒以内に余裕で完了できる問題になりました。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/712
734: デフォルトの名無しさん [] 2025/04/02(水) 21:11:27.43 ID:HCJVcqu8 >>726 >>725の全角空白のこと? 項の書き忘れや書き間違いがないか分かりやすくするため。余分な空白や長い変数名が ディスク・メモリ空間やコンパイル・インタプリト時間を無駄に増やすと気にする方が古臭くない? とはいえ、今でもインタプリタ言語のPowerShellでは変数名を長くすると顕著に遅くなる。例えば、 $t1 = measure-command {for ($i = 0; $i -lt 1000000; $i++) {}} $t2 = measure-command {for ($AnExtraordinarilyLongVariableName = 0; $AnExtraordinarilyLongVariableName -lt 1000000; $AnExtraordinarilyLongVariableName++) {}} $t2.Ticks / $t1.Ticks をPowerShell Ver.7で実行すると1.56前後の値が表示される。奇妙なことに、かなり古いVer.2では1前後の値になる。 実時間ではVer.7の$t2とVer.2の$t2が同程度なので、Ver.7では短い変数名での最適化が施されているということか。 それはさておき、>>712を解く人はいませんか? http://mevius.5ch.net/test/read.cgi/tech/1691038333/734
738: デフォルトの名無しさん [sage] 2025/04/08(火) 23:28:40.30 ID:OzdBhfzQ >>712 Rust fn solve(n: usize, limit: usize) -> Vec<usize> { let mut answer = Vec::new(); let mut pnt = generate_primes(n).iter().skip(1).rev().map(|&p| (p, 0, 0)).collect::<Vec<_>>(); let (mut ci, mut cn, mut ct) = (0, n, 1_usize); 'advance: loop { pnt[ci..].iter_mut().for_each(|(_p, n, t)| (*n, *t) = (cn, ct)); if cn & 1 == 0 && ct.leading_zeros() >= (cn >> 1) as u32 { ct <<= cn >> 1; if ct <= limit { answer.push(ct as usize); } } for (i, (p, n, t)) in pnt.iter_mut().enumerate().rev() { if *n < *p { continue; } *n -= *p; *t *= *p; if *t > limit { continue; } if *n == 1 { continue; } if *n == 0 { answer.push(*t as usize); continue; } (ci, cn, ct) = (i, *n, *t); continue 'advance; }; break; } answer.sort(); answer } http://mevius.5ch.net/test/read.cgi/tech/1691038333/738
753: デフォルトの名無しさん [sage] 2025/04/12(土) 09:11:24.51 ID:xiQsTIG2 >>712 @Wolfram https://ideone.com/4xyb1s http://mevius.5ch.net/test/read.cgi/tech/1691038333/753
756: 753 [sage] 2025/04/13(日) 11:09:12.37 ID:vq5HB/06 >>712 初Rust https://ideone.com/aaj5D8 http://mevius.5ch.net/test/read.cgi/tech/1691038333/756
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.054s