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

 
Previous Post Vim Vi Gvim 다른 이름으로 저장, 새 이름으로 파일 저장 명령어; Save As ...자바스크립트] 문자열을 배열로 변환, 요소 분리하여 저장; Split String Java...자바스크립트] 배열을 문자열로 변환, 요소 합치기; Join Array JavaScript...자바스크립트] 1차원 배열 선언, 초기화, 출력; Array JavaScript자바스크립트] 2차원 배열 만들기, 초기화, 출력 (배열의 배열); Two Dimensio...Excel/엑셀] 셀 글자색, 배경색 지정, 변경하는 법; Foreground, Backg...Perl/펄] 텍스트 파일 각 행을, 랜덤하게 무작위로 뒤섞기; Text File Rand...Perl/펄] 파일 끝에서부터 거꾸로 읽기; Text File Read BackwardExcel/엑셀] 셀 세로 쓰기, 글자 방향 경사(기울기)를 45도 각도로; Vertica...Excel/엑셀] 셀 합계, 산술 평균 값 구하기 함수; SUM(총액), AVERAGE

Perl/펄] 배열 합계, 산술 평균 구하기; Array Sum, Average (Mean)

Saturday, February 10, 2007

펄에서 숫자로 된 배열의 합계와 평균을 구하는 함수입니다.

sum() 과 average() 라는 함수가 다른 모듈 속의 같은 이름의 함수와 충돌하지 않게끔, 함수명 뒤에 밑줄(_; 언더스코어)을 넣어 주었습니다. 적당한 다른 이름으로 변경하여 사용해도 됩니다.

펄에서, 합계와 평균 계산 함수 사용 예제


파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;

  # 숫자 배열 정의
  my @a = qw( 22 5 46 6 0 1 55 );


  print sum_(@a), "\n";      # 합계 구하기
  # 출력 결과: 135

  print average_(@a), "\n";  # 평균 구하기
  # 출력 결과: 19.2857142857143




# 합계 구하기 함수
sub sum_ {
  my $result = 0.0;

  for (my $i = 0; $i <= $#_; $i++) {
    $result += $_[$i];
  }

  return $result;
}


# 평균 구하기 함수
sub average_ {
  return "NaN" if ($#_ < 0); # 빈 배열일 경우의 에러 처리

  my $result = 0.0;

  for (my $i = 0; $i <= $#_; $i++) {
    $result += $_[$i];
  }

  return $result / ($#_ + 1);
}



펄의 기본 모듈인 List::Util 을 사용하여, 다음과 같이 합계를 구할 수도 있습니다. 그렇지만 평균을 구하는 함수는 내장되어 있지 않더군요.
#!/usr/bin/perl
use strict; use warnings;

use List::Util qw( sum );


  # 숫자 배열 정의
  my @a = qw( 22 5 46 6 0 1 55 );


  print sum @a;




▶▶ Perl/펄] 표준 편차 구하기/계산 함수; Standard Deviation Function

☞ 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