initial checkin from subversion

kombi-iter.pl

@@ -0,0 +1,31 @@
+#!/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");
+			}
+		}
+			
+	}
+
+}