Monday, October 16, 2006
펄.Perl] 숫자 배열에서, 최소값 최대값 찾기 - Find Min Max Value
펄의 배열에 대한 게시물입니다.
List::Util 모듈 속의 max, min 함수를 쓰지 않고, 순수한 펄 코드로, 숫자 배열 속의 최소값 요소 최대값 요소를 찾는 것입니다. List::Util 모듈보다는 속도가 떨어지겠지만, 소팅을 하여 최소값 최대값을 찾는 것보다는 빠릅니다.
List::Util 모듈 속의 max, min 함수를 쓰지 않고, 순수한 펄 코드로, 숫자 배열 속의 최소값 요소 최대값 요소를 찾는 것입니다. List::Util 모듈보다는 속도가 떨어지겠지만, 소팅을 하여 최소값 최대값을 찾는 것보다는 빠릅니다.
최소값 최대값 찾기 예제
#!/usr/bin/perl
use strict; use warnings;
my @n = qw( 36 36463641.31 124 634 72.8 5021525 0.0 77 8765 -356 0 561 );
print "최소값(Min) 출력: ", &getMin(@n), "\n"; # 결과: -356
print "최대값(Max) 출력: ", &getMax(@n), "\n"; # 결과: 36463641.31
sub getMin {
my $min = $_[0];
for (my $i = 1; $i <= $#_; $i++) {
$min = $_[$i] if ($_[$i] < $min);
}
return $min;
}
sub getMax {
my $max = $_[0];
for (my $i = 1; $i <= $#_; $i++) {
$max = $_[$i] if ($_[$i] > $max);
}
return $max;
}
use strict; use warnings;
my @n = qw( 36 36463641.31 124 634 72.8 5021525 0.0 77 8765 -356 0 561 );
print "최소값(Min) 출력: ", &getMin(@n), "\n"; # 결과: -356
print "최대값(Max) 출력: ", &getMax(@n), "\n"; # 결과: 36463641.31
sub getMin {
my $min = $_[0];
for (my $i = 1; $i <= $#_; $i++) {
$min = $_[$i] if ($_[$i] < $min);
}
return $min;
}
sub getMax {
my $max = $_[0];
for (my $i = 1; $i <= $#_; $i++) {
$max = $_[$i] if ($_[$i] > $max);
}
return $max;
}
tag: perl
Perl | 펄
<< Home