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

|