我想为给定的input生成一个真值表.如果我给输入2输出将是假设的
10 01 11 00
如果输入为3,则输出为
111 000 110 101 011 100 001 010
我有一个代码片段
#!/usr/bin/perl
#print "a|b|c\n";
for $a (1,0){
for $b (1,0){
for $c (1,0) {
for $d ( 1,0)
{
print "$a $b $c $d";
#print $x = ($a & $b & $c);
print "\n";
}
}
}
}
print "\n";
上面的代码是4.
如果不编写多个for循环,我不知道如何做到这一点.这里的值为2我需要写两个for循环,依此类推.
任何机构都可以告诉我如何为几个输入值调整此代码.
任何帮助将非常感谢
解决方法
递归
这是一个使用递归的简单解决方案：
#!/usr/bin/perl -w
my $variables=$ARGV[0]||0;
show_combinations($variables);
sub show_combinations { my($n,@prefix)=@_;
if($n > 0) {
show_combinations( $n-1,@prefix,0);
show_combinations( $n-1,1);
} else {
print "@prefix\n";
}
}
以下是一些示例案例：
> script.pl 1 0 1 > script.pl 2 0 0 0 1 1 0 1 1 > script.pl 3 0 0 0 0 0 1 0 1 0 0 1 1 1 0 0 1 0 1 1 1 0 1 1 1