'Recursive subroutine'에 해당되는 글 1건

  1. 2014.12.19 [Perl] 재귀함수
Perl2014.12.19 15:39

숫자를 한개 입력하여, 그 숫자의 계승을 계산하는 프로그램을 재귀(?)를 사용하여 만들을것.(3-A) 

(再呼び出し:재귀 호출:Recursive Call)

자기자신을 호출하는 것. 

[1부터 10까지의 숫자를 합계한다. ]


use strict;

use warnings;


my $num;

my $cal = 0;


print "Please enter the number. ";


$num = <STDIN>;

chomp $num;


Factorial ($num);

print "result : " . $cal . "\n";


sub Factorial {

$num = shift;


$cal += $num;

$num--;

if ($num > 0) {

Factorial ($num);

}

}



7-e.pl


신고

'Perl' 카테고리의 다른 글

[Perl] hanoi  (0) 2014.12.19
[Perl] 재귀함수  (0) 2014.12.19
[Perl] 홀수 짝수 Subroutine  (0) 2014.12.19
[Perl] Subroutine parameter  (0) 2014.12.19
[Perl] Subroutine  (0) 2014.12.19
[Perl]STDIN, while, for, if  (0) 2014.11.19
Posted by Namseungil

티스토리 툴바