プログラミングのお題スレ Part22 (858ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
714: デフォルトの名無しさん [] 2025/03/28(金) 22:12:15.09 ID:g08AymBh お題 AさんがBさんに惚れてることを A-B と表します 両思いのペアを出力してください 入力 D-L,U-X,U-Y,U-R,Z-B,B-E,B-M,B-N,V-H,V-X,W-F,W-R,R-B,R-W,O-W,O-S,F-A,Q-X,P-E,P-L,X-X,Y-M,Y-C,L-U,L-V,I-X,E-B,H-M,A-S 出力 B,E R,W http://mevius.5ch.net/test/read.cgi/tech/1691038333/714
715: デフォルトの名無しさん [] 2025/03/28(金) 22:28:49.68 ID:VDfNaTNz >>714 PowerShell $s = "D-L,U-X,U-Y,U-R,Z-B,B-E,B-M,B-N,V-H,V-X,W-F,W-R,R-B,R-W,O-W,O-S,F-A,Q-X,P-E,P-L,X-X,Y-M,Y-C,L-U,L-V,I-X,E-B,H-M,A-S" $h = @{} $s -split "," |% { $a, $b = $_ -split "-" $h[$a] += , $b } foreach ($a in $h.keys) { foreach ($b in $h[$a]) { if ($a -lt $b -and $h[$b] -contains $a) {"$a,$b"} } } -- 実行結果 -- B,E R,W http://mevius.5ch.net/test/read.cgi/tech/1691038333/715
716: デフォルトの名無しさん [] 2025/03/28(金) 23:19:47.32 ID:VDfNaTNz >>714 PowerShellでもう少し短く $s = "D-L,U-X,U-Y,U-R,Z-B,B-E,B-M,B-N,V-H,V-X,W-F,W-R,R-B,R-W,O-W,O-S,F-A,Q-X,P-E,P-L,X-X,Y-M,Y-C,L-U,L-V,I-X,E-B,H-M,A-S" $h = @{} $s -split "," |% { $a, $b = $_ -split "-" $i, $t = if ($a -lt $b) {1, "$a,$b"} else {2, "$b,$a"} $h[$t] = $h[$t] -bor $i } $h.keys |? {$h[$_] -eq 3} | sort -- 実行結果 -- B,E R,W http://mevius.5ch.net/test/read.cgi/tech/1691038333/716
717: デフォルトの名無しさん [sage] 2025/03/29(土) 11:51:50.06 ID:UeqVkFR5 >>714 Rust use itertools::Itertools; fn f(input: &str) -> impl Iterator<Item = &str> { input.split(',') .map(|pair| (pair, pair.splitn(2, '-').collect_tuple().unwrap())) .filter(|(_, (a, b))| a < b) .flat_map(|(pair, (a, b))| { input.split(',') .map(|pair| pair.splitn(2, '-').collect_tuple().unwrap()) .filter_map(move |(x, y)| (a == y && b == x).then_some(pair)) }) } fn main() { let input = "D-L,U-X,U-Y,U-R,Z-B,B-E,B-M,B-N,V-H,V-X,W-F,W-R,R-B,R-W,O-W,O-S,F-A,Q-X,P-E,P-L,X-X,Y-M,Y-C,L-U,L-V,I-X,E-B,H-M,A-S"; itertools::assert_equal(["B-E", "R-W"], f(input).sorted()); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/717
723: 警備員[Lv.4] [] 2025/03/31(月) 03:24:21.45 ID:V+SeThnI >>714 Kotlin //paiza.io/projects/WMZL8ULLNxc0zJQPI2uUsA URLあると書けなかったので先頭のhttps:を抜いた。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/723
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.044s