*

プログラム駅、素数のプログラムを作ってみた前

公開日: : 未分類

まもなく、プログラム駅〜プログラム駅〜
素数のプログラムを作ってみた前です。

このツイートに触発されて、このリストを出すプログラムを作ってみました。

ちょっと表示が美しくありませんし、すごく時間がかかりますがきちんと結果は表示します。

参考までにプログラムを全文掲載します。

#!/usr/bin/perl

$month	= 1;
$day	= 1;
@month_day = (0,31,28,31,30,31,30,31,31,30,31,30,31);

for($month=1;$month <= 12;$month++ ){
	for($day=1;$day <= $month_day[$month]; $day++ ) {
		$mydate		= 20130000 + $month * 100 + $day;
		$mydate_org = $mydate;
		print "$mydate = ";
		
		for($count_i=2; $count_i<20140000; $count_i++ ) {
			if($count_i > 2 && ($mydate_old > $mydate)) {
				print '* ';
			}
			$mydate_old = $mydate;
			for($count_j=0; $count_j<20140000; $count_j++) {
				if($mydate % $count_i == 0)	{
					$mydate = $mydate / $count_i;
				}
				else {
					if($count_j > 0) {
						$pow = $count_j;
						print "$count_i \^ $count_j ";
					}
					last;
				}
			}
		}
		if($mydate == 1) {
			print "素数";
		}
		else {
			print "1 \r\n";
		}
	}
}
プログラムを走らせた結果、自分のMacBookにて約2時間の実行時間となりました。
自分のMacのスペックは以下の様な感じです。
MyMac

関連記事

no image

モートピ017中国、ネット利用者が5億人超える

◆モーサテトピックス <欧米市場動向> ・米国は祝日、キング牧師の誕生日 ・欧州株は各国上昇 ・ドル

記事を読む

slooProImg_20130423060353.jpg

モートピ駅、113日目の「全日空、営業利益が過去最高か」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

no image

モートピ駅、361日目の「今年の家電市場、白物家電がデジタル家電を10年ぶりに逆転」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

no image

モートピ駅、023日目の「音楽の定額配信、邦楽でも。市場活性化狙う」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

slooProImg_20130321060734.jpg

モートピ駅、080日目の「世界的な実質金利低下。日本、ドイツ、アメリカではマイナス圏」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

no image

ノート167もう一台のiPhone4Sが我が家にきた!

昨日、嫁さんが、ガラケーの操作がイライラすると言ったのを、聞き逃しませんでした。ホントは即日買ってし

記事を読む

no image

モートピ040:中国、最低賃金5年で倍にする政府計画

◆モーサテトピックス <欧米市場動向> ・NYダウは先日終値と同水準の12878ドル ・ドル円は、7

記事を読む

slooProImg_20131016061006.jpg

モートピ駅、289日目の「バーバリーCEOがアップルへ。小売とネット通販を担当」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

no image

モートピ駅、342日目の「NTTドコモ、11月は5年ぶりに純減。iPhone導入も」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

no image

モートピ駅、028日目の「情報衛星打ち上げ、成功。政府、偵察体制確率へ」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前です 詳細なニュース内容にお越

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

slooProImg_20131113060635.jpg
モートピ駅、317日目の「消費者心理、10月は悪化。下げ幅は東日本大震災以来の大きさ」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前

slooProImg_20131112060725.jpg
モートピ駅、316日目の「福島県沖で洋上風力発電がスタート」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前

slooProImg_20131028060548.jpg
モートピ駅、301日目の「Twitter上場で、26日に予行演習」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前

slooProImg_20131022060428.jpg
モートピ駅、295日目の「電子部品産業、復調鮮明に。スマホや車、市場に広がり」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前

slooProImg_20131021060541.jpg
モートピ駅、294日目の「香港、テレビ開局申請却下でデモ」前

まもなく、モートピ駅~モートピ駅です。 最新のニュースヘッドライン前

→もっと見る


  • おがわ(@ogw_m)
    33歳のIT系のSIerに勤めるシステムエンジニア。仕事ではプログラムは書かないですが、趣味でプログラミングをやります。いつのまにか増えていたApple製品とライフハックに興味があります。iPhoneを持たせておくと静かになります。Twitterのタイムラインをみる時間が、安らぎタイム。既婚。

PAGE TOP ↑