Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレat TECH

Perlでリクに答えるスクリプトを作るスレ - 暇つぶし2ch829:デフォルトの名無しさん
09/02/13 20:43:55
sub f {
my ($s, $d) = @_;
if ($d == 25) {
print $s, "\n";
}
else {
f($s.1, $d+1);
f($s.2, $d+1);
f($s.3, $d+1);
}
}

f('', 0);

次ページ

続きを表示

1を表示