プログラミングのお題スレ Part22 (860ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
608: デフォルトの名無しさん [sage] 2025/02/14(金) 23:42:29.57 ID:PVqLPxMJ お題：ランダムな英文字列が与えられる。隣り合う英文字が同じ大文字だった場合、その間にその大文字の小文字を挿入せよ In < abcDDefGG Out > abcDdDefGgG http://mevius.5ch.net/test/read.cgi/tech/1691038333/608
609: デフォルトの名無しさん [sage] 2025/02/15(土) 00:16:29.67 ID:aVKCg5xf >>608 ruby while 1 s=DATA.gets.chomp exit if s=="" t=s.gsub(%r|([A-Z])\1|){$1+$1.downcase+$1} puts "IN < #{s}\nOUT > #{t}" end __END__ abcDDefGG http://mevius.5ch.net/test/read.cgi/tech/1691038333/609
610: デフォルトの名無しさん [sage] 2025/02/15(土) 00:16:34.18 ID:f9ERvXXy >>594 dart https://ideone.com/uQxzo1 >>608 ruby https://ideone.com/pwoRRH http://mevius.5ch.net/test/read.cgi/tech/1691038333/610
612: デフォルトの名無しさん [] 2025/02/15(土) 00:39:27.81 ID:rssRTGdz >>608 PowerShell function f($s) { -join $( foreach ($i in 0..($s.length - 2)) { $s[$i] if ($s[$i] -ne $s[$i + 1]) {continue} if ($s[$i] -lt [char]"A" -or $s[$i] -gt [char]"Z") {continue} ([string]$s[$i]).ToLower() } $s[$i + 1] ) } "abcDDefGG", "abcDDDfGG" |% {"$_ → $(f $_)"} [実行結果] abcDDefGG → abcDdDefGgG abcDDDfGG → abcDdDdDfGgG http://mevius.5ch.net/test/read.cgi/tech/1691038333/612
613: デフォルトの名無しさん [sage] 2025/02/15(土) 01:01:01.24 ID:qzrI3kKZ >>608 Rust fn f(input: &str) -> String { let mut output = String::new(); let mut pre_uppercase = None; for char in input.chars() { if Some(char) == pre_uppercase { output.push(char.to_ascii_lowercase()); } output.push(char); pre_uppercase = char.is_ascii_uppercase().then_some(char); } output } fn main() { assert_eq!(f("abcDDefGG"), "abcDdDefGgG"); assert_eq!(f("abcDDDfGG"), "abcDdDdDfGgG"); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/613
614: デフォルトの名無しさん [sage] 2025/02/15(土) 09:21:24.60 ID:XILc/8JX >>608 ruby https://ideone.com/nHcphN >>608 dart https://ideone.com/NxwW8Y http://mevius.5ch.net/test/read.cgi/tech/1691038333/614
615: 614 [sage] 2025/02/15(土) 10:02:25.10 ID:UI50KRFJ >>608 dart https://ideone.com/2E5Rxy http://mevius.5ch.net/test/read.cgi/tech/1691038333/615
616: 9 [sage] 2025/02/15(土) 10:36:35.12 ID:1WENuqRv >>608 Perl5、肯定先読みと置換の小文字変換 s/([A-Z])(?=\1)/\1\l\1/g, print for <DATA>; __DATA__ abcDDefGG abcDDDefGGG 実行結果 C:\Home>perl 22_608_ins_l.pl abcDdDefGgG abcDdDdDefGgGgG http://mevius.5ch.net/test/read.cgi/tech/1691038333/616
618: デフォルトの名無しさん [sage] 2025/02/15(土) 10:40:34.16 ID:+yYMeR0h >>594 >>608 lisp https://ideone.com/W5gGfD http://mevius.5ch.net/test/read.cgi/tech/1691038333/618
619: 615 [sage] 2025/02/15(土) 13:20:38.24 ID:eC3jFbuY >>608 java https://ideone.com/YfufZz >>616 ＿人人人人人人人人人人人人＿ ＞ 置換の小文字変換！？ ＜ ￣Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^￣ 勉強になりました http://mevius.5ch.net/test/read.cgi/tech/1691038333/619
655: 警備員[Lv.21] [] 2025/02/24(月) 18:11:14.44 ID:Ikw9MrIX >>608 >>651とかとアルゴリズムはほぼ同じ。これといった捻りはない。 よく分からないが5chに書き込みがブロックされたのでURLのコロンまでは削った。 Perl //paiza.io/projects/zAqms-VVEWIMhcgr8AV6Pw Kotlin //paiza.io/projects/iu8mTSyKsxqWx_T51Wpj4Q C //paiza.io/projects/bDkj3tRF_KmiBL67miRxyA http://mevius.5ch.net/test/read.cgi/tech/1691038333/655
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s