プログラミングのお題スレ Part22 (858ﾚｽ)

プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

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 → http://mevius.5ch.net/test/read.cgi/tech/1691038333/643

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)"}) } http://mevius.5ch.net/test/read.cgi/tech/1691038333/644

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.033s