컴퓨터 엑셀 워드 포토숍 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Previous Post 펄.Perl] 문자열 합치기, 문자열 연결/추가/병합: String Concatenate우분투 리눅스] 한글/한자 입력키 - Linux Hangul Hanja Input Key우분투 리눅스] 텍스트 모드만 설치하는 CD; GUI 없는 서버 버전, Ubuntu Lin...VMware] 윈도우용 비디오 드라이버 설정/설치법, VM웨어 Video Card Driv...도스 텍스트 파일과, 유닉스 텍스트 파일의 차이점: DOS-UNIX Text File엑셀 시트를 아스키 파일/텍스트 파일로 저장: Excel xls save to ASCII ...우분투.리눅스] gcc 설치하기/C컴파일러 설치법, Ubuntu Linux gcc Inst...리눅스/Cygwin] bash 파일명 자동완성 사용법, bash File Name Auto...리눅스/Cygwin] file 명령의 용도/기능/사용법, Linux file Command...HTML 공백문자 추가하는 특수기호/코드. 빈 칸(스페이스;Space) 여러 개 적는 법

펄.Perl] 숫자 배열에서, 최소값 최대값 찾기 - Find Min Max Value

Monday, October 16, 2006

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;
}



☞ Perl(펄)

0 Comments:

Post a Comment

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Categories
Previous Posts
Monthly Archives
Top