[過去ﾛｸﾞ] プログラミングのお題スレ Part14 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

59(3): 2019/05/20(月)20:08 ID:HD7QqTZv(2/2) AAS
>>56 ｽﾏｿ、ｹｱﾚｽミスった、繋ぐ演算子は+ => *だた…orz
sub p {
　$h = int $n/2;
　for ($i=2; $i<=$h; $i++) {
　　$s[$i] = 1 unless exists $s[$i];
　　do {$s[$i*$_] = 0 for 2..int $h/$i} if $s[$i];
　}
　@p = grep{$s[$_]} 2..$h;
}
sub f {
省19

---

65(1): 2019/05/21(火)23:21 ID:GF2ZpO+x(1/2) AAS
>>59
Perlは配列に対するexistsやdefinedは呼び出せるが振る舞いは不明確で「強く」非推奨となっているので
この場合では問題なくとも@pはリストではなく代わりにハッシュ%pを使って実装するべきだった

---

166(1): ◆QZaw55cn4c 2019/05/29(水)18:28 ID:8RGCI467(1) AAS
>>164
== 2chｽﾚ:tech == >>56 >>59 >>61

---

167: 2019/05/29(水)21:59 ID:tGd6tVjg(1) AAS
>>164 Perl5、>>59 で書いたroutineを流用しています。

sub prime {
　$h = int $n/2;
　for ($i=2; $i<=$h; $i++) {
　　$s[$i] = 1 unless exists $s[$i];
　　do {$s[$i*$_] = 0 for 2..int $h/$i} if $s[$i];
　}
　@p = grep{$s[$_]} 2..$h;
}
sub factorization {
省19

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.259s*