remove _ in names

This commit is contained in:
Ingy döt Net 2013-04-10 12:38:21 -07:00
parent 829db87c40
commit 3af7344581
1270 changed files with 0 additions and 18916 deletions

View file

@ -1,2 +0,0 @@
OPTION BASE 1
DIM myArray(100) AS INTEGER

View file

@ -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 */

View file

@ -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

View file

@ -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 ;

View file

@ -1 +0,0 @@
integer a (10)

View file

@ -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]);

View file

@ -1,2 +0,0 @@
$NumberArray = array(0, 1, 2, 3, 4, 5, 6);
$LetterArray = array("a", "b", "c", "d", "e", "f");

View file

@ -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

View file

@ -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

View file

@ -1,8 +0,0 @@
array = []
array.append(1)
array.append(3)
array[0] = 2
print array[0]

View file

@ -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

View file

@ -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)

View file

@ -1 +0,0 @@
#(1 2 3 'four' 5.0 true false nil (10 20) $a)

View file

@ -1,8 +0,0 @@
set ary {}
lappend ary 1
lappend ary 3
lset ary 0 2
puts [lindex $ary 0]