進捗が 67.7% に達しました。 2 / 3 終了です。もう少しじゃー。ちなみに進捗率は http://wiki.livedoor.jp/shin_yan/d/vimperator%202%2e0%20%a5%d8%a5%eb%a5%d7%cb%dd%cc%f5%a5%d7%a5%ed%a5%b8%a5%a7%a5%af%a5%c8?wiki_id=67820 の一番下の表をコピペして以下の Perl script で集計した数字です。ベタですねー。
面白いので参戦(プロジェクトのほうに参戦しろよ俺)
Io でやってみたよ!
(Regex and l := File openForReading(System args at(1)) contents allMatchesOfRegex("\\d+") map(at(0) asNumber)) and (l reduce(+) / l size) print
標準入力から得る方法がわからんので、ファイル指定…
だけど一行
list reduce(+) list map(at(0) asNumber)
のように出来るのが Io 的で面白い。
ワンライナー好きとして嫌だったので最初のようにしてみた。
let もあるでよ!
:echo let(l=$("//table//tr/td[2]").evaluate())(l.map($f.textContent().match(/\d+/)).map(parseFloat).value.reduce(function(a,b)a+b)/l.length)