5 件 見つかりました。

六本木というか西麻布かな。居酒屋がやっているランチです。品数多くし、おいしいしで、満足度が高いです。ここは当たり。
宿呂久 やどろく
http://r.tabelog.com/tokyo/A1307/A130701/13013722/
場所:東京都港区西麻布3-21-24 第五中岡ビル 2F
私は記事トップの写真の西京焼の定食を頂いたのですが、刺身までついてくる!嬉しすぎる!
これは一緒に行ったK氏ののっけ丼。刺身のお魚が増量でどんぶりになってる感じかな。
値段はなんでも1000円。ランチは最近始めたそうです。11:30から14:00までだって。

妻との連絡用に便利に使っていた iPhone アプリ「Beluga」が11月11日から使えなくなります。Facebook に買収されたのが原因。Facebook Messenger を使え、ということらしいです。でも妻は Facebook のアカウント持ってないからなあ。
- [を] 妻との連絡用ツールの一つとして iPhone に Beluga を入れてみた[2011-03-22-3]
ということで、代替アプリに移行しました。これです。
- RingReef
使い勝手はだいたい Beluga と同じです。我が家では何の苦もなく移行完了です。よかった、よかった。
さっそく妻とともに活用中です。例えばこれは育児メモ。食事、お風呂、昼寝、オムツなどを記録して育児に役立てています。
もちろん不満点はいくつかあります。入力フォームで複数行入力するとカーソルが下の方に行き過ぎて見えなくなっちゃうとか。でも、これから良くなっていくでしょう、と期待。
追記111127: 入力フォームの問題は11/21のアップデートで解決してました。素晴らしい!
ほぼ毎朝欠かさず作っているサラダの写真と材料メモを週に一度木曜日にまとめてブログ記事にしています。
妻子帰省のためしばらくお休みしていましたが今週から復活です。朝に一日1,2種類ずつ離乳食ストックを作っている関係で、火水木はその残りが追加されている状況です。
■11/7(月)
キュウリ
レタス
プチトマト
■11/8(火)
ブロッコリー(加熱)
キャベツ(加熱)
ソーセージ(加熱)
キュウリ
レタス
フライドオニオン
■11/9(水)
ニンジン(加熱)
ソーセージ(加熱)
キュウリ
レタス
プチトマト
■11/10(木)
サツマイモ(加熱)
ソーセージ(加熱)
キュウリ
レタス
プチトマト

うちの子の出生届を出しに行ったときに手続きした「子ども手当」ですが、政治的ないろいろでまた申請しなおしました。面倒ですねよねえ。
ref.
- [を] とらちゃんの出生届[2010-09-17-2]
「子ども手当」。
これは中学校修了まで月額1万3千円(現在)支給されるというもの。
ありがたや。
HITS とはハイパーリンク構造(リンクや被リンクなど)を用いてウェブページのスコアを計算する方法。Google で用いられている PageRank の仲間。
HITS は Authority score(以下、auth) と Hub score(以下、hub) の2種類のスコアを算出する。
| 0 | 1 | 2 | 3 | 4 | 5 | |
|---|---|---|---|---|---|---|
| | 1 | 1 | 1 | 1 | 1 | 1 |
| | 1 | 0 | 2 | 1 | 3 | 0 |
| | 5 | 1 | 3 | 0 | 3 | 3 |
| | 1 | 0 | 8 | 3 | 11 | 0 |
| | 19 | 1 | 11 | 0 | 11 | 11 |
#!/usr/bin/perl
use strict;
use warnings;
my $L_ref = [map {chomp; [split(/\s+/, $_)]} <DATA>];
my $Lt_ref = transpose($L_ref);
my $LtL_ref = multiply($Lt_ref, $L_ref);
print_matrix($LtL_ref);
my $x_ref;
foreach (@$L_ref) {
push @$x_ref, [1];
}
for (my $i = 0; $i < 20; $i++) {
$x_ref = normalize(multiply($LtL_ref, $x_ref));
}
print_vector($x_ref);
my $y_ref = normalize(multiply($L_ref, $x_ref));
print_vector($y_ref);
sub transpose {
my ($m_ref) = @_;
my @rv;
for (my $i = 0; $i < @$m_ref; $i++) {
for (my $j = $i; $j < @{$m_ref->[0]}; $j++) {
$rv[$j][$i] = $m_ref->[$i][$j];
$rv[$i][$j] = $m_ref->[$j][$i];
}
}
return \@rv;
}
sub multiply {
my ($m1_ref, $m2_ref) = @_;
my @rv;
for (my $i = 0; $i < @$m1_ref; $i++) {
for (my $j = 0; $j < @{$m2_ref->[0]}; $j++) {
for (my $z = 0; $z < @$m2_ref; $z++) {
$rv[$i][$j] += $m1_ref->[$i][$z] * $m2_ref->[$z][$j];
}
}
}
return \@rv;
}
sub normalize {
my ($v_ref) = @_;
my @rv;
my $sum = 0;
foreach my $i (@$v_ref) {
$sum += $i->[0];
}
foreach my $i (@$v_ref) {
push @rv, [$i->[0] / $sum];
}
return \@rv;
}
sub print_vector {
my ($m_ref) = @_;
print join("\n", map {sprintf "%.4f", $_->[0]} @$m_ref), "\n\n";
}
sub print_matrix {
my ($m_ref) = @_;
print join("\n", map {"@$_"} @$m_ref), "\n\n";
}
__DATA__
0 0 1 0 1 0
1 0 0 0 0 0
0 0 0 0 1 0
0 0 0 0 0 0
0 0 1 1 0 0
0 0 0 0 1 0
■実行例:上から、, auth, hub。
% ./naive-hits-mini.pl 1 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 1 0 0 0 1 1 0 0 0 0 1 0 3 0 0 0 0 0 0 0 0.0000 0.0000 0.3660 0.1340 0.5000 0.0000 0.3660 0.0000 0.2113 0.0000 0.2113 0.2113
データは前述のもの()を使っている。結果も前述のと同じとなった。

たつをの ChangeLog