倍数になる13進数 DouKaku?

倍数になる13進数

ここにある正の整数xがあります。xは2桁以上です。この数字の並びが13進法表記であるとみなすと、10進法表記であると見なした場合の倍数になります。この条件を満たす最も小さいxを求めるプログラムを書いてください。

例えばxが567の時、これを13進法表記と見なすと5 * 13 * 13 + 6 * 13 + 7 で 930 になります。930は567の倍数ではないので、567は条件を満たしません。条件を満たす数を見つけ出すプログラムを書いてください。「条件を満たす数を出力するプログラム」ではありません。(print 567などは禁止ということ。)

これでいける筈。

use strict;

for(my $i = 10; $i <= 10000; $i++) {
    for(my $c = 0, $_ = $i; /(\d)(\d*)/;) {
        $c = 13 * $c + $1;
        ($_ = $2) || ($c % $i) || printf("%d (%d)\n", $i, $c);
    }
}