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

---

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

---

98: デフォルトの名無しさん [] 2023/09/27(水)11:36:52.67 ID:uGji0T93(1)
Python

s = input()
s = s.replace("、", ",")
s = s.replace("。", "\n")
print(s)

---

125: デフォルトの名無しさん [sage] 2023/10/12(木)11:02:46.67 ID:u59ybXeV(1)
スイカゲームを自動操縦するプログラムを造れ

---

469: デフォルトの名無しさん [sage] 01/03(金)20:07:57.67 ID:yesC/P5F(1)
>>464
fn is_ab_lang(input: &str) -> bool {
match input
.chars()
.fold(Some(0), |state, char| match (state, char) {
(Some(count), 'A') => Some(count + 1),
(Some(count), 'B') if count > 0 => Some(count - 1),
_ => None,
}) {
Some(0) => true,
_ => false,
}
}

fn main() {
for s in ["", "AB", "AABB", "ABAABBAAABBB"] {
assert!(is_ab_lang(s)); // true
}
for s in ["A", "B", "BA", "ABB", "AAB", "ABBA"] {
assert!(!is_ab_lang(s)); // false
}
}

---

597: 9 [sage] 02/13(木)17:35:13.67 ID:UAfabByi(1/3)
>>594　Perl5、見易くするためインデントは全角スペースに置換してあります

for (<DATA>) {
　($s, $a, $b) = split;
　$c = $a + $b;
　$c = $1 . ($1 + $2) . $2 if $c =~ /(\d)(\d)/;
　$s =~ s/$a$b/$a$c$b/g;
　print "$s\n";
}
__DATA__
123456789 3 4
123456789 6 7
123456789 8 9
3141592653589793238462643383279502884197169399375105820974944 9 7

実行結果
~ $ perl 22_594.pl
1237456789
123456143789
123456781879
3141592653589176793238462643383279502884191767169399375105820917674944

---

600: デフォルトの名無しさん [] 02/13(木)20:34:25.67 ID:3SfOseF2(2/2)
>>599
そうか。だとすれば、

function f($x, $i, $j)
{
　　$s = [string]$x
　　$y = $i + $j
　　if ($y -ge 10) {$y *= 11}
　　$s -replace "$i$j", "$i$y$j"
}

(123456789, 3, 4), (123456789, 6, 7), (123456789, 8, 9), ("3141592653589793238462643383279502884197169399375105820974944", 9, 7) |% {
　　"< $($_[0]) $($_[1]) $($_[2])"
　　"> $(f $_[0] $_[1] $_[2])", ""
}

[実行結果]
< 123456789 3 4
> 1237456789

< 123456789 6 7
> 123456143789

< 123456789 8 9
> 123456781879

< 3141592653589793238462643383279502884197169399375105820974944 9 7
> 3141592653589176793238462643383279502884191767169399375105820917674944

---

609: デフォルトの名無しさん [sage] 02/15(土)00:16:29.67 ID:aVKCg5xf(1)
>>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

---

828: デフォルトの名無しさん [] 08/29(金)22:34:59.67 ID:uVFRnDIW(1/2)
>>802をCMD (Windowsバッチファイル) に移植

@echo off & setlocal EnableDelayedExpansion
echo 【問題A】
for %%i in (1, 2, 3, 123456, 234567, 362880) do call :ithDuplicatedPermutation 9 1 %%i
echo.
echo 【問題B】
for %%i in (1, 2, 3, 123456, 234567, 369600) do call :ithDuplicatedPermutation 4 3 %%i
exit /b

:ithDuplicatedPermutation
set /a n = %1, m = %2, i = %3, L = 0, P = 1
for /l %%j in (1, 1, %n%) do (
　　set /a c%%j = %m%
　　for /l %%k in (1, 1, %m%) do set /a L += 1, P = P * L / %%k
)
set a=%i% →
for /l %%j in (1, 1, %L%) do (
　　set /a done = 0
　　for /l %%k in (1, 1, %n%) do (
　　　　if !done! equ 0 (
　　　　　　set /a "q = P * c%%k / (L - %%j + 1)"
　　　　　　if !i! leq !q! (
　　　　　　　　set a=!a!%%k
　　　　　　　　set /a c%%k -= 1, P = q, done = 1
　　　　　　) else (
　　　　　　　　set /a i -= q
　　　　　　)
　　　　)
　　)
)
echo %a%

---

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

---

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

---

ぬこの手 ぬこTOP 0.036s