История изменений

Исправление ~~kompospec~~, 27.09.21 13:09 (текущая версия) :

#!/usr/bin/perl
 
print stepen(3,-2);
 
 
sub stepen{
  $ym = abs($_[1]);
  $x1=1;
  for($i=0;$i<$ym;++$i){
    $x1 *= $_[0];
    }
 
  if($_[1]<0) {$x1 = 1/$x1}
  return $x1;
  }

Исходная версия ~~kompospec~~, 27.09.21 13:08:

#!/usr/bin/perl

print stepen(3,-2);

sub stepen{ $ym = abs($[1]); $x1=1; for($i=0;$i<$ym;++$i){ $x1 *= $[0]; }

if($_[1]<0) {$x1 = 1/$x1} return $x1; }