プログラミングのお題スレ Part22 (831ﾚｽ)
上下前次1-新

---

809: 08/19(火)21:08 ID:zFi0pntB(1) AA×
>>799


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
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
問題

---

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

---

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

---

ぬこの手 ぬこTOP 0.028s