32 lines
649 B
Perl
32 lines
649 B
Perl
#!/usr/bin/perl -W
|
|
|
|
$wort="1234";
|
|
$len=length($wort);
|
|
$wort0=$wort;
|
|
|
|
#1.stelle
|
|
for ($i1=0;$i1<length($wort0);$i1++) {
|
|
$a = substr($wort0,$i1,1);
|
|
$wort1 = substr($wort0, 0 ,$i1) . substr($wort0,$i1+1,length($wort0) - ($i1+1));
|
|
#
|
|
#2.stelle
|
|
for($i2=0;$i2<length($wort1);$i2++){
|
|
$b = substr($wort1,$i2,1);
|
|
|
|
#3.stelle
|
|
$wort2 = substr($wort1,0,$i2) . substr($wort1,$i2+1,length($wort1)-($i2+1));
|
|
for($i3=0;$i3<length($wort2);$i3++){
|
|
$c = substr($wort2,$i3,1);
|
|
|
|
#4.stelle
|
|
$wort3 = substr($wort2,0,$i3) . substr($wort2,$i3+1,length($wort2)-($i3+1));
|
|
for($i4=0;$i4<length($wort3);$i4++){
|
|
$d = substr($wort3,$i4,1);
|
|
print($a . $b . $c . $d . "\n");
|
|
}
|
|
}
|
|
|
|
}
|
|
|
|
}
|