235(1): デフォルトの名無しさん [] 2024/02/14(水) 15:20:24.32 ID:VoM/Kva2(1) AAS
>>234 lisp
外部ﾘﾝｸ:ideone.com

236(2): デフォルトの名無しさん [sage] 2024/02/14(水) 21:10:48.99 ID:/8p4lTpf(1) AAS
>>234 ocaml
外部ﾘﾝｸ:ideone.com

>>234 rust
外部ﾘﾝｸ:ideone.com

240(1): デフォルトの名無しさん [sage] 2024/02/15(木) 23:18:01.58 ID:IMdr4idU(1) AAS
>>234 c
外部ﾘﾝｸ:ideone.com

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

246(1): 9 [sage] 2024/02/17(土) 02:10:36.54 ID:K8P5qDCx(1) AAS
>>234 Python3

def f(k):
　　s = str(k)
　　return s == s[::-1]
for n in [0, 17, 100, 123459321]:
　　l = set()
　　for i in range(n + 1):
　　　　if f(n - i): l.add(n - i)
　　　　if f(n + i): l.add(n + i)
　　　　if l:
　　　　　　print(n, l)
　　　　　　break

※見易くするためインデントは全角空白に置換してあります

実行結果

$ python3 22_234_palindromic_number..py
0 {0}
17 {22}
100 {99, 101}
123459321 {123454321, 123464321}

247(1): デフォルトの名無しさん [sage] 2024/02/17(土) 18:14:20.87 ID:nUY+CX2J(1/3) AAS
>>234 pascal
外部ﾘﾝｸ:ideone.com
・dynamic array 使用

248(2): デフォルトの名無しさん [] 2024/02/17(土) 19:03:53.65 ID:eWGoJOTY(1) AAS
>>234
C++
2chｽﾚ:tech

250(1): デフォルトの名無しさん [sage] 2024/02/17(土) 20:51:00.88 ID:nUY+CX2J(2/3) AAS
>>234 octave
外部ﾘﾝｸ:ideone.com

251(2): デフォルトの名無しさん [sage] 2024/02/17(土) 21:45:58.19 ID:nUY+CX2J(3/3) AAS
>>234 ruby
外部ﾘﾝｸ:ideone.com