3 # Reference implementation for dynamic array testing.
10 if ($F[0] eq "push") {
12 } elsif ($F[0] eq "unshift") {
14 } elsif ($F[0] eq "pop") {
21 } elsif ($F[0] eq "shift") {
25 my $n = int(shift(@a));
28 } elsif ($F[0] eq "insert") {
31 } elsif ($F[0] eq "append") {
34 } elsif ($F[0] eq "delete") {
41 } elsif ($F[0] eq "reduce") {
48 } elsif ($F[0] eq "set") {
50 for (my $i = @a; $i < $F[1]; $i++) { $a[$i] = -1; }
52 $a[$F[1]] = int($F[2]);
53 } elsif ($F[0] eq "get") {
57 print int($a[$F[1]]), "\n";
59 } elsif ($F[0] eq "show") {
61 print join(" ", map int, @a), "\n";