http://movapic.com/fn7/pic/520289

foldr,foldlのサンプル foldr (-) 4 [1, 2, 3] -- 1 - (2 - (3 - 4)) == -2 foldl (-) 1 [2, 3, 4] -- ((1 - 2) - 3) - 4 == -8perlで実装 sub foldr{ my ($func,$init,@list) = @_; my ($x,@rest) = @list; return $init unless $x; $func->($x,foldr($func…

't'を1000個ならべたものを1行として 1行のファイル、101行のファイル,201行のファイル、、、1001行のファイルを作成する for(my $n=1;$n<= 1001;$n+= 100){ open my $t,">","text/$n.txt"; $a=0; while($a++ < $n){ print $t 't'x1000; print $t "\n"; } cl…