![[BACK]](/icons/back.gif){kind=icon}
Return to sampleexternal.problem CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / templates|
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); |
| } | } |