2007-04-19から1日間の記事一覧

Array#eachっぽいのを実装

プロトタイプ宣言の練習にRubyのeachを書いてみた。 sub myeach(&@) { my ($block, @array) = @_; for my $item (@array) { &$block($item); } return [@array] } 実行結果は以下の通り、 pirl @> myeach { my $item = shift; printf("%d\n", $item * $item)…