Help for this page

Select Code to Download

Select or download this

sub repeat {
  my ($n,$x) = @_;
...
  @{$array} = ($x) x $n;
  return $array;
}