Загрузка не удалась. Возможно, проблемы с правами доступа?
мета-данные страницы
Различия
Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слеваПредыдущая версияСледующая версия | Предыдущая версия | ||
| perl:ex0 [09/10/2012 16:42] – vlasov | perl:ex0 [09/10/2012 17:48] (текущий) – vlasov | ||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| $m = 8; | $m = 8; | ||
| - | print "\n test m= $m" | + | print "\n test m= $m, m!=" |
| sub fakt | sub fakt | ||
| { | { | ||
| my($n) = $_[0]; | my($n) = $_[0]; | ||
| - | if($n<0) die " | + | if($n< |
| # необходимо добавить проверку на нецелые и нечисловые аргументы | # необходимо добавить проверку на нецелые и нечисловые аргументы | ||
| - | unless($n) return(1) | + | unless($n) |
| - | else return( $n*fakt($n-1) ); | + | else {return( $n*fakt($n-1) )}; |
| } | } | ||
| </ | </ | ||