Hatena::ブログ(Diary)

[51] I’d checked it.-はてダ RSSフィード

2006年06月17日 [Perl] お題「100までの整数から素数を列挙せよ」

[]キミならどう書く 2.0 - ROUND 1 6月26日(月)締切

いい感じでRSSからお題が送られてきました。(この記事は6/25(日)まで更新し続けます。)

元記事

http://ll.jus.or.jp/2006/blog/doukaku1

LL Ring の前哨戦として「キミならどう書く 2.0」の開催
お題は「100までの整数から素数を列挙せよ」です.
解答の締切は6月26日(月)とします.締切後には投票による人気の集計を行います.

やったこと

  • google:perl リスト操作を検索 全然覚えてませんでした。
  • perlmanjでlistを検索 
  • RSSをクリックして要旨・締切を確認。
    • できれば 締め切りもRSSに含まれることを希望します。
  • Pythonの答、見る。Pythonは入れてないのでカンニングにならないと思います。

やってみたけど駄目だったこと

  • 過去に勉強した記憶があるのでパソコンの中、検索してみましたがもちろん見つからず

とりあえず決めたこと

  • 何でもいいけど調べやすいのでPerl使う
  • リストN(1..100)使う
  • 素数の倍数(素数ではない数)を入れるリストqも用意する。

分かったこと

  • 範囲で指定するリスト
  • デリミタは $" で決まる。
  • 素数はPrime
  • 素数の倍数は素数ではない
  • 素数 P= N && q!
  • 3の倍数 @q3
for($k=1;$k*3<100;$k++){
  push(@q3,$k*3);
}

分かってないこと

  • 1は素数だったよね
  • 素数の倍数を整数から省いていく方法