Czy mogę zainicjować tablicę do podanego rozmiaru w Perlu?

Question

Mam sekcję w moim kodzie, gdzie wiem, że potrzebuję tablicy i wiem dokładnie, ile elementów będzie potrzebować ta tablica. Ta sekcja kodu będzie wielokrotnie powtarzana, więc mógłbym uzyskać bardzo duże oszczędności czasu, najpierw inicjując tę ​​tablicę do rozmiaru, który wiem, że będzie potrzebował, a następnie wypełniając go, a tylko naciskając elementy (pchanie byłoby O (n) w przeciwieństwie do wypełniania już utworzonych przestrzeni, które byłyby O (1)).

Powiedział, że nie mogę znaleźć żadnego eleganckiego sposobu inicjowania tablicy do danego rozmiaru i nie mam pojęcia dlaczego. Wiem, że można zrobić:

my @array; $array[49] =0;

dostać tablicę 50 pozycję, ale to wygląda bardzo brzydko do mnie i czuję się tak, choć nie musi być lepszy sposób. Pomysły?

Answer 1

Szczerze mówiąc, twoja droga jest całkiem niezła, ponieważ wyraźnie zmienia rozmiar tablicy: $#array = 49;;

Answer 2

Twoja droga jest świetna, podobnie jak DVK. Sposób wykonania tego w jednym poleceniu może być następujący:

@array = (0 .. 49);

Ale nie jestem pewien, czy jest bardziej elegancki, ponieważ przypisuje wartość od 1 do 49 dla każdego elementu, ale prawdopodobnie bardziej intuicyjnie jest zrozumieć programistę niezbyt dużo w składni Perla.

Answer 3

Ilekroć myślisz o zrobieniu tego typu optymalizacji, zrób profilowanie! Rezultat może nie być tym, czego oczekujesz. Na przykład, kiedyś następujący krótki skrypt, aby przetestować swoją teorię, że pre-alokacji tablicy jest szybsze:

for (my $loops = 0; $loops < 100000; $loops++) 
{ 
    my @arr; 

    for (my $foo = 0; $foo < 50; $foo++) { 
     push @arr, 'bar'; 
    } 
} 

To trwało 2.13 sekund.

for (my $loops = 0; $loops < 100000; $loops++) 
{ 
    my @arr; 
    $arr[49] = 0; 

    for (my $foo = 0; $foo < 50; $foo++) { 
     $arr[$foo] = 'bar'; 
    } 
} 

Zajęło to 2,16 sekundy (dwa razy wykonałem oba testy). Tak więc kończy się to byciem szybszym, aby po prostu pozwolić perlowowi na przydzielanie tablicy w razie potrzeby.

Aktualizacja

Po wprowadzeniu zmian sugerowanych przez ysth, numery zrobić trochę więcej sensu: 2.27 sekund metodą „push” oraz 2.21 do wstępnego przydziału. Mimo to, chciałbym zapytać, czy taka optymalizacja naprawdę zaoszczędziłaby kiedykolwiek (różnica wynosiła zaledwie 0,06 sekundy po 100 000 iteracji).

Answer 4

1. Pierwsza zasada Klubu Optymalizacji polega na tym, że nie Optymalizujesz.
2. Druga zasada Klubu Optymalizacji to: Nie Optymalizuj bez pomiaru.

Mierz, mierz, mierz przed pójściem i zakładaj, że możesz to zrobić szybciej przez oszukanie Perla. Perl optymalizował często użytkowanie o wiele dłużej niż Ty. Zaufaj temu.

Answer 5

Zamiast konkretnego zastosowania wartości UNDEF

my @array; 
$array[49] = undef; 

Answer 6

Preallocating może nie pomóc dużo z prędkością, ale może pomóc w powrocie pamięć do systemu, jeśli kawałki przeznaczone są na tyle duże