1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
# Copyright (C) 2007-2012, Parrot Foundation.
=pod
=head1 DESCRIPTION
A tutorial lesson about Parrot's arrays.
=head1 ARRAYS
PMC registers can contain array or hash data types, or more
advanced types based on these two. If a PMC type implements
the array or hash interfaces, they can be accessed using
integer or string keys.
An array is a type of PMC that contains a collection
elements indexed by number. Array indices must be integer
values, not floating point ones. Arrays also have a large
group of special opcodes that operate on them: C<push>,
C<pop>, C<shift>, and C<unshift>.
=cut
.sub main :main
.local pmc myarray
myarray = new ['ResizableStringArray']
myarray[0] = "Foo"
push myarray, "Bar"
unshift myarray, "Baz"
$S0 = join " ", myarray
say $S0
$S1 = myarray[2]
print $S1
print "'\n"
$S2 = pop myarray
say $S2
$S3 = shift myarray
say $S3
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|
