プログラミングのお題スレ Part22 (860ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
594: デフォルトの名無しさん [sage] 2025/02/13(木) 12:04:43.08 ID:KGk2Z9bM お題：ランダムな数列から任意の並んでいる二つの数同士を足して、その二つの数の間に挿入せよ。 その新しい数が一桁ならそのまま挿入し二桁なら桁同士を足してその二桁の間に挿入せよ。 < 123456789 3 4 > 1237456789 (3+4=7) < 123456789 6 7 > 123456143789 (6+7=13 1+3=4) http://mevius.5ch.net/test/read.cgi/tech/1691038333/594
596: デフォルトの名無しさん [sage] 2025/02/13(木) 13:27:16.37 ID:J5YSE8js >>594 ruby a=$stdin.gets.chomp.split(" ") b=a[1].to_i+a[2].to_i c=(b<9 ? a[1]+b.to_s+a[2] : a[1]+"#{b/10}#{b/10+b%10}#{b%10}"+a[2]) puts a[0].gsub(a[1]+a[2],c) http://mevius.5ch.net/test/read.cgi/tech/1691038333/596
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
598: デフォルトの名無しさん [] 2025/02/13(木) 20:12:01.16 ID:3SfOseF2 >>594 題意が以下の通りだとして、PowerShell (エラーチェックは省略) 自然数x, i, j (i + 1 = jを満たす) が与えられる。xの上i桁目の数字をx[i]で表す。 x[i]とx[j]の和をyとして、 ・yが1桁のとき、yをx[i]とx[j]の間に挿入せよ ・yが2桁のとき、y[1]とy[2]の和をy[1]とy[2]の間に挿入してから、yをx[i]とx[j]の間に挿入せよ function f($x, $i, $j) { $s = [string]$x $y = [int][string]$s[$i - 1] + [int][string]$s[$j - 1] if ($y -lt 10) { $s.insert($i, $y) } else { $s.insert($i, 11 * $y) } } (123456789, 3, 4), (123456789, 6, 7) |% { "< $($_[0]) $($_[1]) $($_[2])" "> $(f $_[0] $_[1] $_[2])", "" } [実行結果] < 123456789 3 4 > 1237456789 < 123456789 6 7 > 123456143789 http://mevius.5ch.net/test/read.cgi/tech/1691038333/598
601: デフォルトの名無しさん [sage] 2025/02/13(木) 20:45:01.39 ID:KiG3F5Wd >>561 c https://ideone.com/ZyWoVM >>594 ruby https://ideone.com/gp9Fvp http://mevius.5ch.net/test/read.cgi/tech/1691038333/601
603: デフォルトの名無しさん [sage] 2025/02/13(木) 22:58:07.29 ID:bC7pFAVH >>594 Rust fn f(input: &str, a: u32, b:u32) -> String { let src = format!("{a}{b}"); let dst = if a + b < 10 { format!("{a}{x}{b}", x = a + b) } else { format!("{a}{x}{y}{z}{b}", x = 1, y = 1 + a + b - 10, z = a + b - 10) }; use itertools::Itertools; input.split(&src).join(&dst) } fn main() { assert_eq!(f("123456789", 3, 4), "1237456789"); assert_eq!(f("123456789", 6, 7), "123456143789"); assert_eq!(f("3141592653589793238462643383279502884197169399375105820974944", 9, 7), "3141592653589176793238462643383279502884191767169399375105820917674944"); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/603
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
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
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.045s