243(1): 9 [sage] 2024/02/16(金) 14:47:55.29 ID:TIAwaOOw(1) AAS
>>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";
}

244(1): デフォルトの名無しさん [sage] 2024/02/16(金) 21:57:03.19 ID:cLyPSkE5(1) AAS
>>234 pascal
外部ﾘﾝｸ:ideone.com

245(2): 17 [] 2024/02/16(金) 23:58:17.22 ID:C4FuIAno(1) AAS
>>234
Kotlin

何か画期的なアルゴリズムを使ったわけではなく、むしろほとんど何も考えずただ作られただけのプログラム。

外部ﾘﾝｸ:paiza.io