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

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

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

---

809: デフォルトの名無しさん [] 2025/08/19(火) 21:08:19.27 ID:zFi0pntB >>799 問題A perl use v5.42; sub nthPermutation($digits, $rank) { 　　my @figures = (1..$digits); 　　my @fact = (1); 　　push @fact, $_ * $fact[-1] for @figures; 　　return join "", map { splice(@figures, $_, 1) } sub($n, $r) { 　　　　$n-- ? (int($r / $fact[$n]), __SUB__->($n, $r % $fact[$n])) : (); 　　　}->($digits, $rank - 1); } for my $i (1, 2, 3, 123456, 234567, 362880) { 　　say "$i -> " . nthPermutation(9, $i); } 1 -> 123456789 2 -> 123456798 3 -> 123456879 123456 -> 416589732 234567 -> 684753219 362880 -> 987654321 http://mevius.5ch.net/test/read.cgi/tech/1691038333/809

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 22 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.465s*