åºæ¬ ããã°ã©ã¹ã½ã¼ã¹ä½¿ã£ãæçãé£ã¹ãã cho45 ã§ããPerl ã¨ããã°æMMOã²ã¼ã ã¨åæã«èµ·åã§ããªãããã°ã©ã ã¨ãã¦æåã§ããä»åã¯ããã¨ã¯é¢ä¿ãªã話ã§ãã Ruby å¨ã®å¤ãã inject å¨ã§ããæ°ããã¾ã (ã¦ãã¨ã¼ã§ã) ãã Perl 㧠List::Util::reduce ã使ã£ã¦ããã¨ãããããã¾ãè¦ããã¨ããªãã®ã§ããã¤ã便å©ãªä¾ãç´¹ä»ãã¾ãã reduce ã¯ä½ãã¨ããã¨ãªã¹ãã1ã¤ã®å¤ã«çºãããã®ã§ããä¾ãã°ãªã¹ãã®è¦ç´ ã®åè¨ã¯ use Perl6::Say; use List::Util qw/reduce/; my $list = [1, 2, 3, 4, 5]; say reduce { say "$a,$b"; $a + $b } @$list; 1,2 3,3 6,4 10,5 15 ååã®ã«ã¼ãã®è¿ãå¤ã $a ã«å ¥ãã$b ã«ã¯æ®ãã®è¦ç´
{{#tags}}- {{label}}
{{/tags}}