Macにだって素数を数える権利はある

もうそろそろ,おそネタですが.本日となりでid:omochistrubyco(るびこ)の日記 - 冴子先生で素数をみて楽しそうにイルカに素数数えさせていたので,うちも負けじとMacっていうかGrowlに素数を数えさせてみた.以下Perlのコード.

use strict;
use Encode;
use Net::Growl;

register(host => 'localhost',
         application=>"Prime",
         password=>"your_growl_password",);

sub murmur {
    my $msg = shift;
    my $speak = " ";
    if (($msg + 1) % 8 == 0) {
        $speak = decode('utf-8',"落ち着け...素数を数えて落ち着くんだ...");
    }
    notify(
            application=>"Prime",
            title=>"$msg...",
            description=> "$speak",
            priority=>2,
            password=>"your_growl_password",
    );
}

my $max = shift || 10;
my @primes = grep { ('p' x $_) !~ /^(pp+)\1+$/ } (2..$max);
map murmur($_), @primes;

your_growl_passwordはGrowlの設定のネットワークタブで設定したやつね.あとはGrowlでよさそうな表示形式を選んで*1実行してやると以下のように素数数えはじめる.

素数は孤独な数字だ.私に力を与えてくれる.

*1:BezelかMusic Videoがおすすめ