[ create a new paste ] login | about

Link: http://codepad.org/DJIaHY2M    [ raw code | output | fork ]

ajiyoshi - Perl, pasted on Apr 15:
1
2
3
4
5
#自分で書く必要はない
use strict;
use List::Util qw/reduce/;
print reduce { $a + $b } (1 .. 10);
print reduce { $a . $b } ("a", "b", "c");


Output:
1
55abc


Create a new paste based on this one


Comments: