2006年06月22日

だからほら、どうせ月記になるじゃない

チラシの裏にメモ
あまり考えずに書いたメモなので、気にしないほうが吉。
ほかのところにメモするくらいだったら、
最近ご無沙汰だし、ここでいいかな、という程度のおつむ。
「いったい何なのかはご自分でお考えください」

ActivePerl, Perl(Cygwin package) で動いた気がします。
−・−・−・−・−・−・−・−・−・−・−・−・−・−・−・−・−
use strict;
use Time::Local;

my ($H, $M) = (08, 12);
my ($T, $B) = (1 * 3600, 380);
my $F = 50;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
my $startepoc = timelocal(0, $M, $H, $mday, $mon, $year);

print "caulculation...\n";
while(1){
my $diff = time() - $startepoc;
my $fee = $B;
my ($frcc, $frcm) = (0, 600);
if($diff > $T){
$frcc = ($diff - $T) % $frcm;
$fee += $F * int(($diff - $T) / $frcm);
}else{
$frcc = $diff;
$frcm = $T;
}

printf("%4d/%4d \\%d\n", $frcc, $frcm, $fee);
sleep(1);
}
−・−・−・−・−・−・−・−・−・−・−・−・−・−・−・−・−
満喫計算とでも呼びましょう。
posted by Hacky=SugarSun at 17:57| Comment(2) | TrackBack(0) | チラシの裏 | このブログの読者になる | 更新情報をチェックする
この記事へのコメント
一つ分かったのは、日本語じゃないってことだね。
Posted by よし at 2006年06月22日 23:18
私、第2外国語中国語選択だったのですが、
中国語でもなさそうだと思えます。
Posted by Hacky=SugarSun at 2006年06月23日 05:26
コメントを書く
お名前:

メールアドレス:

ホームページアドレス:

コメント:

認証コード: [必須入力]


※画像の中の文字を半角で入力してください。

この記事へのトラックバック
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。