プログラミングのお題スレ Part22 (860ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
25: デフォルトの名無しさん [sage] 2023/08/11(金) 01:09:02.59 ID:NzWkf1P2 sortを使うことを問題にしているのであって sortしていないなら問題ないだろう 個別の話などしていない そこまで言うならとHaskellのプログラム >>13を見にいってみたが 入力文字列を各文字でソートして重複を取り除いてabcdefghijklmnopqrstuvwxyzと比較しているのか hasAllAlph = ( == [ 'a' .. 'z' ] ) . tail . nub . sort . map toLowOrSp . ( ' ' : ) http://mevius.5ch.net/test/read.cgi/tech/1691038333/25
61: デフォルトの名無しさん [sage] 2023/08/21(月) 12:57:26.59 ID:tqXtwiP4 >>59 指定した年と同じカレンダーの年を前後 n 個表示 (長くなるので今回は10個だけ表示) fn main() { let n = 10; for year in [2000, 2023, 2024, 2025, 2100] { println!("{year}年より前: {:?}", SameCalendarYear(year).rev().take(n).collect::<Vec<_>>()); println!("{year}年より後: {:?}", SameCalendarYear(year).take(n).collect::<Vec<_>>()); } } このRust公式の実行環境で実行やコード編集ができます https://play.rust-lang.org/?version=stable&mode=debug&edition=2021&gist=5e5a518120f75351ca5ff5fdd0bf4d8c // 実行結果 2000年より前: [1972, 1944, 1916, 1876, 1848, 1820, 1780, 1752, 1724, 1684] 2000年より後: [2028, 2056, 2084, 2124, 2152, 2180, 2220, 2248, 2276, 2316] 2023年より前: [2017, 2006, 1995, 1989, 1978, 1967, 1961, 1950, 1939, 1933] 2023年より後: [2034, 2045, 2051, 2062, 2073, 2079, 2090, 2102, 2113, 2119] 2024年より前: [1996, 1968, 1940, 1912, 1872, 1844, 1816, 1776, 1748, 1720] 2024年より後: [2052, 2080, 2120, 2148, 2176, 2216, 2244, 2272, 2312, 2340] 2025年より前: [2014, 2003, 1997, 1986, 1975, 1969, 1958, 1947, 1941, 1930] 2025年より後: [2031, 2042, 2053, 2059, 2070, 2081, 2087, 2098, 2110, 2121] 2100年より前: [2094, 2083, 2077, 2066, 2055, 2049, 2038, 2027, 2021, 2010] 2100年より後: [2106, 2117, 2123, 2134, 2145, 2151, 2162, 2173, 2179, 2190] http://mevius.5ch.net/test/read.cgi/tech/1691038333/61
219: デフォルトの名無しさん [] 2024/02/04(日) 19:02:37.59 ID:fS5H2fbQ >>218の5行目の if (!$h[$_]) を if ($h[$_] -eq $null) に訂正 http://mevius.5ch.net/test/read.cgi/tech/1691038333/219
263: 9 [sage] 2024/02/20(火) 17:18:07.59 ID:X5uoFLgg 「どんなテストしたの？」 って質問だよ http://mevius.5ch.net/test/read.cgi/tech/1691038333/263
414: デフォルトの名無しさん [sage] 2024/09/01(日) 08:19:39.59 ID:MmIh9kGJ >>413 lua https://ideone.com/OEEqAA http://mevius.5ch.net/test/read.cgi/tech/1691038333/414
486: デフォルトの名無しさん [sage] 2025/01/22(水) 22:43:43.59 ID:EHGf/TPZ >>485 Rust fn odai(文字列: &str, 長さ: usize) -> Vec<String> { use itertools::Itertools; (0..長さ) .map(|_| 文字列.chars()) .multi_cartesian_product() .map(String::from_iter) .collect() } fn main() { assert_eq!(odai("ABC", 1), ["A", "B", "C"]); assert_eq!(odai("ABC", 2), ["AA", "AB", "AC", "BA", "BB", "BC", "CA", "CB", "CC"]); assert_eq!(odai("ABC", 3), ["AAA", "AAB", "AAC", "ABA", "ABB", "ABC", "ACA", "ACB", "ACC", "BAA", "BAB", "BAC", "BBA", "BBB", "BBC", "BCA", "BCB", "BCC", "CAA", "CAB", "CAC", "CBA", "CBB", "CBC", "CCA", "CCB", "CCC"]); } http://mevius.5ch.net/test/read.cgi/tech/1691038333/486
493: デフォルトの名無しさん [sage] 2025/01/24(金) 20:04:46.59 ID:kDOvSp0D >>485 dart https://ideone.com/nZXS5G >>485 rust https://ideone.com/07rym1 http://mevius.5ch.net/test/read.cgi/tech/1691038333/493
641: デフォルトの名無しさん [sage] 2025/02/17(月) 13:47:54.59 ID:1CKZ5rpi >>640 ruby DATA.readlines(chomp:1).map{|e| a=e.split("").map{|f| f.to_i} (0..a.size-2).each{|n| a[n]=a[n]*10 if (a[n]%2==0 && a[n+1]%2==0) a[n+1]=a[n+1]+10 if (a[n]%2==1 && a[n+1]%2==1)} puts "IN < #{e}\nOUT > #{a.map{|f| f.to_s}.join}"} __END__ 123346 http://mevius.5ch.net/test/read.cgi/tech/1691038333/641
725: デフォルトの名無しさん [] 2025/03/31(月) 22:37:26.59 ID:eEIz6yDp >>718 >>721-722を整理して行列とヴェクトルの積ですっきり書けるようにした。 R (ideoneでも巨大整数型で実行可能になった) https://ideone.com/sHNag3 C++ https://ideone.com/7zgflb 式を展開してしまえばPowerShellで結局これだけ。 $a, $b, $c, $d, $e, $f = 0, 1, 1, 2, 2, [BigInt]4 2..100 |% { $a = 10 * $a + 5 * $b + 2 * $c + 2 * $d + $e $b = 5 * $b + 3 * $c + $e + $f $c = 5 * $c + $f $d = 8 * $d + 4 * $e + 2 * $f $e = 4 * $e + 2 * $f $f = 4 * $f for ($p = $a; $p % 10 -eq 0; $p /= 10) {} "P[$_] = 0.$p" } http://mevius.5ch.net/test/read.cgi/tech/1691038333/725
824: デフォルトの名無しさん [] 2025/08/27(水) 21:46:51.59 ID:B7vE54ji >>820の逆変換プログラムのC#版 https://ideone.com/8HpCN9 LINQのTakeWhileメソッドとSumメソッドを組み合わせたらすっきり書けた。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/824
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.337s*