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

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

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

---

243: 9 [sage] 2024/02/16(金) 14:47:55.29 ID:TIAwaOOw >>234 Perl5、小さい方の検索は0で止まるので負の値を避ける必要はなかった、書き直し。 $r = qr/^((\d)(?1)\2|\d?)$/; for $n (0,17,100,123459321) { 　my %a; 　for (0..$n) { 　　$a{$n - $_} = 1 if ($n - $_) =~ $r; 　　$a{$n + $_} = 1 if ($n + $_) =~ $r; 　　last if @a = keys %a; 　} 　print "$n -> @a\n"; } http://mevius.5ch.net/test/read.cgi/tech/1691038333/243

254: デフォルトの名無しさん [sage] 2024/02/18(日) 18:14:51.62 ID:puttXdr1 >>243 しらみ潰しで失格 >>244 しらみ潰しで失格 >>245 しらみ潰しで失格 http://mevius.5ch.net/test/read.cgi/tech/1691038333/254

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.333s*