2010-03-03から1日間の記事一覧

[perl][再帰]

use strict; use warnings; my @data = ( [qw/1 2 3/], [qw/1 2 3/], [qw/1 2 3/], ); &loop(0); sub loop { my ($index,@nums) = @_; unless( $data[$index] ) { print join("\t",@nums) . "\n"; return; } for my $v ( @{$data[$index]} ) { &loop($index+…