[Perl] 문법을 활용해서 1 부터 100까지 합 구하기

언어를 시작 하다 보면 자주 나오는 문제들이기도 하지만 조금만 생각 하면 언어에 조금씩 접근 할 수 있는 방법을 제공 하기도 합니다.

그럼 본론으로 들어가서 대한민국 최초 Perl 카페에서 문제를 제공 했습니다.

naver cafe : http://cafe.naver.com/perlstudy.cafe?iframe_url=/ArticleRead.nhn%3Farticleid=88

문제는 1부터 100까지 합을 계산하는 방법입니다.

1. 기초적인 문법

#!/usr/bin/perl

use strict;
use warnings;

my $sum=0;
my $i=1;

while($i <= 100) {

$sum += $i;
$i++

}
print "$sum \n";

2. map 기초적인 문법

  - 위와 같이 @i =(1..100) 에서 1~100까지 배열에 삽입하고 map 이용하여 배열의 요소를 각각 더하여 $sum 합한 최종 값을 가지게 됩니다.

  - 참고 문서 : http://aero.springnote.com/pages/994336 

 #!/usr/bin/perl

use strict;
use warnings;

my @i =(1..100) ;
my $sum=0;
map{$sum+=$_} @i;
print "$sum \n";

3. 간단한 방법 (GoldBio님)

 #!/usr/bin/perl
use strict;
use warnings;

my $sum; 
$sum+=$_ for 1..100; 
print "$sum\n";