進捗率計算プロジェクト

iolanguage Vimperator

進捗が 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)