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

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

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

---

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

---

670: デフォルトの名無しさん [] 2025/03/13(木) 20:35:03.45 ID:QP/8WHEA お題：数列が入力される。元の数列に逆順にした数列を減算したときの値を出力せよ In < 12345 OUt > -41976 (12345 - 54321) http://mevius.5ch.net/test/read.cgi/tech/1691038333/670

671: デフォルトの名無しさん [] 2025/03/13(木) 21:13:53.77 ID:SRpNsp20 >>670 PowerShell function f([BigInt]$n) { 　　$c = [char[]][string]$n 　　$n - [BigInt]-join $c[-1..-$c.length] } 12345, [BigInt]::Pow(12, 34) |% {"$_ → $(f $_)"} [実行結果] 12345 → -41976 4922235242952026704037113243122008064 → 314233029528909439273950854852378624 http://mevius.5ch.net/test/read.cgi/tech/1691038333/671

672: デフォルトの名無しさん [sage] 2025/03/14(金) 02:10:51.25 ID:wjeVVi0w >>671 12の34乗は合っているけどその後の差がおかしくない？ 4922235242952026704037113243122008064 から 4608002213423117304076202592425322294 を引いて 314233029528909399960910650696685770 が正解のところ 314233029528909439273950854852378624 となっているよ 正解は1の位が「4 - 4 = 0」になるはずだよね >>670 Rust 逆文字列を生成する版 use num::BigInt; fn odai(input: &str) -> Option<String> { 　let rev_input: String = input.chars().rev().collect(); 　let x: BigInt = input.parse().ok()?; 　let y: BigInt = rev_input.parse().ok()?; 　Some((x - y).to_string()) } fn main() { 　assert_eq!(odai("12345"), Some("-41976".to_string())); 　assert_eq!(odai("4922235242952026704037113243122008064"), Some("314233029528909399960910650696685770".to_string())); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/672

673: デフォルトの名無しさん [sage] 2025/03/14(金) 02:30:00.58 ID:wjeVVi0w >>670 Rust 逆文字列を生成しない＆整数ジェネリック版 use num::{BigInt, CheckedAdd, CheckedMul, CheckedSub, FromPrimitive}; fn chars_to_integer<X>(input: impl Iterator<Item = char>) -> Option<X> 　where X: FromPrimitive + CheckedMul + CheckedAdd, { 　let (zero, ten) = (X::from_u32(0).unwrap(), X::from_u32(10).unwrap()); 　input 　　.map(|c| X::from_u32(c.to_digit(10)?)) 　　.try_fold(zero, |acc, x| acc.checked_mul(&ten)?.checked_add(&x?)) } fn odai<X>(input: &str) -> Option<X> 　where X: FromPrimitive + CheckedMul + CheckedAdd + CheckedSub, { 　let x = chars_to_integer::<X>(input.chars())?; 　let y = chars_to_integer::<X>(input.chars().rev())?; 　x.checked_sub(&y) } fn main() { 　assert_eq!(odai::<i64>("12345"), Some(-41976)); 　assert_eq!(odai::<BigInt>("4922235242952026704037113243122008064"), Some("314233029528909399960910650696685770".parse::<BigInt>().unwrap())); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/673

677: 9 [sage] 2025/03/16(日) 00:12:31.12 ID:8GU62dKf >>670 Perl5 use bigint; print $_ - reverse($_), "\n" for 12345, 4922235242952026704037113243122008064; 実行結果 $ perl 22_670_reverse_minus_biginit.pl -41976 314233029528909399960910650696685770 http://mevius.5ch.net/test/read.cgi/tech/1691038333/677

678: 警備員[Lv.23] [] 2025/03/16(日) 17:25:01.96 ID:wlGuyFJ7 >>670 Kotlin 文字列にしてひっくり返しているだけの何の捻りもないプログラム https://paiza.io/projects/VBq2l9lhzmUxVo6xAMuAHg http://mevius.5ch.net/test/read.cgi/tech/1691038333/678

679: デフォルトの名無しさん [] 2025/03/16(日) 22:59:41.54 ID:wtk+s/+W >>670 PowerShellでジェネリック化(もどき?) 途中式や結果が入力値の型で表せない場合は$nullを返す。 function f($n) { 　　$T = $n.GetType() 　　$s = [string]$n 　　try { 　　　　$n - $T::Parse(-join $s[-1..-$s.Length]) -as $T 　　} catch { 　　　　$null 　　} } 12345, [BigInt]::Pow(12, 34), [byte]12, [sbyte]12, [sbyte]123, -123 |% { 　　"[$($_.GetType())]$_ → $(f $_)" } -- 実行結果 -- [int]12345 → -41976 [bigint]4922235242952026704037113243122008064 → 314233029528909399960910650696685770 [byte]12 → [sbyte]12 → -9 [sbyte]123 → [int]-123 → http://mevius.5ch.net/test/read.cgi/tech/1691038333/679

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.037s