Return to sampleexternal.problem CVS log | Up to [LON-CAPA] / loncom / homework / templates |
version 1.6, 2013/05/06 12:21:27 | version 1.7, 2015/06/03 10:25:12 |
---|---|
Line 3 | Line 3 |
<script type="loncapa/perl"> | <script type="loncapa/perl"> |
sub fact { | sub fact { |
my $n=shift; | my $n=shift; |
if ($n==1) { | if ($n<=1) { |
return $n; | return 1; |
} else { | } else { |
return $n*&fact($n-1); | return $n*&fact($n-1); |
} | } |