1.	<GALiRe font:verdana;fontsize:10;>
2.	
3.	<title>GScript and AScript Equalization<end title>
4.	
5.	<table border:1;padding:5;spacing:0;width:700;>
6.		<row>
7.			<cell>
8.			<?AScript
9.	
10.			@myArray=("happy","sad",2,"done");
11.			$good="andrea";
12.			add("allison") to(@myArray);
13.			add("$good and stuff") to(@myArray);
14.			print("myArray contains: @myArray<new>");
15.			remove(3) from(@myArray);
16.			print("After removing index #3, myArray now contains: @myArray");
17.	
18.			$len=lengthOf($good);
19.			print("<new><new>The length of \"andrea\" is: $len");
20.	
21.			?>
22.			<end cell>
23.		<end row>
24.	
25.	
26.		<row>
27.			<cell>
28.			<?
29.	
30.			@myArray=("happy","sad",2,"done");
31.			$good="andrea";
32.			add("allison") to(@myArray);
33.			add("$good and stuff") to(@myArray);
34.			print("myArray contains: @myArray<new>");
35.			remove(3) from(@myArray);
36.			print("After removing index \#3, myArray now contains: @myArray");
37.	
38.			$len=lengthOf($good);
39.			print("<new><new>The length of \"andrea\" is: $len");
40.	
41.			?>
42.			<end cell>
43.		<end row>
44.	<end table>
45.	
46.	
47.	<new><new><new>
48.	
49.	
50.	<table border:1;padding:5;spacing:0;width:700;>
51.		<row>
52.			<cell>
53.			<?AScript
54.	
55.			$var1="happy ";
56.			$index=lastIndexOf("p") in($var1);
57.			print("Last index of 'p' in happy is: $index");
58.	
59.			print("<new>");
60.	
61.			$var1="happy ";
62.			$index=indexOf("p") in($var1);
63.			print("Index of 'p' in happy is: $index");
64.	
65.			?>
66.			<end cell>
67.		<end row>
68.	
69.	
70.		<row>
71.			<cell>
72.			<?GScript
73.	
74.			$var1="happy ";
75.			$index=lastIndexOf("p") in($var1);
76.			print("Last index of 'p' in happy is: $index");
77.	
78.			print("<new>");
79.	
80.			$var1="happy ";
81.			$index=indexOf("p") in($var1);
82.			print("Index of 'p' in happy is: $index");
83.	
84.			?>
85.			<end cell>
86.		<end row>
87.	<end table>
88.	
89.	
90.	<new><new><new>
91.	
92.	
93.	<table border:1;padding:5;spacing:0;width:700;>
94.		<row>
95.			<cell>
96.			<?AScript
97.	
98.			@myArray=(5,10,196,530,69);
99.			$var1=solve(lengthof("5")+1);
100.			print("@myArray <new><new>");
101.			$removed = remove($var1) from(@myArray);
102.			print("$removed");
103.			print "<new><new>@myArray";
104.	
105.			?>
106.			<end cell>
107.		<end row>
108.	
109.	
110.		<row>
111.			<cell>
112.			<?GScript
113.	
114.			@myArray=(5,10,196,530,69);
115.			$var1=solve(lengthof("5")+1);
116.			print("@myArray <new><new>");
117.			$removed = remove($var1) from(@myArray);
118.			print("$removed");
119.			print "<new><new>@myArray";
120.	
121.			?>
122.			<end cell>
123.		<end row>
124.	<end table>
125.	
126.	
127.	<new><new><new>
128.	
129.	
130.	<table border:1;padding:5;spacing:0;width:700;>
131.		<row>
132.			<cell>
133.			<?AScript
134.			@arry=("Florida","Allison","Andrea","love");
135.			@arry2=multiply(@arry) by(3);
136.			print @arry2;
137.			?>
138.			<end cell>
139.		<end row>
140.	
141.	
142.		<row>
143.			<cell>
144.			<?GScript
145.			@arry=("Florida","Allison","Andrea","love");
146.			@arry2=duplicate(@arry,3x);
147.			print @arry2;
148.			?>
149.			<end cell>
150.		<end row>
151.	<end table>
152.	
153.	
154.	<new><new><new>
155.	
156.	
157.	<table border:1;padding:5;spacing:0;width:700;>
158.		<row>
159.			<cell>
160.			<?AScript
161.			@arry=("Florida","Allison","Andrea","love");
162.			print select(0-1) from(@arry) + "<new>";
163.			print select(0,1) from(@arry) + "<new>";
164.	
165.			$goodness="Good things happen to bad people";
166.			print select(5-11) from($goodness) + "<new>";
167.			$goodness="Good things happen to bad people";
168.			print select(5,11) from($goodness);
169.			?>
170.			<end cell>
171.		<end row>
172.	
173.	
174.		<row>
175.			<cell>
176.			<?
177.			@arry=("Florida","Allison","Andrea","love");
178.			print select(0-1) from(@arry) + "<new>";
179.			print select(0,1) from(@arry) + "<new>";
180.	
181.			$goodness="Good things happen to bad people";
182.			print select(5-11) from($goodness) + "<new>";
183.			$goodness="Good things happen to bad people";
184.			print select(5,11) from($goodness);
185.			?>
186.			<end cell>
187.		<end row>
188.	<end table>
189.	
190.	
191.	<new><new><new>
192.	
193.	
194.	<table border:1;padding:5;spacing:0;width:700;>
195.		<row>
196.			<cell>
197.			<?AScript
198.			@arry=("Florida","Allison","Andrea","love");
199.			remove(0-1) from(@arry);
200.			print "@arry<new>";
201.	
202.			@arry=("Florida","Allison","Andrea","love");
203.			remove(0,1) from(@arry);
204.			print "@arry<new><new>";
205.	
206.			@arry=("Florida","Allison","Andrea","love");
207.			print remove(0-1) from(@arry) + "<new>";
208.	
209.			@arry=("Florida","Allison","Andrea","love");
210.			print remove(0,1) from(@arry);
211.			?>
212.			<end cell>
213.		<end row>
214.	
215.	
216.		<row>
217.			<cell>
218.			<?
219.			@arry=("Florida","Allison","Andrea","love");
220.			remove(0-1) from(@arry);
221.			print "@arry<new>";
222.	
223.			@arry=("Florida","Allison","Andrea","love");
224.			remove(0,1) from(@arry);
225.			print "@arry<new><new>";
226.	
227.			@arry=("Florida","Allison","Andrea","love");
228.			print remove(0-1) from(@arry) + "<new>";
229.	
230.			@arry=("Florida","Allison","Andrea","love");
231.			print remove(0,1) from(@arry);
232.			?>
233.			<end cell>
234.		<end row>
235.	<end table>
236.	
237.	
238.	<new><new><new>
239.	
240.	
241.	<table border:1;padding:5;spacing:0;width:700;>
242.	<row>
243.	<cell>
244.	<?AScript
245.	$sum=0;
246.	
247.	$var1=0;while ($var1 < 3) {$var1++;
248.	$var2=0;while ($var2 < 4) {$var2++;
249.	
250.	if (0) {print "&addNum(5)<new>";}
251.	else if (0) {
252.	
253.	if (0) {print "&addNum(1)<new>";}
254.	else if (0) {print "&addNum(2)<new>";}
255.	else {print "&addNum(3)<new>";}
256.	
257.	}
258.	else {print "&addNum(15)<new>";}
259.	
260.	
261.	}
262.	print "<new>";
263.	}
264.	
265.	print uc("geeze") + "dude!";
266.	
267.	
268.	method addNum($num1) {
269.	$sum = solve($num1+$sum);
270.	return $sum;}
271.	
272.	?>
273.	<end cell>
274.	<end row>
275.	
276.	
277.	<row>
278.	<cell>
279.	<?GScript
280.	$sum=0;
281.	
282.	$var1=0;while ($var1 < 3) {$var1++;
283.	$var2=0;while ($var2 < 4) {$var2++;
284.	
285.	if (0) {print "&addNum(5)<new>";}
286.	else if (0) {
287.	
288.	if (0) {print "&addNum(1)<new>";}
289.	else if (0) {print "&addNum(2)<new>";}
290.	else {print "&addNum(3)<new>";}
291.	
292.	}
293.	else {print "&addNum(15)<new>";}
294.	
295.	
296.	}
297.	print "<new>";
298.	}
299.	
300.	print uc("geeze") + "dude!";
301.	
302.	
303.	method addNum($num1) {
304.	$sum = solve($num1+$sum);
305.	return $sum;}
306.	
307.	?>
308.	<end cell>
309.	<end row>
310.	<end table>
311.	
312.	
313.	
314.	</GALiRe>



Back to /SampleHost/