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

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

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

---

241: 9 [sage] 2024/02/16(金) 02:56:10.41 ID:7jtCAGu+ >>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 http://mevius.5ch.net/test/read.cgi/tech/1691038333/241

242: 9 [sage] 2024/02/16(金) 03:13:10.80 ID:7jtCAGu+ >>241 　　last if keys %a; 　} 　@a = keys %a; は 　　last if @a = keys %a; 　} とコンパクトに書けるんだった、まぁいいや http://mevius.5ch.net/test/read.cgi/tech/1691038333/242

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.250s*