Perl カップル成立のプログラミング

Question

Perlのプログラミングで質問です。
n人の男の子（0番からn-1番）と，n人の女の子（0番からn-1番）が合コンをする．
盛り上がって来たところで，男の子は気に入った女の子の番号を1人1個決め，女の子の方も気に入った男の子の番号を1人1個決める．
そして全員の番号を一斉に開示して，両想いだとカップル成立である．

@girl_to_boy = (4, 6, 1, 7, 3, 7, 3, 2, 4, 8);
$number_of_girls = @girl_to_boy; @boy_to_girl = (2, 7, 3, 9, 8, 7, 1, 0, 2, 1);
$number_of_boys = @boy_to_girl;

for ($i = 0; $i < $number_of_girls; $i++) {
for ($j = 0; $j < $number_of_boys; $j++) {
if (($girl_to_boy[$i] == $j) && ($boy_to_girl[$j] == $i)) {
print "couple: girl[$i] and boy[$j]\n";
}
}
}
このプログラムをforの二重ループではなく一重ループに直せという問題なのですが、分からないです。どなたか教えてください。

Comments

[mather]

学校の課題などであれば先生に質問しましょう。また、ソースコードはMarkdownのコードブロックを使ってください。

Answer 1

以下のようにしてください。

@girl_to_boy = (4, 6, 1, 7, 3, 7, 3, 2, 4, 8);
$number_of_girls = @girl_to_boy; @boy_to_girl = (2, 7, 3, 9, 8, 7, 1, 0, 2, 1);
$number_of_boys = @boy_to_girl;

for ($i = 0; $i < $number_of_girls; $i++) {
	$j = $girl_to_boy[$i];
	if ($boy_to_girl[$j] == $i){
		print "couple: girl[$i] and boy[$j]\n";
	}
}

Answer 2

ヒントです。

「配列の中に特定の要素が含まれるかどうか判定する関数」を使いましょう。