プログラミングのお題スレ Part22 (863ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

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

---

241(1): 9 [sage] 2024/02/16(金)02:56 ID:7jtCAGu+(1/2)
>>234 Perl5

for $n (0,17,100,123459321) {
　my %a;
　for (0..$n) {
　　$i = $n - $_;
　　$a{$i} = $i if 0 <= $i and $i =~ /^((\d)(?1)\2|\d?)$/;
　　$j = $n + $_;
　　$a{$j} = $j if $j =~ /^((\d)(?1)\2|\d?)$/;
　　last if keys %a;
　}
　@a = keys %a;
　print "$n -> @a\n";
}

※見やすくするためインデントを全角スペースに置換してあります。

実行結果

$ perl 22_234_palindromic_number.pl
0 -> 0
17 -> 22
100 -> 99 101
123459321 -> 123464321 123454321

---

242: 9 [sage] 2024/02/16(金)03:13 ID:7jtCAGu+(2/2)
>>241

　　last if keys %a;
　}
　@a = keys %a;

は

　　last if @a = keys %a;
　}

とコンパクトに書けるんだった、まぁいいや

---

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

---

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

---

ぬこの手 ぬこTOP 0.036s