- プログラミングのお題スレ Part13
75 ：デフォルトの名無しさん[sage]：2019/02/11(月) 00:35:41.13 ID:8Hdd2FlG - >>62
ガウス少年が見出したように
Σ1,2,…,n-2,n-1＝n *(n +1) /2
なので、
n の mod 2^24-1
と
Σ1,2,…,n-2,n-1 ＝n *(n +1) /2 の mod 2^24-1
が等しいのは自明だと思うけど、
そういう、ちょっとした数学を使わず
Σ1,2,…,n-2,n-1
をloopで和を算出し mod 2^24-1 して比較する
n の mod 2^24-1 と比較する
プログラムを作れという題なんだろうか…
|
- プログラミングのお題スレ Part13
76 ：デフォルトの名無しさん[sage]：2019/02/11(月) 00:37:45.16 ID:8Hdd2FlG - >>75
「比較する」を二度書いちゃった、訂正
Σ1,2,…,n-2,n-1
の和をloopで算出し mod 2^24-1 して
n の mod 2^24-1 と比較する
|
- プログラミングのお題スレ Part13
78 ：デフォルトの名無しさん[sage]：2019/02/11(月) 01:10:25.11 ID:8Hdd2FlG - >>75 ごめん
Σ1,2,…,n-2,n-1＝n *(n +1) /2
は間違えた。こうだ
Σ1,2,…,n-2,n-1＝n *(n -1) /2
|
- プログラミングのお題スレ Part13
79 ：デフォルトの名無しさん[sage]：2019/02/11(月) 01:12:22.73 ID:8Hdd2FlG - >>77
ｺﾞﾒﾝなんか誤解したかも、よく読む
|
- プログラミングのお題スレ Part13
81 ：デフォルトの名無しさん[sage]：2019/02/11(月) 01:42:54.29 ID:8Hdd2FlG - >>62 Perl5
use bignum (l=>GMP);
use feature say;
sub sum24 {
my $v = $_[0];
if ($v > 0) {
my $d = int($v / 2**24);
my $m = $v % 2**24; # $v - $d * $f6;
$m + sum24($d);
} else {
0;
}
}
$n = 12345678901234567890;
say $n % (2**24 -1);
say sum24($n) % (2**24 -1);
実行結果
~ $ perl 13_62.pl
13189905
13189905
|
- プログラミングのお題スレ Part13
82 ：デフォルトの名無しさん[sage]：2019/02/11(月) 01:47:30.91 ID:8Hdd2FlG - >>81
8行目後半の#から右
# $v - $d * $f6;
は削除し忘れたcommentです ｽﾏｿ
|
- プログラミングのお題スレ Part13
84 ：デフォルトの名無しさん[sage]：2019/02/11(月) 01:57:28.89 ID:8Hdd2FlG - お題を作ることの難しさだよな…
|
- プログラミングのお題スレ Part13
86 ：デフォルトの名無しさん[sage]：2019/02/11(月) 02:26:56.38 ID:8Hdd2FlG - そんな怒るなよ。
暖かくしてぐっすりお休みよ
|
- プログラミングのお題スレ Part13
89 ：デフォルトの名無しさん[sage]：2019/02/11(月) 02:35:55.83 ID:8Hdd2FlG - 単なるbitmaskで済まない様な場合
あるいは除算して剰余を求めるなら
さんざ研究されていると思うから自力で１から考える前に
先人の業績を知れってことだろ
ｱﾊﾞﾖ ﾉｼ
|
- プログラミングのお題スレ Part13
91 ：デフォルトの名無しさん[sage]：2019/02/11(月) 03:04:24.50 ID:8Hdd2FlG - 6^5総当りせよってか…
native compiler系言語で力技か
|
- プログラミングのお題スレ Part13
94 ：デフォルトの名無しさん[sage]：2019/02/11(月) 04:00:05.29 ID:8Hdd2FlG - お なかなか
|