＊「ふっかつのじゅもんがちがいます。」

Buzzurlの中の人日記

Yahoo!ブックマークがソーシャルブックマークにリニューアルしたらしい。

なんかyahoo.co.jp内へのリンクだろうが外部ドメインへのリンクだろうが全部リダイレクト経由なのがものすごい不愉快。どこへ飛ぶのか分かりにくい。

あと不愉快以前にこれはセキュリティ的に問題があると思うんだけど。ウィルス作者が ttp://example.com/virus.exe をブックマークしたらどうするつもり？
Yahoo!の人たちはみんトピのときも同じようなことをしてたけど。

俺のリンクを見てくれ。こいつをどう思う？
Yahoo!ツールバーダウンロード！

すごく・・・危ないです・・・

とかやると一見yahoo.co.jpドメインなリンクのダウンロードダイアログを作れると思うんですが（このファイルはWindowsについてたcalc.exeですがダウンロード＆実行とかはしないでください）。

教訓は何かというと、ユーザが飛び先を任意に指定できるリダイレクタを作るとウィルス配布やフィッシング詐欺に使われる恐れがあるということである。
配布元を完全に詐称できるわけではないけど、実行しちゃう人は増えるだろう。
ド低脳な人/企業が何作ろうが知らんけど、心あるプログラマはそういうものを造らないようにしましょう。

2007/04/17 (Tue) security Trackback(0) Comment(1)

▲top

with文を使ってjavascriptでブロックスコープを実現する

amachang - JavaScript 入門を最初に見たときは見落としてたんだけど、javascript - 勝手に添削 - JavaScript入門でwith()は徹底的に避けるべしと言われている部分の奇妙なコードが気になって調べて見た。

var nl = document.getElementById('target02').getElementsByTagName('div');
for (var i = 0, l = nl.length; i < l; i ++) {
  var e = nl[i];
  with({e:e})
  setTimeout(function() {
    var box = new Box(e);
    box.start();
  }, i * 500);
}

amachang - JavaScript 入門

なんじゃこの with文？と思ったので色々試したり調べたりしてみた。

正しい挙動

withなし版

var nl = document.getElementById('target02').getElementsByTagName('div');
for (var i = 0, l = nl.length; i < l; i ++) {
  var e = nl[i];
  setTimeout(function() {
    var box = new Box(e);
    box.start();
  }, i * 500);
}

えっ？と一瞬思った。

正しい挙動では、3つの■が順番に動くのに、withなし版では最後の■しか動かない。

でもよくよく考えれば当たり前だ。

感覚の目でよ～く見てみろ！

withなし版がsetTimeoutに渡したクロージャが使うeは、全部同じ実行コンテキスト上のeを参照している。しがたってsetTimeoutがクロージャを呼び出すときにはループは終わってeはnl[nl.length-1]を参照してしまっていて、みんなして最後の■を動かしてしまう。~~つまりキングクリムゾンによって過程はすっ飛ばされ、結果だけが残る~~

withを使うと、ループ毎に作られる無名オブジェクト{e:e}がスコープチェーンの先頭に追加されるので、withブロックの中では単にeと書くとブロックローカルなe(=nl[i])を参照できるというわけ。つまりwithを使ってCライクなブロックスコープを実現している。これは知らなかった。

参考：JavaScript でブロックスコープを実現する: Days on the Moon

2007/04/13 (Fri) JavaScript Trackback(0) Comment(0)

▲top

Twitterが猛烈な勢いで広がっている（当社比）

Lingrは友達リストなしにこだわるべきではなかった、のかな？
まあ後から言うのは簡単だけど。

それにCometの開発/運用ノウハウがあるから、いまからでも軽くBetter Twitterになれるポテンシャルは秘めてるけど。

2007/04/12 (Thu) 未選択 Trackback(0) Comment(0)

▲top

標準偏差を求めるperl関数

標準偏差っていうのが何なのか、最近知りました。

標準偏差 - Wikipedia

こういう数式で表されます。

$￥sigma^2 = ￥frac{1}{n} ￥sum_{i=1}^{n}(x_i - ￥bar{x})^2$

ていうか、僕こういう数式にすごく抵抗あるんですよねぇ。

プログラムの方が理解しやすいかも。

標準偏差

これを見て、そういえばBuzzurlのタグクラウドを作るのに、標準偏差を基に重み付けをしたなあと思ってソースを見たら汚かったので書き直してみた。

普通に書くとこう。

#分散を求める。標準偏差が欲しい場合は戻り値をsqrt()
#average関数は自明なので省略
sub variance {
    my $num = scalar(@_) or return 0;
    my $ave = average(@_);
    my $ret = 0;
    while(@_){
        my $i = shift;
        $ret += ($i-$ave)**2;
    }
    return $ret/$num;
}

まあこれでいいんだけど長ったらしい。多少遅くなっていいとすれば、さらに短く書くほうがperlらしいかも？

#map/reduceを使うバージョン。
#ループが2回走る分、巨大な配列に対しては遅い。
use List::Util qw(reduce);
sub variance_mr {
    my $num = scalar(@_) or return 0;
    my $ave = average(@_);
    my $ret = reduce { $a + $b } map {($_ - $ave)**2} @_;
    return $ret/$num;
}

もっと遅くなってもいいなら、さらに短くこんなんでもいいかも。

#あらかじめmap内で濃度で割ってしまう版。
#割り算タイミングの問題で値が変わる場合がある。
sub variance_mr2 {
    my $num = scalar(@_) or return 0;
    my $ave = average(@_);
    return reduce { $a + $b } map {($_ - $ave)**2/$num} @_;
}