アルゴリズムを学ぼうP48の問題： 戦略１をperlで書く。コピー回数のカウント用。

array.pl

#!/usr/bin/env perl
use strict;
use warnings;

# 戦略1: 10だけ大きくした配列を作る戦略

my $array_ref =[('undef') x 10];
my $count = count();
run($ARGV[0]);

sub run {
  my $case = shift;
  my $item = 1;
  for (1 .. $case) {
    my $index = $_ - 1;
    $array_ref = insertItem($array_ref, $index, $item);
  }
  print "$caseの場合: ";
  print $count->() -1, "回\n";
}

sub count {
  my $i = 0;
  return sub{
      $i++;
      return $i;
  };
}

sub insertItem {
  my $array_ref = shift;
  my $index = shift;
  my $item = shift;

  if (@$array_ref <= $index){

    # 新しい配列を作成
    my $new_array_ref = [ ('undef') x (@$array_ref + 10) ];

    # 新しい配列に全てコピー
    foreach (0 .. @$array_ref - 1){
      $new_array_ref->[$_] = $item;
      $count->();
    }
    $new_array_ref->[$index] = $item;
    $count->();
    return $new_array_ref;
  }
  
  $array_ref->[$index] = $item;
  $count->();
  
  return $array_ref;
}