プログラミングのお題スレ Part22 (831ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

608(10): 02/14(金)23:42 ID:PVqLPxMJ(1) AAS
お題：ランダムな英文字列が与えられる。隣り合う英文字が同じ大文字だった場合、その間にその大文字の小文字を挿入せよ

In < abcDDefGG
Out > abcDdDefGgG

---

609: 02/15(土)00:16 ID:aVKCg5xf(1) AAS
>>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

---

610: 02/15(土)00:16 ID:f9ERvXXy(1) AAS
>>594 dart
外部ﾘﾝｸ:ideone.com

>>608 ruby
外部ﾘﾝｸ:ideone.com

---

612(1): 02/15(土)00:39 ID:rssRTGdz(1/9) AAS
AA省

---

613: 02/15(土)01:01 ID:qzrI3kKZ(1) AAS
>>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);
省7

---

614(1): 02/15(土)09:21 ID:XILc/8JX(1) AAS
>>608 ruby
外部ﾘﾝｸ:ideone.com

>>608 dart
外部ﾘﾝｸ:ideone.com

---

615(1): 614 02/15(土)10:02 ID:UI50KRFJ(1) AAS
>>608 dart
外部ﾘﾝｸ:ideone.com

---

616(2): 9 02/15(土)10:36 ID:1WENuqRv(1/2) AAS
>>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

---

618: 02/15(土)10:40 ID:+yYMeR0h(1) AAS
>>594 >>608 lisp
外部ﾘﾝｸ:ideone.com

---

619: 615 02/15(土)13:20 ID:eC3jFbuY(1) AAS
>>608 java
外部ﾘﾝｸ:ideone.com

>>616
＿人人人人人人人人人人人人＿
＞　置換の小文字変換！？　＜
￣Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^Y^￣

勉強になりました

---

655: 警備員[Lv.21] 02/24(月)18:11 ID:Ikw9MrIX(1) AAS
>>608

>>651とかとアルゴリズムはほぼ同じ。これといった捻りはない。
よく分からないが5chに書き込みがブロックされたのでURLのコロンまでは削った。

Perl
//paiza.io/projects/zAqms-VVEWIMhcgr8AV6Pw
Kotlin
//paiza.io/projects/iu8mTSyKsxqWx_T51Wpj4Q
C
//paiza.io/projects/bDkj3tRF_KmiBL67miRxyA

---

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

---

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

---

ぬこの手 ぬこTOP 0.043s