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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

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

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.027s