ishideoã®ãƒ–ックマーク / 2008å¹´10月22æ—¥ - ã¯ã¦ãªãƒ–ックマークPerlã®ARRAYã‚’Rubyã®Arrayã£ã½ã扱ã†ãŸã‚ã®ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ãŒã™ã§ã«ä¸‰å€‹ãらã„ã‚ã£ã¦å¤§äººæ°—ã§ã™ã． List::RubyLike List::Rubyish List::Enumerator ã“ã†ã„ã£ãŸãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使ã†ã¨ï¼Œ my @elems = map { $_ ** 2 } grep { $_ % 2 == 0 } (0..100); my $sum = 0; for my $n (@elems) { $sum += $n; } ã¨ã‹æ›¸ã„ã¦ã„ãŸã‚³ãƒ¼ãƒ‰ãŒ, # List::Rubyishã®å ´åˆ my $sum = List::Rubyish->new([0..100]) ->grep(sub{ $_ % 2 == 0}) ->map (sub{ $_ ** 2 }) ->reduce(sub { $_[0] + $_[1] }); ã¿ãŸã„ãªæ„Ÿã˜ã®ãƒ¡ã‚½ãƒƒãƒ‰ãƒã‚§ãƒ¼ãƒ³ã§æ›¸ã‘るよã†ã«ãªã£
より自然ã«Rubyã£ã½ãリストを書ã‘るモジュールを書ã„㟠- ã¯ã“ã¹ã«ã£ã ♨
{{#tags}}- {{label}}
{{/tags}}