-2
노드 사이의 가장 가까운 거리를 찾고 싶습니다. 나는에서 가장 가까운 거리를 찾으려는 노드 2 노드 1에서 5의 가장 가까운 거리노드 사이의 가장 가까운 거리 찾기
노드, 배, 예를 들어 Y
1, 3, 5 2, 6, 9 3, 13, 15 4, 16, 20 5, 30, 50
됩니다 여기
내 샘플 데이터입니다 모든 노드는 노드 2,3,4,5와 같다.어떻게 이것을 펄에서 구현할 수 있습니까? 여기
는 내가 지금까지 무엇을 가지고 :use strict;
use warnings;
use Data::Dumper;
open(IN , "<" , "sample.txt") or die "Can't open this file.";
my @two_dimentional_array;
while (my $line=<IN>)
{
my @arr_line=split (" *, *" , $line);
my @one_dimentional_array;
push @one_dimentional_array , @arr_line;
push @two_dimentional_array, [@arr_line];
}
for(my $i=0 ; $i<=$#two_dimentional_array ; $i++)
{
my ($n_1 , $X_1 , $y_1)[email protected]{$two_dimentional_array[$i]};
for (my $j=0 ; $j<=$#two_dimentional_array ; $j++)
{
my ($n_2 , $X_2 , $y_2)[email protected]{$two_dimentional_array[$j]};
chomp($y_1);
chomp($y_2);
if($n_1 != $n_2)
{
my $distance=sqrt(($X_2-$X_1)**2 + ($y_2-$y_1)**2);
print "Distance ".$distance." from node ".$n_1." to node ".$n_2."\n";
}
}
}
#print Dumper(\@two_dimentional_array);
그때 내가 그것을 impliment 수있는 방법을 해시를 사용하고자하는 선생님? –
@FaisalHashmi : 해시를 왜 사용 하시겠습니까? – Borodin