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

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

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

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

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

1. 기초적인 문법

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/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 

?

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl   use strict; use warnings;   my @i =(1..100) ; my $sum=0; map{$sum+=$_} @i; print "$sum \n";

3. 간단한 방법 (GoldBio님)

?

1 2 3 4 5 6 7

#!/usr/bin/perl use strict; use warnings;   my $sum; $sum+=$_ for 1..100; print "$sum\n";