remove _ in names
This commit is contained in:
parent
829db87c40
commit
3af7344581
1270 changed files with 0 additions and 18916 deletions
|
|
@ -1,2 +0,0 @@
|
|||
OPTION BASE 1
|
||||
DIM myArray(100) AS INTEGER
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
int myArray2[10] = { 1, 2, 0 }; /* the rest of elements get the value 0 */
|
||||
float myFloats[] ={1.2, 2.5, 3.333, 4.92, 11.2, 22.0 }; /* automatically sizes */
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
array1 = []
|
||||
array1[0] = "Dillenidae"
|
||||
array1[1] = "animus"
|
||||
array1[2] = "Kona"
|
||||
alert "Elements of array1: " + array1 # Dillenidae,animus,Kona
|
||||
|
||||
array2 = ["Cepphus", "excreta", "Gansu"]
|
||||
alert "Value of array2[1]: " + array2[1] # excreta
|
||||
|
|
@ -1,7 +0,0 @@
|
|||
create MyArray 1 , 2 , 3 , 4 , 5 , 5 cells allot
|
||||
here constant MyArrayEnd
|
||||
|
||||
30 MyArray 7 cells + !
|
||||
MyArray 7 cells + @ . \ 30
|
||||
|
||||
: .array MyArrayEnd MyArray do I @ . cell +loop ;
|
||||
|
|
@ -1 +0,0 @@
|
|||
integer a (10)
|
||||
|
|
@ -1,3 +0,0 @@
|
|||
int[] array = new int[10]; //optionally, replace "new int[10]" with a braced list of ints like "{1, 2, 3}"
|
||||
array[0] = 42;
|
||||
System.out.println(array[3]);
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
$NumberArray = array(0, 1, 2, 3, 4, 5, 6);
|
||||
$LetterArray = array("a", "b", "c", "d", "e", "f");
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
(setq A '((1 2 3) (a b c) ((d e) NIL 777))) # Create a 3x3 structure
|
||||
(mapc println A) # Show it
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
singleassignment:-
|
||||
functor(Array,array,100), % create a term with 100 free Variables as arguments
|
||||
% index of arguments start at 1
|
||||
arg(1 ,Array,a), % put an a at position 1
|
||||
arg(12,Array,b), % put an b at position 12
|
||||
arg(1 ,Array,Value1), % get the value at position 1
|
||||
print(Value1),nl, % will print Value1 and therefore a followed by a newline
|
||||
arg(4 ,Array,Value2), % get the value at position 4 which is a free Variable
|
||||
print(Value2),nl. % will print that it is a free Variable followed by a newline
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
array = []
|
||||
|
||||
array.append(1)
|
||||
array.append(3)
|
||||
|
||||
array[0] = 2
|
||||
|
||||
print array[0]
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
/*REXX program demonstrates array usage. */
|
||||
a.='not found' /*value for all a.xxx (so far). */
|
||||
|
||||
do j=1 to 100 /*start at 1, define 100 array elements.*/
|
||||
a.j=-j*100 /*define element as negative J thousand.*/
|
||||
end /*the above defines 100 elements. */
|
||||
|
||||
say 'element 50 is:' a.50
|
||||
say 'element 3000 is:' a.3000
|
||||
|
|
@ -1,11 +0,0 @@
|
|||
// Create a new integer array with capacity 10
|
||||
val a = new Array[Int](10)
|
||||
|
||||
// Create a new array containing specified items
|
||||
val b = Array("foo", "bar", "baz")
|
||||
|
||||
// Assign a value to element zero
|
||||
a(0) = 42
|
||||
|
||||
// Retrieve item at element 2
|
||||
val c = b(2)
|
||||
|
|
@ -1 +0,0 @@
|
|||
#(1 2 3 'four' 5.0 true false nil (10 20) $a)
|
||||
|
|
@ -1,8 +0,0 @@
|
|||
set ary {}
|
||||
|
||||
lappend ary 1
|
||||
lappend ary 3
|
||||
|
||||
lset ary 0 2
|
||||
|
||||
puts [lindex $ary 0]
|
||||
Loading…
Add table
Add a link
Reference in a new issue