- プログラミングのお題スレ Part12
363 ：デフォルトの名無しさん[sage]：2018/11/12(月) 00:02:23.31 ID:EX0FpiMD - ちなみに循環性を見るとこんな感じになってました
use bignum (l=>GMP);
use Tie::IxHash;
use feature 'say';
for $i (0,1,2,3,4,5,10,11,13,777) {
tie my %h,'Tie::IxHash';
$p = $i;
for (1..100) {
last if exists $h{$p} and $h{$p} > 10;
$h{sprintf "%02d", $p % 100} = $_;
$p = $p * $i % 100;
}
@a = keys %h;
say "$i: ", scalar @a, ": @a", ": $p";
}
実行結果
1: 1: 01: 1
2: 21: 02 04 08 16 32 64 28 56 12 24 48 96 92 84 68 36 72 44 88 76 52: 48
3: 20: 03 09 27 81 43 29 87 61 83 49 47 41 23 69 07 21 63 89 67 01: 47
4: 10: 04 16 64 56 24 96 84 36 44 76: 16
5: 2: 05 25: 25
10: 2: 10 00: 0
11: 10: 11 21 31 41 51 61 71 81 91 01: 11
13: 20: 13 69 97 61 93 09 17 21 73 49 37 81 53 89 57 41 33 29 77 01: 37
777: 20: 77 29 33 41 57 89 53 81 37 49 73 21 17 09 93 61 97 69 13 01: 73
| - プログラミングのお題スレ Part12
364 ：デフォルトの名無しさん[sage]：2018/11/12(月) 00:03:57.97 ID:EX0FpiMD - >>362
× 単に左辺を%100
○ 単に右辺(指数)を%100
| - プログラミングのお題スレ Part12
366 ：デフォルトの名無しさん[sage]：2018/11/12(月) 00:10:02.50 ID:EX0FpiMD - >>365
10については、そういわれてみればそうだね。
| - プログラミングのお題スレ Part12
368 ：デフォルトの名無しさん[sage]：2018/11/12(月) 00:18:43.46 ID:EX0FpiMD - >>367
10については、そいうやり方も考えられるけど
上記の循環の例の11,13,777は指数を%100しても解は合うが
他の数値も単に指数を%100して解が合うか、一般性は疑わしいので、
>>356はちょっと勇み足だったかもしれないﾃﾍﾍﾟﾛ
|
|