毎年年末になると正月用の餅の調達に頭を痛めるのでありました。うっかり忘れてデパ地下に走っても、切り餅って言うのでしょうか、四角い餅しかなかったりするんですよねえ。九州生まれのワタシとしては、雑煮の餅が四角というは耐えがたい(笑)のであります。ふと、こういう御時世だし、ネット通販とかあるんじゃないのかなと検索してみました。あります、あります、選ぶのが困難なほど沢山(笑)。
いろいろある中から、良さそうに思えるのを注文してみました。ちょっと高いかも、送料かかるし、とかマイナス要素もあるんですが、あちこち駆けずり回る手間を考えれば、まあいいかということで。
先日、釧路の義姉(3番目)から援助物資 
が届いたのですが、最初にいただいたのが「さんまピリ辛漬」です。なにせ向こうは秋刀魚は珍しくもないわけで、いろいろ調理法を変えて飽きないようにしているのでしょう。で、うちの嫁も好きなピリ辛サンマですが、焦げを恐れて(?)手動で焼きました。2分間レンジを温めて、魚を入れて7分程度。というか、点火スイッチを入れると何もしなくても7分の表示になり、30秒ほどで6分に変わるから(多分、あとで確かめよう)、もしかしたら6分半というのがデフォルトになっているのかもしれません。
ま、そんなことはともかく、ピリ辛さんま、なかなか美味いです。魚焼きレンジにも少し慣れてきたした。ポイントはこまめに洗う 、これですかね。さっさと洗えば苦にならないのですが、これがなかなか(苦笑)。さて、次は「さんま味噌漬」かな？
アクエリアン雑記帳: 生きがいが死亡率減を、新聞スクラップ(5) で知ったのだが、ふーむ、なるほどと思うとともに、懐疑的な気持ちにもなる。
asahi.com（朝日新聞社）：「男の生きがい」ストレスに勝つ？ 脳卒中の死亡率減 – サイエンス
もちろん、こういう調査をされるような学者さんのことだから、統計処理の問題やら、当該条件以外の影響やら、いろんなことを総合した上での結論ではあろうと思う。しかし、つい突っ込みたくもなる。生きがいを持っているから長生きしたのか、そもそも長生きしそうな人は生きがいを感じているのではないか、など。いや、分かってますよ。そんなことはとっくに織り込み済みのはずですよね。
女性だと差がないのに男性だとこれほどの差があるというのは、やはり何らかの原因があるのだろうとも思う。なぜ脳卒中だけが減少し、その他の疾患はあまり差がないのか。元に戻ってしまうが、そもそもこの統計の有意性はどれほどなのか。
基本的にこの種の統計には懐疑的になってしまうなあ。悪いくせだとは思うが。
やってみると、Perlの数学関係はまったく充実していないことが判明 😳 。やっぱり PARI/GP のように数学に特化したものにする方が良いかも。そうは言っても、所詮は四則演算だけで済むので、必要な関数を自前で作ることにした。
まず整除ができない。13を5で割ると商が2で余りが3という計算。余りならば % という剰余演算子があり、13%5=3 となるらしいが、負の数に対しては Perl の実装によって結果が変わる可能性があると書いてあった。何と言語仕様で決めてないのかあ。まあ、文字列がメインターゲットってことですよね、やっぱり。
整数部分を与える関数 int(x) というのはあるが、xがマイナスのときはガウス記号とは違って int(-3.2)=-3 のようになるらしい。ああ、これも使い物にならない。
そこで、整数部分(ガウス記号)を与える関数を準備。ついでなので、切り捨て(ガウス記号)と切り上げの両方を作ってみよう。日本ではあまり普及してない呼び名だが、floor (フロアー、床)、ceiling (シーリング、天井)と言われるもの。動作は次のようになる。
floor(3.14)=3、floor(3)=3、floor(-3.14)=-4
ceiling(3.14)=4、ceiling(3)=3、ceiling(-3.14)=-3
効率は考えずに、とりあえず動くことだけを考えて作成。
sukarabe
# floor function
# &floor(3.14)=3, &floor(3)=3, &floor(-3.14)=-4
sub floor {
my $x=$_[0];
my $n=int($x);
if ( $x==$n ) {
$n;
} elsif ( $x>0 ) {
$n;
} else {
$x= -$x;
$n=int($x);
$n+=1;
-$n;
}
}
# ceiling function
# &ceiling(3.14)=4, &ceiling(3)=3, &ceiling(-3.14)=-3
sub ceiling {
my $x=$_[0];
my $n=int($x);
if ( $x==$n ) {
$n;
} elsif ( $x > 0 ) {
$n+=1;
$n;
} else {
$x = -$x;
$n = int($x);
-$n;
}
}