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

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

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

---

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

---

215: デフォルトの名無しさん [] 2024/02/03(土) 10:26:51.46 ID:kmOXhk/V >>206 >>213 Rでもっと短く書けた。 https://ideone.com/vmtYAJ http://mevius.5ch.net/test/read.cgi/tech/1691038333/215

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

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.026s