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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

218: デフォルトの名無しさん [] 2024/02/04(日) 18:32:39.04 ID:fS5H2fbQ >>206 >>215をPowerShellに移植 $in = 　　"a1=a2", "b1=b2", "b3=b2", "c1=c2", "e1=e2", "a3=a4", "c3=c4", "e1=e3", 　　"a2=a4", "c3=c1", "b3=a4", "c2=d1", "a4=a5", "d2=c1", "b4=b3", "d3=c3" $in -split "=" |% {$h = @{}; $n = 0} {if (!$h[$_]) {$h[$_] = $n++}} $eq = $in |% {, $h[$_ -split "="]} $g = 1..$n do { 　　$changed = $false 　　$eq |% { 　　　　$i, $j = $_ 　　　　switch ($g[$i] - $g[$j]) { 　　　　　　{$_ -gt 0} {$g[$i] = $g[$j]; $changed = $true} 　　　　　　{$_ -lt 0} {$g[$j] = $g[$i]; $changed = $true} 　　　　} 　　} } while ($changed) $h.keys | sort {$h[$_]} | group {$g[$h[$_]]} |% {"[$($_.group -join ", ")]"} -- 実行結果 -- [a1, a2, b1, b2, b3, a3, a4, a5, b4] [c1, c2, c3, c4, d1, d2, d3] [e1, e2, e3] http://mevius.5ch.net/test/read.cgi/tech/1691038333/218

219: デフォルトの名無しさん [] 2024/02/04(日) 19:02:37.59 ID:fS5H2fbQ >>218の5行目の if (!$h[$_]) を if ($h[$_] -eq $null) に訂正 http://mevius.5ch.net/test/read.cgi/tech/1691038333/219

224: デフォルトの名無しさん [] 2024/02/05(月) 23:26:45.85 ID:YjqgZClx >>206 >>218-219をC#化 https://ideone.com/qWA5TB http://mevius.5ch.net/test/read.cgi/tech/1691038333/224

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.024s