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

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

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

---

98: デフォルトの名無しさん [] 2023/09/27(水) 11:36:52.67 ID:uGji0T93 Python s = input() s = s.replace("、", ",") s = s.replace("。", "\n") print(s) http://mevius.5ch.net/test/read.cgi/tech/1691038333/98

125: デフォルトの名無しさん [sage] 2023/10/12(木) 11:02:46.67 ID:u59ybXeV スイカゲームを自動操縦するプログラムを造れ http://mevius.5ch.net/test/read.cgi/tech/1691038333/125

469: デフォルトの名無しさん [sage] 2025/01/03(金) 20:07:57.67 ID:yesC/P5F >>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 } } http://mevius.5ch.net/test/read.cgi/tech/1691038333/469

597: 9 [sage] 2025/02/13(木) 17:35:13.67 ID:UAfabByi >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/597

600: デフォルトの名無しさん [] 2025/02/13(木) 20:34:25.67 ID:3SfOseF2 >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/600

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

828: デフォルトの名無しさん [] 2025/08/29(金) 22:34:59.67 ID:uVFRnDIW >>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% http://mevius.5ch.net/test/read.cgi/tech/1691038333/828

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.029s