過去の記事 - 氾濫原

プログラムを書くときには、単に自己表現をしているのではなく、コンパイラが理解できるように書くものです。「これはコンパイラが理解できるだろうか」と絶えず自問しながら書くわけです。同じことは人間が読む文章にも当てはまります。多くの人が読んで理解できるように書く必要があり、そのためにはどういう言い方をすべきかと考え、読者の目にどう見えるか想像する必要があります。どうしたら理解してもらえるかよく考えることです。

http://codezine.jp/a/article/aid/2292.aspx?p=2

またこのヒトカヨーって思って疑いながら (なんかあんまり好きじゃない) 読みはじめたらおもしろかった。

❤️ 投げ銭する

✖

12:44

なんかすごい憤りを感じるというか、人間的にその発言ってどうなの、って感じだ……

✖

photo

13:19

❤️ 投げ銭する

Good Dog Happy Men / DVD

13:41

なんかでるらしい。すごい楽しみだ!

たのしみがふえた。というか今年こそちゃんとライブに行きたい……

2008年 03月 12日

石

00:40

靴の見えないところに入っていて、歩くたびにかかとをつっつく石を取り除いた。

あれhaやばい

13:33

ヤクルト吹いた。いまからすげー不安だ＼(^o^)／

Perl のリスト、ハッシュのマージ、reduce メモ

subtech

22:51

Ruby での

require "pp"

data = [
	{ :name => "foo", :value => 1 },
	{ :name => "bar", :value => 2 },
	{ :name => "baz", :value => 3 },
]


pp data.inject(0) {|r,i| r + i[:value] }

pp data.inject({}) {|r,i| r.update( i[:name] => i ) }

__END__
6
{"baz"=>{:value=>3, :name=>"baz"},
 "foo"=>{:value=>1, :name=>"foo"},
 "bar"=>{:value=>2, :name=>"bar"}}

use List::Util qw/reduce/;

use Data::Dumper;
sub p ($) { print Dumper shift }

my $data = [
	{ name => "foo", value => 1 },
	{ name => "bar", value => 2 },
	{ name => "baz", value => 3 },
];

p reduce { $a + $b->{value} } 0, @$data;

p reduce { +{ %$a, $b->{name} => $b } } {}, @$data;

__END__
$VAR1 = 6;
$VAR1 = {
          'bar' => {
                     'value' => 2,
                     'name' => 'bar'
                   },
          'baz' => {
                     'value' => 3,
                     'name' => 'baz'
                   },
          'foo' => {
                     'value' => 1,
                     'name' => 'foo'
                   }
        };

引数のとりかた的に Perl は初期値の与えかたが自然な感じがする。

❤️ 投げ銭する

関連エントリー