プログラミングのお題スレ Part22

**デフォルトの名無しさん** · 2023/08/03(木) 13:52:13.20

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　お題：お題本文

2 名前：デフォルトの名無しさん
　>>1 使用言語
　回答本文
　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part21
https://mevius.5ch.net/test/read.cgi/tech/1668333636/

**デフォルトの名無しさん** · 2025/02/11(火) 20:45:09.89

>>561
R
https://ideone.com/3beF1j

C++
https://ideone.com/A8hp2f

それぞれ3通りの方法で、大きなデータでの実行時間を比較

**デフォルトの名無しさん** · 2025/02/11(火) 23:21:03.54

数列が入力されるので
整数の数列だけでなく浮動小数点数の数列にも対応してくださいね

ニ番目に小さい数がない時
例えば同じ数しか存在しない時や数列の長さが1の時には
解がないことを返してくださいね
例えばその時にMAX値が返ってきたら失格ですよ

**565** · 2025/02/11(火) 23:28:05.14

>>561 ocaml
https://ideone.com/aV59Yd

>>561 java
https://ideone.com/PdgusX

9 · 2025/02/11(火) 23:36:31.53

先に言えよって、感じｗ

**デフォルトの名無しさん** · 2025/02/11(火) 23:48:25.56

>>571は出題者ではないよ
出題者として申し上げるなら>>571は観点がダサい

**デフォルトの名無しさん** · 2025/02/11(火) 23:50:12.69

小数対応はともかく
max値を返してしまう人はプログラマ失格かな
あとsortを使ってしまう人は計算量を知らない初心者

**デフォルトの名無しさん** · 2025/02/11(火) 23:53:59.73

そういうこだわりはアスペルガーにしか思えないな、どうでも良いじゃないですかそんなこと

**デフォルトの名無しさん** · 2025/02/11(火) 23:56:29.96

こだわりは自分の胸のうちに留めていただきたい、他人に求めたら回答の幅を狭めるだけ、多様性のある回答こそ美しい

**デフォルトの名無しさん** · 2025/02/11(火) 23:57:23.71

>>576
多くの人はちゃんとnilとかemptyとかNoneなどを返しているよね
プログラマならそこだけは守らなければならない必須事項

**デフォルトの名無しさん** · 2025/02/11(火) 23:59:56.87

だからそういう、こうじゃないとダメだという態度がアスペルガー仕草なんだってばよ、君が思うのは勝手だが他人に求めるものじゃない

**デフォルトの名無しさん** · 2025/02/12(水) 00:01:10.34

プログラミングはもっと自由なものなんだよ、思ったとおりにかけば良い

9 · 2025/02/12(水) 00:03:23.15

そういう条件は回答を見て思いついた後から言わず先に書くべきでは？
そうでなければ、与えられた短い文とテストデータから、
処理対象データの範囲や要求仕様を読み手が色々解釈しても仕方ないだろ。
後からいろいろ言って批判なんてでもってのほかだと思うが。

9 · 2025/02/12(水) 00:05:30.21

出来たもの見て実はこういう条件がありましたってケチつけるのはクソクライアントと一緒だな

**デフォルトの名無しさん** · 2025/02/12(水) 00:13:52.34

ざっと見たけどmax()を返してるのはC++の人だけで他は皆まともだ
普段からまともなコード書いてるかどうかバレてしまうから自由が面白い

**デフォルトの名無しさん** · 2025/02/12(水) 00:18:10.68

好きにしたら良いんやで吉田松陰もそんなこと言ってた気がする

**デフォルトの名無しさん** · 2025/02/12(水) 00:20:24.72

まともとかバレるとかそういう当て擦りの嫌味ったらしい言い方どこで身につけてきたのあんた、母ちゃんは悲しいよ

**デフォルトの名無しさん** · 2025/02/12(水) 00:22:24.96

>>583
関数がINT_MAXを返すのはまともなコードだろ。2番目に小さい数はINT_MAXではありえないから、
返り値がINT_MAXの場合は「なし」と表示すれば良いだけ。

9 · 2025/02/12(水) 00:28:30.94

「データが二個未満の場合にはnilを返す。」とか書いとくべき。
でもそういう細かい条件をちまちま指定した窮屈な課題は、つまんなくて回答を造る意欲が減るんだよな。

シンプルで純な課題に対してどういうエレガントでエッセンシャルな回答があるか考えるのが楽しいのであって、
細かいいろんな条件を守る周辺コードで固めるような作業はつまんないから趣味の世界ではやりたくないな

**デフォルトの名無しさん** · 2025/02/12(水) 00:31:16.47

普段はプログラム載せるだけだけど、みんな意外と饒舌なんだなw

9 · 2025/02/12(水) 00:33:57.88

ここはある意味、回答のｺｰﾄﾞでもって語るスレだからな

**デフォルトの名無しさん** · 2025/02/12(水) 00:35:35.77

お題にそんな指定ないのに
みんなnilなどを返してるからこのスレの住人たちはセンスいいな

**デフォルトの名無しさん** · 2025/02/12(水) 19:12:16.26

>>561 lisp (sbcl)
https://ideone.com/Bct7bC

>>561 lisp (clisp)
https://ideone.com/yqfmzh

clispだと何故かsort版の方が速い

**デフォルトの名無しさん** · 2025/02/12(水) 20:45:54.96

>>561 ruby
https://ideone.com/svMSSw

>>561 sqlite
https://ideone.com/W02Q5r

**デフォルトの名無しさん** · 2025/02/12(水) 22:44:39.40

>>561, 571
>>570のC++のf3をint型の最大値を含むデータにも対応させた。

C#にはint?型があるのですっきり書けるが、
https://ideone.com/oRhDL1

C++ではまあまあすっきり書くにはintへのポインタを返すしかないか。
https://ideone.com/xYnTSD
(該当値が複数の位置に存在する場合にそれらのうちのどれへのポインタを返すかについては
こだわらないものとする)

**デフォルトの名無しさん** · 2025/02/13(木) 12:04:43.08

お題：ランダムな数列から任意の並んでいる二つの数同士を足して、その二つの数の間に挿入せよ。
その新しい数が一桁ならそのまま挿入し二桁なら桁同士を足してその二桁の間に挿入せよ。

< 123456789 3 4
> 1237456789

(3+4=7)

< 123456789 6 7
> 123456143789

(6+7=13 1+3=4)

**デフォルトの名無しさん** · 2025/02/13(木) 12:31:31.25

問題文の記述が下手かよ

**デフォルトの名無しさん** · 2025/02/13(木) 13:27:16.37

>>594 ruby
a=$stdin.gets.chomp.split(" ")
b=a[1].to_i+a[2].to_i
c=(b<9 ? a[1]+b.to_s+a[2] : a[1]+"#{b/10}#{b/10+b%10}#{b%10}"+a[2])
puts a[0].gsub(a[1]+a[2],c)

9 · 2025/02/13(木) 17:35:13.67

>>594　Perl5、見易くするためインデントは全角スペースに置換してあります

for (<DATA>) {
　($s, $a, $b) = split;
　$c = $a + $b;
　$c = $1 . ($1 + $2) . $2 if $c =~ /(\d)(\d)/;
　$s =~ s/$a$b/$a$c$b/g;
　print "$s\n";
}
__DATA__
123456789 3 4
123456789 6 7
123456789 8 9
3141592653589793238462643383279502884197169399375105820974944 9 7

実行結果
~ $ perl 22_594.pl
1237456789
123456143789
123456781879
3141592653589176793238462643383279502884191767169399375105820917674944

**デフォルトの名無しさん** · 2025/02/13(木) 20:12:01.16

>>594
題意が以下の通りだとして、PowerShell (エラーチェックは省略)

　自然数x, i, j (i + 1 = jを満たす) が与えられる。xの上i桁目の数字をx[i]で表す。
　x[i]とx[j]の和をyとして、

　・yが1桁のとき、yをx[i]とx[j]の間に挿入せよ
　・yが2桁のとき、y[1]とy[2]の和をy[1]とy[2]の間に挿入してから、yをx[i]とx[j]の間に挿入せよ

function f($x, $i, $j)
{
　　$s = [string]$x
　　$y = [int][string]$s[$i - 1] + [int][string]$s[$j - 1]
　　if ($y -lt 10) {
　　　　$s.insert($i, $y)
　　} else {
　　　　$s.insert($i, 11 * $y)
　　}
}

(123456789, 3, 4), (123456789, 6, 7) |% {
　　"< $($_[0]) $($_[1]) $($_[2])"
　　"> $(f $_[0] $_[1] $_[2])", ""
}

[実行結果]
< 123456789 3 4
> 1237456789

< 123456789 6 7
> 123456143789

9 · 2025/02/13(木) 20:24:48.49

数学屋さんかいなｗ
i,jの「3 4」とか「６ 7」は桁の位置をしていしているのではなく数値列の中にある数字を指定するんジャマイカ
とオレは解釈したが

**デフォルトの名無しさん** · 2025/02/13(木) 20:34:25.67

>>599
そうか。だとすれば、

function f($x, $i, $j)
{
　　$s = [string]$x
　　$y = $i + $j
　　if ($y -ge 10) {$y *= 11}
　　$s -replace "$i$j", "$i$y$j"
}

(123456789, 3, 4), (123456789, 6, 7), (123456789, 8, 9), ("3141592653589793238462643383279502884197169399375105820974944", 9, 7) |% {
　　"< $($_[0]) $($_[1]) $($_[2])"
　　"> $(f $_[0] $_[1] $_[2])", ""
}

[実行結果]
< 123456789 3 4
> 1237456789

< 123456789 6 7
> 123456143789

< 123456789 8 9
> 123456781879

< 3141592653589793238462643383279502884197169399375105820974944 9 7
> 3141592653589176793238462643383279502884191767169399375105820917674944

**デフォルトの名無しさん** · 2025/02/13(木) 20:45:01.39

>>561 c
https://ideone.com/ZyWoVM

>>594 ruby
https://ideone.com/gp9Fvp

9 · 2025/02/13(木) 20:52:32.26

なんでこの人はコーデイングするのがこんなに早いんだろう…

**デフォルトの名無しさん** · 2025/02/13(木) 22:58:07.29

>>594　Rust

fn f(input: &str, a: u32, b:u32) -> String {
let src = format!("{a}{b}");
let dst = if a + b < 10 {
format!("{a}{x}{b}", x = a + b)
} else {
format!("{a}{x}{y}{z}{b}", x = 1, y = 1 + a + b - 10, z = a + b - 10)
};
use itertools::Itertools;
input.split(&src).join(&dst)
}

fn main() {
assert_eq!(f("123456789", 3, 4), "1237456789");
assert_eq!(f("123456789", 6, 7), "123456143789");
assert_eq!(f("3141592653589793238462643383279502884197169399375105820974944", 9, 7),
"3141592653589176793238462643383279502884191767169399375105820917674944");
}

**デフォルトの名無しさん** · 2025/02/13(木) 23:47:12.83

>>561　Rust

fn second_smallest<T: Copy + Ord>(input: &[T]) -> Option<T> {
use std::cmp::Ordering::{Equal, Greater, Less};
input
.iter()
.copied()
.fold(None, |state, t| match state {
Some((_t0, Some(t1))) if t >= t1 => state,
Some((t0, _)) => match Ord::cmp(&t, &t0) {
Less => Some((t, Some(t0))),
Equal => state,
Greater => Some((t0, Some(t))),
},
None => Some((t, None)),
})
.and_then(|(_t0, t1option)| t1option)
}

fn main() {
assert_eq!(second_smallest(&[4, 5, 1, 7, 1, 2, 8, 9, 2, 7, 1]), Some(2));
assert_eq!(second_smallest(&[1, 1, 1]), None);
assert_eq!(second_smallest(&[] as &[i32]), None);
}

**デフォルトの名無しさん** · 2025/02/14(金) 17:55:06.91

わけがわからん
アセンブラじゃあるまいし

**デフォルトの名無しさん** · 2025/02/14(金) 18:42:18.21

わからないのはどのへんなんだろう？
・型がジェネリックになっている点
・代入文がないなど関数型プログラミングになっている点
・パターンマッチングが使われている点
いずれも最近は対応している言語が増えてるような

**デフォルトの名無しさん** · 2025/02/14(金) 23:21:45.00

可読性の良さから高階関数を使ったメソッドチェーンが一般的になってきたね
マイクロソフトがC#などでLINQ広めたのがきっかけで各言語もその有用性から導入するようになった

**デフォルトの名無しさん** · 2025/02/14(金) 23:42:29.57

お題：ランダムな英文字列が与えられる。隣り合う英文字が同じ大文字だった場合、その間にその大文字の小文字を挿入せよ

In < abcDDefGG
Out > abcDdDefGgG

**デフォルトの名無しさん** · 2025/02/15(土) 00:16:29.67

>>608 ruby
while 1
s=DATA.gets.chomp
exit if s==""
t=s.gsub(%r|([A-Z])\1|){$1+$1.downcase+$1}
puts "IN < #{s}\nOUT > #{t}"
end
__END__
abcDDefGG

**デフォルトの名無しさん** · 2025/02/15(土) 00:16:34.18

>>594 dart
https://ideone.com/uQxzo1

>>608 ruby
https://ideone.com/pwoRRH

**デフォルトの名無しさん** · 2025/02/15(土) 00:28:45.42

>>606
正規表現みたい非人間的な書式はやめようぜっての

**デフォルトの名無しさん** · 2025/02/15(土) 00:39:27.81

>>608
PowerShell

function f($s)
{
　　-join $(
　　　　foreach ($i in 0..($s.length - 2)) {
　　　　　　$s[$i]
　　　　　　if ($s[$i] -ne $s[$i + 1]) {continue}
　　　　　　if ($s[$i] -lt [char]"A" -or $s[$i] -gt [char]"Z") {continue}
　　　　　　([string]$s[$i]).ToLower()
　　　　}
　　　　$s[$i + 1]
　　)
}

"abcDDefGG", "abcDDDfGG" |% {"$_ → $(f $_)"}

[実行結果]
abcDDefGG → abcDdDefGgG
abcDDDfGG → abcDdDdDfGgG

**デフォルトの名無しさん** · 2025/02/15(土) 01:01:01.24

>>608　Rust

fn f(input: &str) -> String {
　let mut output = String::new();
　let mut pre_uppercase = None;
　for char in input.chars() {
　　if Some(char) == pre_uppercase {
　　　output.push(char.to_ascii_lowercase());
　　}
　　output.push(char);
　　pre_uppercase = char.is_ascii_uppercase().then_some(char);
　}
　output
}

fn main() {
　assert_eq!(f("abcDDefGG"), "abcDdDefGgG");
　assert_eq!(f("abcDDDfGG"), "abcDdDdDfGgG");
}

**デフォルトの名無しさん** · 2025/02/15(土) 09:21:24.60

>>608 ruby
https://ideone.com/nHcphN

>>608 dart
https://ideone.com/NxwW8Y

**614** · 2025/02/15(土) 10:02:25.10

>>608 dart
https://ideone.com/2E5Rxy

9 · 2025/02/15(土) 10:36:35.12

>>608 Perl5、肯定先読みと置換の小文字変換

s/([A-Z])(?=\1)/\1\l\1/g, print for <DATA>;
__DATA__
abcDDefGG
abcDDDefGGG

実行結果
C:\Home>perl 22_608_ins_l.pl
abcDdDefGgG
abcDdDdDefGgGgG

9 · 2025/02/15(土) 10:39:20.52

>>611
お断り～します～♪
　　　ハハ
　　　(ﾟωﾟ)
　((⊂ﾉ　ﾉつ))
　　 (＿⌒ヽ
εﾆ≡　)ﾉ`Ｊ

**デフォルトの名無しさん** · 2025/02/15(土) 10:40:34.16

>>594 >>608 lisp
https://ideone.com/W5gGfD

**615** · 2025/02/15(土) 13:20:38.24

>>608 java
https://ideone.com/YfufZz

>>616
＿人人人人人人人人人人人人＿
＞　置換の小文字変換！？　＜
￣Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^￣

勉強になりました

**デフォルトの名無しさん** · 2025/02/15(土) 21:05:44.70

>>612は文字列長が1文字の場合にバクがあった。PowerShellの0..-1は空(から)ではなく0, -1になるのが
原因 (Rの0:-1も同様)。修正するには、fの最初に if ($s.length -lt 2) {return $s} を挿入する。

**デフォルトの名無しさん** · 2025/02/15(土) 21:06:37.89

>>561
C++
https://ideone.com/bQBKIM
C#のヌル許容型と同じ挙動のnullable型を自作し、>>593のC#のmin2関数をジェネリック化、
ポインタ参照化して移植した。

https://ideone.com/p2LNC9
593のC++のmin2関数と実行速度を比較する¹と30%ほど遅い。文字列型や可変長数値型と
違って最大値が存在する固定長数値型では、それを利用するf593の方が良い。

──
¹ Microsoft C++では100回繰り返しテストが最適化され1回しか実行されない

**デフォルトの名無しさん** · 2025/02/15(土) 21:52:48.39

>>621
最大値をundefined代わりに使ってはいけないと指摘があったのにまだ使っているのかいな
そのコードで入力数列がこうだった場合
vector<int> a = {IntMax - 1, IntMax};
2番目に小さい数として正解のintMaxを返さなければならない

**デフォルトの名無しさん** · 2025/02/15(土) 22:00:12.34

>>622
>>593のC++プログラムの実行結果を参照。入力数列にINT_MAXが含まれる場合でも問題ない。

**デフォルトの名無しさん** · 2025/02/15(土) 22:09:09.66

>>623
それはm1とm2を間接にポインタで持つために遅くなっているf593()
m1とm2を直接に整数で持つため速いf3()はIntMaxに対応できていない

**デフォルトの名無しさん** · 2025/02/15(土) 22:24:28.09

>>624
>>621の速度比較テストに>>570のf3も追加
https://ideone.com/scnfdu

ポインタで持つf593との比で、整数で持つf570は6%速いだけ。一方、null許容型のf621は29%も遅い。
最大値が存在する型ではそれを利用する方が良いという結論に変わりはない。

**デフォルトの名無しさん** · 2025/02/15(土) 22:29:41.23

まあ、同じ値の要素が大量に存在する入力データではf570は遅くなるが、平均的な速度はf570の方が速い。

**デフォルトの名無しさん** · 2025/02/15(土) 22:31:16.05

>>626はf570じゃなくてf593だった。

**デフォルトの名無しさん** · 2025/02/15(土) 22:42:01.35

f593でローカル変数へのポインタを返し得るのは如何かと

**デフォルトの名無しさん** · 2025/02/15(土) 23:34:59.77

>>628
返しえないでしょ。

**デフォルトの名無しさん** · 2025/02/15(土) 23:46:12.83

>>625
まずnullableのコードがおかしい
例えばoverload(op)のこれ

if (y.isNull) return false; \
return x op y.value; \

Nullだとfals eとなり
opの計算結果次第でもfal seとなり
両者を区別できない

**デフォルトの名無しさん** · 2025/02/15(土) 23:47:32.80

>>625
あとvector扱うコードは倫理的に際どいかな
長さ0でないことを調べずに
いきなりint *m1 = &a[0], m2 = &y;
今回は長さ0の時に*m1をアクセスしないから論理的にギリセーフだけど際どい

そのへんのトリッキーさも含めて
(もしあれば)最小値も返す場合
(もしあれば)3番目の最小値も返す場合など
このIntMax方式は破綻すると思う

**デフォルトの名無しさん** · 2025/02/15(土) 23:52:31.08

>>630
>>621に書いた通り、C#のヌル許容型T? (Nullable<T>のエイリアス) の挙動に従っただけだから。
文句があるならMicrosoftに言ってくれ。

9 · 2025/02/16(日) 06:28:07.79

qa0m30Tb の回答はどれよ？

**デフォルトの名無しさん** · 2025/02/16(日) 08:09:49.66

いるよねえ他人の回答に文句だけつけて自分では回答しないやつ

**デフォルトの名無しさん** · 2025/02/16(日) 08:16:54.29

他人の回答が間違いとなるようにお題を解釈するのは知的なことではないよバカの所業だよ

**デフォルトの名無しさん** · 2025/02/16(日) 08:20:29.71

そんなことより>>616のワンライナーがカッコよくてほれぼれする

**デフォルトの名無しさん** · 2025/02/16(日) 10:58:48.51

帰ったと思ったらまたやってんのｗ

**デフォルトの名無しさん** · 2025/02/16(日) 15:14:38.18

コンパイラ警告無視するのが知的な事だと思ってそうだな

9 · 2025/02/16(日) 15:45:59.98

回答のｺｰﾄﾞでもって語ってほしいなぁ

**デフォルトの名無しさん** · 2025/02/17(月) 13:08:08.60

お題：ランダムな数列が与えられる。隣り合う数字が偶数同士の時、あいだに0を。奇数同士の時は1を挿入し、それ以外は何も挿入しない

In < 123346
Out > 12313406

**デフォルトの名無しさん** · 2025/02/17(月) 13:47:54.59

>>640 ruby
DATA.readlines(chomp:1).map{|e|
a=e.split("").map{|f| f.to_i}
(0..a.size-2).each{|n|
a[n]=a[n]*10 if (a[n]%2==0 && a[n+1]%2==0)
a[n+1]=a[n+1]+10 if (a[n]%2==1 && a[n+1]%2==1)}
puts "IN < #{e}\nOUT > #{a.map{|f| f.to_s}.join}"}
__END__
123346

**デフォルトの名無しさん** · 2025/02/17(月) 20:02:39.61

>>640 lisp
https://ideone.com/DV9DeR

**デフォルトの名無しさん** · 2025/02/17(月) 20:47:46.22

>>640
PowerShell (一般的な文字コードを想定)

function f([string]$s)
{
　　$rprev = 2
　　-join ([char[]]$s |% {
　　　　$r = $_ % 2
　　　　if ($r -eq $rprev) {$r}
　　　　$rprev = $r
　　　　$_
　　})
}

123346, 12333468, 1, "" |% {"$_ → $(f $_)"}

[実行結果]
123346 → 12313406
12333468 → 123131340608
1 → 1
→

**デフォルトの名無しさん** · 2025/02/17(月) 20:48:16.10

正規表現置換なら、

function f($s)
{
　　$s -replace "[02468](?=[02468])", "$&0" -replace "[13579](?=[13579])", "$&1"
}

1回で済ますなら、

function f($s)
{
　　[RegEx]::Replace($s, "[02468](?=[02468])|[13579](?=[13579])", {$_ = $args[0].value[0]; "$_$($_ % 2)"})
}

**デフォルトの名無しさん** · 2025/02/17(月) 20:58:11.16

>>640　Rust

fn f(input: &[u8]) -> Vec<u8> {
　input.windows(2).fold(Vec::new(), |mut vec, w| {
　　if vec.is_empty() {
　　　vec.push(w[0]);
　　}
　　if (w[0] ^ w[1]) & 1 == 0 {
　　　vec.push(w[0] & 1 + b'0');
　　}
　　vec.push(w[1]);
　　vec
　})
}

fn main() {
　assert_eq!(f(b"123346"), b"12313406");
　assert_eq!(f(b"12333468"), b"123131340608");
}

**デフォルトの名無しさん** · 2025/02/18(火) 10:32:01.38

>>645
そうやればいいのか、なるほどね

**デフォルトの名無しさん** · 2025/02/18(火) 17:51:16.96

Vecのnewやpushなど普通にcollectに任せる手もあるね
条件付き挿入は汎用にOptionで取捨を示してflat_mapとflattenでも可能
前値など状態を保ちつつ1つにまとめるならfoldでイテレータに流すならscan
一例としてこんな感じ

fn f(input: &[u8]) -> Vec<u8> {
　input
　　.iter()
　　.scan(None, |pre, &x| {
　　　Some([
　　　　pre.replace(x & 1)
　　　　　.and_then(|p| (p == x & 1).then_some(p + b'0')),
　　　　Some(x),
　　　])
　　})
　　.flat_map(|list| list.into_iter().flatten())
　　.collect()
}

>>640
Rust

**デフォルトの名無しさん** · 2025/02/19(水) 21:30:14.30

>>640
>>643-644の3つのfを上から順にf1, f2, f3とし、長い文字列を引数として呼び出したときの
実行時間を比較すると、

$s = -join (1..10000)
$t = 1..3 |% {(iex "measure-command {f$_ $s}").ticks}
$tmin = ($t | measure -min).minimum
1..3 |% {"f$_`: {0:0.00}倍" -f ($t[$_ - 1] / $tmin)}

[実行結果の一例]
f1: 34.78倍
f2: 1.00倍
f3: 14.93倍

大差でf2 < f3 < f1となった。インタプリタ言語のコード実行は遅いので、処理を自分で
書くほど遅くなり、ライブラリ関数等に丸投げすれば速くなることによる。

https://ideone.com/GVewWL
コンパイラ言語のC#で同様の比較をすると (PowerShellより速いので文字列を長くし、
f1の改良版としてStringBuilder使用のf4を追加した)、当然f4< f1 < f2 < f3になった。

**デフォルトの名無しさん** · 2025/02/19(水) 21:58:22.55

>>647
関数型でタブーの可変な変数宣言してもよいなら、もっと簡単になるね。

fn f(input: &[u8]) -> Vec<u8> {
　let mut pre = None;
　input
　　.iter()
　　.flat_map(|&x| {
　　　[
　　　　pre.replace(x & 1)
　　　　　.and_then(|p| (p == x & 1).then_some(p + b'0')),
　　　　Some(x),
　　　]
　　　.into_iter()
　　　.flatten()
　　})
　　.collect()
}

**デフォルトの名無しさん** · 2025/02/20(木) 23:25:43.81

mutableの使用は必要最小限が望ましいが
mutableを使えない言語は実用的ではない

警備員[Lv.21] · 2025/02/22(土) 15:11:12.54

>>640
Perl5
https://paiza.io/projects/gW_sI1_VqokddmYSJ6Lj2A

警備員[Lv.21] · 2025/02/22(土) 15:42:54.65

>>640
Kotlin
https://paiza.io/projects/mAEXhhFdJiHVQWYtHvIP-g

警備員[Lv.21] · 2025/02/22(土) 15:53:04.03

>>640
C
https://paiza.io/projects/7L9vpqOvFcbZfv9vO5GPvA

**デフォルトの名無しさん** · 2025/02/22(土) 23:33:07.08

>>640
Haskell
https://ideone.com/U3SvTZ

警備員[Lv.21] · 2025/02/24(月) 18:11:14.44

>>608

>>651とかとアルゴリズムはほぼ同じ。これといった捻りはない。
よく分からないが5chに書き込みがブロックされたのでURLのコロンまでは削った。

Perl
//paiza.io/projects/zAqms-VVEWIMhcgr8AV6Pw
Kotlin
//paiza.io/projects/iu8mTSyKsxqWx_T51Wpj4Q
C
//paiza.io/projects/bDkj3tRF_KmiBL67miRxyA

**デフォルトの名無しさん** · 2025/02/26(水) 21:33:47.93

お題: Python の int.bit_count()

65535 → 16
15 → 4
6 → 2
1 → 1
0 → 0
-1 → 1
-6 → 2
-15 → 4
-65535 → 16

**デフォルトの名無しさん** · 2025/02/26(水) 23:29:03.38

>>656
C++20
https://paiza.io/projects/R-sSq9oCAOmG17wk6c5naw

**デフォルトの名無しさん** · 2025/02/27(木) 00:23:41.10

>>656
Rust

fn bit_count(x: i64) -> usize {
const MAGIC_1: u64 = 0x5555555555555555; // 0101..0101
const MAGIC_2: u64 = 0x3333333333333333; // 0011..0011
const MAGIC_3: u64 = 0x0f0f0f0f0f0f0f0f;
const MAGIC_4: u64 = 0x00ff00ff00ff00ff;
const MAGIC_5: u64 = 0x0000ffff0000ffff;
const MAGIC_6: u64 = 0x00000000ffffffff;

let x = x.unsigned_abs();
let x = (x & MAGIC_1) + ((x >> 1) & MAGIC_1);
let x = (x & MAGIC_2) + ((x >> 2) & MAGIC_2);
let x = (x & MAGIC_3) + ((x >> 4) & MAGIC_3);
let x = (x & MAGIC_4) + ((x >> 8) & MAGIC_4);
let x = (x & MAGIC_5) + ((x >> 16) & MAGIC_5);
let x = (x & MAGIC_6) + ((x >> 32) & MAGIC_6);
x as usize
}

fn main() {
assert_eq!(bit_count(65535), 16);
assert_eq!(bit_count(15), 4);
assert_eq!(bit_count(6), 2);
assert_eq!(bit_count(1), 1);
assert_eq!(bit_count(0), 0);
assert_eq!(bit_count(-1), 1);
assert_eq!(bit_count(-6), 2);
assert_eq!(bit_count(-15), 4);
assert_eq!(bit_count(-65535), 16);
}

**デフォルトの名無しさん** · 2025/02/27(木) 08:26:19.30

>>656 Rust

trait BitCount {
　fn bit_count(&self) -> usize;
}
impl BitCount for i32 {
　fn bit_count(&self) -> usize {
　　self.unsigned_abs().count_ones() as usize
　}
}
use num::{BigInt, One};
impl BitCount for BigInt {
　fn bit_count(&self) -> usize {
　　self.iter_u64_digits().map(|x| x.count_ones() as usize).sum()
　}
}

fn main() {
　for (input, output) in [(65535, 16), (15, 4), (6, 2), (1, 1), (0, 0), (-1, 1), (-6, 2), (-15, 4), (-65535, 16)] {
　　assert_eq!(input.bit_count(), output);
　}
　assert_eq!(BigInt::from(-1).bit_count(), 1);
　assert_eq!((BigInt::from(2).pow(1_000_000_000) - BigInt::one()).bit_count(), 1_000_000_000);
}

**デフォルトの名無しさん** · 2025/02/28(金) 01:30:55.49

intは処理単位のことなんだけどな
何ビットで表現できるかという意味ではない

9 · 2025/02/28(金) 03:12:43.15

負の場合に表現可能なビット数を配慮しないとPython の int.bit_count()と同じ結果にならないんジャマイカじゃまいか
たぶんPythonの整数がbigintのせいだとおもう
絶対値とってpopcountとかやらないと意外とあれこれ書いてﾌﾟﾁ長めのコードになりそうなおかん

**デフォルトの名無しさん** · 2025/02/28(金) 23:07:16.17

よく見たらみんな絶対値をとったりbigintを使ったりしてるな

**デフォルトの名無しさん** · 2025/03/01(土) 20:18:20.34

>>656
PowerShellのBigIntなら、

$b = @(0)
1..8 |% {$b += $b |% {$_ + 1}}

function bit_count([BigInt]$n)
{
　　($b[[BigInt]::Abs($n).ToByteArray()] | measure -sum).Sum
}

65535, 15, 6, 1, 0, -1, -6, -15, -65535, [BigInt]::Pow(123, 45) |% {
　　"$_ → $(bit_count $_)"
}

[実行結果]
65535 → 16
15 → 4
6 → 2
1 → 1
0 → 0
-1 → 1
-6 → 2
-15 → 4
-65535 → 16
11110408185131956285910790587176451918559153212268021823629073199866111001242743283966127048043 → 159

**デフォルトの名無しさん** · 2025/03/01(土) 20:19:24.06

お題：1からnまでの自然数のビット単位での総排他的論理和1 ⊕ 2 ⊕ 3 ⊕ … ⊕ nを求める
関数を作り、n = 123456789, 12345678901234567890のときの値を表示せよ。

**デフォルトの名無しさん** · 2025/03/01(土) 21:19:28.22

A003815かな

**デフォルトの名無しさん** · 2025/03/01(土) 21:32:49.43

数学の試験で中間式を省いて解答だけ書くタイプw

**デフォルトの名無しさん** · 2025/03/01(土) 23:41:19.76

まあ数列の問題ならOEISを見てみるよな

**デフォルトの名無しさん** · 2025/03/02(日) 01:21:29.93

>> 664 　Rust
fn f(n: u64) -> u64 {
　// f(n) = 1⊕2⊕3⊕...⊕n とすると (2k)⊕(2k+1)=1 であるから 1⊕1=0 より
　// f(4k+1) = (4k+1)⊕(4k)⊕(4k-1)⊕(4k-2)⊕f(4k-3) = f(4(k-1)+1) = ... = f(1) = 1
　// f(4k+3) = (4k+3)⊕(4k+2)⊕f(4k+1) = 0
　// f(4k) = (4k)⊕f(4k-1) = 4k
　// f(4k+2) = (4k+2)⊕f(4k+1) = (4k+2)⊕1 = 4k+3
　match n % 4 {
　　0 => n,
　　1 => 1,
　　2 => n + 1,
　　3 => 0,
　　_ => unreachable!(),
　}
}

fn main() {
　for n in [123456789, 12345678901234567890] {
　　println!("f({n}) = {fn}", fn = f(n));
　}
}
出力
f(123456789) = 1
f(12345678901234567890) = 12345678901234567891

**デフォルトの名無しさん** · 2025/03/11(火) 21:18:30.26

>>656
PowerShellでもPopCountがいつの間にか使えるようになっていた。Version 7.5.0で動作確認。

function bit_count($n)
{
　　[BigInt]::PopCount([BigInt]::Abs($n))
}

65535, 15, 6, 1, 0, -1, -6, -15, -65535, [BigInt]::Pow(123, 45) |% {
　　"$_ → $(bit_count $_)"
}

実行結果は>>663と同じ。

**デフォルトの名無しさん** · 2025/03/13(木) 20:35:03.45

お題：数列が入力される。元の数列に逆順にした数列を減算したときの値を出力せよ

In < 12345
OUt > -41976 (12345 - 54321)