Perlでdiff

Rに慣れてしまうと(ry
http://ja.doukaku.org/comment/4146/ にシンプル(かつトリッキーな?)コードがあったので使わせていただきます。

sub diff{ map { $_[$_] - $_[$_-1] } (1..$#_) }

http://ja.doukaku.org/49/lang/perl/などを見ていると、苦労の跡が見えて面白い。reduceを使えば綺麗に行けるかな、と思いきやイマイチすっきりしないみたい。reduceがスカラー変数だけじゃなくてリストを持てれば、もっと使えるのになあ・・・。