プログラミングのお題スレ Part22 (844ﾚｽ)
プログラミングのお題スレ Part22 http://mevius.5ch.net/test/read.cgi/tech/1691038333/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
820: デフォルトの名無しさん [] 2025/08/24(日) 21:13:57.80 ID:ubCw2JoQ >>812の逆変換プログラムは>>808の順変換プログラムを流用したから処理に無駄があった。 逆変換用に一から書き直したらすっきりした。 R https://ideone.com/jYUHe1 C++ https://ideone.com/Lne3AQ http://mevius.5ch.net/test/read.cgi/tech/1691038333/820
821: 819 [sage] 2025/08/25(月) 00:28:39.45 ID:IbSJkZLt >>799 java Iterable<int[]> https://ideone.com/NRTZpa http://mevius.5ch.net/test/read.cgi/tech/1691038333/821
822: デフォルトの名無しさん [sage] 2025/08/27(水) 00:40:48.46 ID:AbNZa8yo >>799 ocaml https://ideone.com/1Jx1Q8 >>799 scheme (chicken 4.13) https://ideone.com/n7pIFw http://mevius.5ch.net/test/read.cgi/tech/1691038333/822
823: デフォルトの名無しさん [sage] 2025/08/27(水) 21:02:12.94 ID:AbNZa8yo >>799 octave https://ideone.com/RH6xXb http://mevius.5ch.net/test/read.cgi/tech/1691038333/823
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
825: 821 [sage] 2025/08/28(木) 21:01:46.43 ID:mnaa+hsk >>799 java https://ideone.com/aKkfqN ・next()ごとに複製しない版。する版は >>821 ・hasNext()側で次を準備。next()側なのは >>821 http://mevius.5ch.net/test/read.cgi/tech/1691038333/825
826: デフォルトの名無しさん [] 2025/08/29(金) 13:52:26.21 ID:xrZF+zBK >>799 https://ideone.com/JLM8r8 C++ http://mevius.5ch.net/test/read.cgi/tech/1691038333/826
827: デフォルトの名無しさん [sage] 2025/08/29(金) 20:09:32.40 ID:VEuLqGzD >>812 ruby 2.5.5 https://ideone.com/tzzN04 ・tallyあるのは2.7以降 >>812 octave https://ideone.com/ebJd9k http://mevius.5ch.net/test/read.cgi/tech/1691038333/827
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
829: デフォルトの名無しさん [] 2025/08/29(金) 22:35:22.12 ID:uVFRnDIW -- 実行結果 -- 【問題A】 1 → 123456789 2 → 123456798 3 → 123456879 123456 → 416589732 234567 → 684753219 362880 → 987654321 【問題B】 1 → 111222333444 2 → 111222334344 3 → 111222334434 123456 → 222331434114 234567 → 324424331112 369600 → 444333222111 http://mevius.5ch.net/test/read.cgi/tech/1691038333/829
830: デフォルトの名無しさん [sage] 2025/08/30(土) 17:37:04.21 ID:zI+bKiSo >>812 ocaml https://ideone.com/SfsytC >>812 scheme (chicken 4.13) https://ideone.com/jwWrRt http://mevius.5ch.net/test/read.cgi/tech/1691038333/830
831: 830 [sage] 2025/09/02(火) 21:36:10.92 ID:MM5Gazf9 >>812 scheme (chicken 4.13) https://ideone.com/fZufck ・集計部分をalistに変えてみただけ http://mevius.5ch.net/test/read.cgi/tech/1691038333/831
832: デフォルトの名無しさん [sage] 2025/09/06(土) 23:05:19.87 ID:Z/aFZPi6 >>561 scheme (chicken 4.13) https://ideone.com/lCgs9s http://mevius.5ch.net/test/read.cgi/tech/1691038333/832
833: 832 [sage] 2025/09/07(日) 12:29:41.48 ID:O1zDlKW9 >>561 scheme (chicken 4.13) https://ideone.com/8VZv71 ・m1m2を不必要にリストにしてたのを廃止 http://mevius.5ch.net/test/read.cgi/tech/1691038333/833
834: 833 [sage] 2025/09/07(日) 14:22:59.56 ID:O1zDlKW9 >>561 scheme (chicken 4.13) https://ideone.com/EsJWtG ・letを自然な位置に移動 http://mevius.5ch.net/test/read.cgi/tech/1691038333/834
835: デフォルトの名無しさん [sage] 2025/09/08(月) 23:02:49.14 ID:4SI/cFAg >>485 scheme (chicken 4.13) https://ideone.com/feYtNB >>500 scheme (chicken 4.13) https://ideone.com/Svhv1y http://mevius.5ch.net/test/read.cgi/tech/1691038333/835
836: 835 [sage] 2025/09/08(月) 23:33:25.73 ID:4SI/cFAg >>485 scheme (chicken 4.13) https://ideone.com/ejvKat ・(product . lists) ・(product xs . rest) が >>835 http://mevius.5ch.net/test/read.cgi/tech/1691038333/836
837: デフォルトの名無しさん [sage] 2025/09/09(火) 21:56:29.91 ID:PCxKX9bv >>438 scheme (chicken 4.13) https://ideone.com/6weUjU ・まずまとまりに分割して処理 >>438 scheme (chicken 4.13) https://ideone.com/BCt6fd ・最初のを四つにして、残りはスキップ http://mevius.5ch.net/test/read.cgi/tech/1691038333/837
838: デフォルトの名無しさん [] 2025/09/10(水) 21:21:57.38 ID:rb/tQvOM >>438 C#で短く書けた https://ideone.com/SwAZsS x.EndsWith(" ") でなく x.LastOrDefault() == ' ' の方が長くはなるが効率的かも知れない。 http://mevius.5ch.net/test/read.cgi/tech/1691038333/838
839: 836 [sage] 2025/09/10(水) 22:49:33.81 ID:NV1RL9MH >>485 scheme (chicken 4.13) https://ideone.com/g8wtFG ・デカルト積の解釈を（勝手に）変更 http://mevius.5ch.net/test/read.cgi/tech/1691038333/839
840: 839 [sage] 2025/09/10(水) 23:35:38.95 ID:6JfM8ZLf >>485 scheme (chicken 4.13) https://ideone.com/A6K3XL ・(cons y x)して最後にreverseする ・(list x y)して最後にflattenするのが >>839 http://mevius.5ch.net/test/read.cgi/tech/1691038333/840
841: 840 [sage] 2025/09/11(木) 23:05:23.09 ID:WPUXbxYH >>485 scheme (chicken 4.13) https://ideone.com/YqrvdM ・reverse回数減らした版 http://mevius.5ch.net/test/read.cgi/tech/1691038333/841
842: デフォルトの名無しさん [sage] 2025/09/12(金) 15:41:31.15 ID:IRXhEt4s お題 1行1単語のリストが、しりとりとして成立しているか判定するコードを書きなさい 成立していたら◯、不成立なら☓をしゅつりょくすること 【入力】 りんご ごりら らっぱ http://mevius.5ch.net/test/read.cgi/tech/1691038333/842
843: デフォルトの名無しさん [sage] 2025/09/12(金) 16:19:33.85 ID:uazXAFOm 入力例に対する出力例が存在しなくて曖昧 それを補わないと問題が不成立 http://mevius.5ch.net/test/read.cgi/tech/1691038333/843
844: デフォルトの名無しさん [sage] 2025/09/12(金) 20:36:05.46 ID:I2wrB793 >>438 scheme (chicken 4.13) https://ideone.com/SlkO0l ・空白時にdrop-while >>842 ruby https://ideone.com/mY83rW http://mevius.5ch.net/test/read.cgi/tech/1691038333/844
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.388s*