トップ «前の日記(■2004-12-07) 最新 次の日記(■2004-12-17)» 編集

どんぞこ日誌

2003|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|07|08|12|
2007|01|04|08|12|
2008|01|02|03|04|06|07|08|10|11|12|
2009|01|02|04|05|06|07|08|09|11|12|
2010|01|03|04|07|08|10|11|12|
2011|01|02|03|04|05|06|07|08|10|12|
2012|01|02|03|05|06|07|08|09|10|
2013|01|02|07|08|09|
2014|08|09|
2015|08|
2016|06|07|12|
2017|01|03|08|
2018|03|

同人関連(どんぞこ楽屋) | 旧い雑文   


■2004-12-12

* [Perl] 酒は飲め飲め 飲むならばB!

  二日酔いしない飲酒量は計算式でわかる!ここ経由)。「好きなn時間だけほろ酔いを持続するための酒の量」というのもあるそうで、どうも「21世紀における国民健康づくり運動(健康日本21)」の資料が元ネタらしいのですが、どこにあるのかわかりませんでした。以前、「今月のAcme」でAcme::Drunkを翻訳しましたが、今度は上記の計算を自動でやってくれるAcme::Drunkardを自作してみました。

 use Acme::Drunkard;
 # 定数Beer,Wine,Sake,Whiskyをexport
 
 my $checker = new Acme::Drunkard;
 
 $checker->weight(52);
 $checker->timespan(6);
 $checker->alcoholicity(12);
 # あるいは$checker->alcoholicity( Wine )等;
 
 if(my $result = $checker->result){
   print "$result (ml)\n"; # $result->as_value
 }
 else{
   print $checker->error;
 }
 # エタノール度数を与えなくとも各酒種換算可
 $checker->weight(50);
 $checker->timespan(8);
 print $checker->result->as_BottleWine,"\n";
 print $checker->result->as_MasuSake,"\n";

 とりあえず、瓶・缶ビール、ウィスキー(シングル、ダブル)、ボトル・グラスワイン、升酒で換算機能つき(グラスワインは体積がデタラメ)。計算間違ってるかも。

* [メモ] 桑田乃梨子の漫画アニメ化、他B!

 ・桑田乃梨子の「だめっこどうぶつ」アニメ化。今更ですが、知りました。キッズステーションかぁ……

 ・NHKの会長はどうして責任を取って辞めないのですか? 日本放送労働組合はなかなかやるなと思いました。

[]