Stelle Aufgabe 4.2 fertig, verbessere Aufgabe 4.3HEADmaster

1 files changed, 14 insertions, 20 deletions

diff --git a/Aufgabe4/raetzelloesen.pl b/Aufgabe4/raetzelloesen.pl
index 8a4ec85..e7b0b07 100644
--- a/Aufgabe4/raetzelloesen.pl
+++ b/Aufgabe4/raetzelloesen.pl
@@ -79,24 +79,11 @@ $loesung = @word[ int rand @word];
 
  @erb = verwuerfeln($loesung,$schwirichkeit);
 
-print_raetsel(@erb);
-
-$eingabe = <> ; 
-
-
-while ( $eingabe ne $erb ) 
-{
-	print "Sehr gut!\nwillst du noch mal Spielen\nyes or no"
-	$eingabe = <>
-}
-
-
-sub print_raetsel {
-	my	( @arry )	= @_;
-
 	my $count = 0;
 
-foreach my $char ( @arry ) {
+
+	print $loesung . "\n";
+foreach my $char ( @erb ) {
 
 	if ( ( $count % 3 ) eq 0 )
 	{
@@ -107,7 +94,16 @@ foreach my $char ( @arry ) {
 	$count++;
 }
 
-} ## --- end sub print_raetsel
+$eingabe = <>;
+
+if($eingabe eq $loesung){
+	print "Das war richtig\n";
+}
+else {
+	print "Das war leider Flasch versuchen sie es erneut\n";
+	$eingabe = <>;
+}
+
 
 #===  FUNCTION  ================================================================
 #         NAME: verwuerfeln
@@ -149,11 +145,9 @@ sub verwuerfeln {
 		do {
 			$index1 = int rand $laenge;
 			$index2 = int rand $laenge;
-		} while ( $index1 eq $index2  );				# -----  end do-while  -----
+		} while ( $index1 == $index2  );				# -----  end do-while  -----
 
 		@ergebnis[$index1,$index2] = @ergebnis[$index2,$index1]; 
 	}
 	return @ergebnis;
 } ## --- end sub verwuerfeln
-
-