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

[1 デフォルトの名無しさん 2023/08/03(木) 13:52:13.20 ID:/xW45k0z]

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

【出題と回答例】
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/

[643 デフォルトの名無しさん 2025/02/17(月) 20:47:46.22 ID:2enU2rA/]

>>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
→

[644 デフォルトの名無しさん 2025/02/17(月) 20:48:16.10 ID:2enU2rA/]

正規表現置換なら、

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)"})
}