Schnittmenge von 2 Arrays

5 Lösungen

Anfänger - Perl von Gustl - 06.08.2012 um 22:46 Uhr

Schreiben Sie ein Skript, das Sie auffordert 2 Integer-Arrays einzugeben. Aus diesen 2 Arrays soll dann ein drittes Array erzeugt werden, das nur die Elemente enthält, die in beiden Arrays vorkommen. Also die Schnittlänge dieser beiden Arrays.

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von EEK (460 Punkte) - 17.08.2016 um 09:14 Uhr

Perl-Code

#!/usr/bin/perl
use strict;
use warnings;

my @array_one;
my @array_two;
my @array_three;
my $fill_one = 'j';
my $fill_two = 'j';

print "Bitte Zahlen fuer das erste Array eingeben:\nBeenden mit 'e'\n";

while(1){
	chomp($fill_one = <STDIN>);
	if($fill_one eq 'e'){
		last;
	}else{
		push(@array_one, $fill_one);
	}
}

print "Bitte Zahlen fuer das zweite Array eingeben:\nBeenden mit 'e'\n";

while(1){
	chomp($fill_two = <STDIN>);
	if($fill_two eq 'e'){
		last;
	}else{
		push(@array_two, $fill_two);
	}
}

foreach my $numbers_one(@array_one){
	foreach my $numbers_two(@array_two){
		if($numbers_one == $numbers_two){
			push(@array_three, $numbers_two);
		}
	}
}

print "Die Schnittlaenge der beiden Arrays ist: ";
print "@array_three\n";