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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
#! ../src/ngraph -i
STATUS=0
show_result() {
if [ "$2" = "$3" ]
then
echo "OK. ($1)"
else
echo "error. ($1) $2 $3"
STATUS=1
fi
}
new sarray
sarray::delimiter=",+"
sarray::split "1,,2,,3,,4,,5,,6,,7,,8,,9,,0,,9,,8,,7,,6,,5,,4,,3,,2,,1"
s="${sarray::join}"
show_result "join" "$s" "1,2,3,4,5,6,7,8,9,0,9,8,7,6,5,4,3,2,1"
sarray::rsort
s="${sarray::join}"
show_result "rsort" "$s" "9,9,8,8,7,7,6,6,5,5,4,4,3,3,2,2,1,1,0"
sarray::sort
s="${sarray::join}"
show_result "sort" "$s" "0,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9"
sarray::uniq
s="${sarray::join}"
show_result "uniq" "$s" "0,1,2,3,4,5,6,7,8,9"
s="${sarray::seq}"
show_result "seq" "$s" "0 1 2 3 4 5 6 7 8 9"
s="${sarray::rseq}"
show_result "rseq" "$s" "9 8 7 6 5 4 3 2 1 0"
s="${sarray::pop}"
show_result "pop" "$s" "9"
s="${sarray::join}"
show_result "pop" "$s" "0,1,2,3,4,5,6,7,8"
sarray::push "9"
s="${sarray::join}"
show_result "push" "$s" "0,1,2,3,4,5,6,7,8,9"
s="${sarray::shift}"
show_result "shift" "$s" "0"
s="${sarray::join}"
show_result "shift" "$s" "1,2,3,4,5,6,7,8,9"
sarray::unshift "0"
s="${sarray::join}"
show_result "unshift" "$s" "0,1,2,3,4,5,6,7,8,9"
s="${sarray::get:-2}"
show_result "get" "$s" "8"
sarray::reverse
s="${sarray::join}"
show_result "reverse" "$s" "9,8,7,6,5,4,3,2,1,0"
sarray::@="1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1"
sarray::slice 1 3
s="${sarray::join}"
show_result "slice" "$s" "2,3,4"
sarray::@="1 2 3 4 5 6 7 8 9 0 9 8 7 6 5 4 3 2 1"
sarray::slice -4 3
sarray::reverse
s="${sarray::join}"
show_result "slice" "$s" "2,3,4"
sarray::@="0 9 8 7 6 5 4 3 2 1"
sarray::put -4 -4
s="${sarray::join}"
show_result "put" "$s" "0,9,8,7,6,5,-4,3,2,1"
sarray::@="0 9 8 7 6 5 4 3 2 1"
sarray::put 4 -4
s="${sarray::join}"
show_result "put" "$s" "0,9,8,7,-4,5,4,3,2,1"
sarray::@="0 9 8 7 6 5 4 3 2 1"
sarray::ins -4 100
s="${sarray::join}"
show_result "ins" "$s" "0,9,8,7,6,5,100,4,3,2,1"
sarray::@="0 9 8 7 6 5 4 3 2 1"
sarray::ins 4 100
s="${sarray::join}"
show_result "ins" "$s" "0,9,8,7,100,6,5,4,3,2,1"
exit $STATUS
|
