Singly linked list operations...

public class IntList { // Names of simple Containers public int head; public IntList tail; // Constructor function /** List Cell containing (HEAD, TAIL). */ public IntList (int head, IntList tail) { this.head = head; //Scheme car this.tail = tail; //Scheme cdr } /* Converts an Array of Integers into a Linked List with * the same elements. * @param: an Array of integers with > 1 elements */ static IntList makeList (int a []) { IntList X, Z; X = new IntList (a[0], null); int i; for (i = 1, Z = X; i < a.length ; i++, Z = Z.tail){ Z.tail = new IntList (a[i], null); } return X; } /* Recursive Version */ static IntList makeListr (int a []) { int i = 0; IntList X, Z; X = new IntList (a[0], null); Z = X; Z = makelistrhelper (X, a, ++i); return X; } static IntList makelistrhelper (IntList Z, int a [], int i) { if (i > a.length -1 ){ return Z; } else { Z.tail = new IntList (a[i], null); return makelistrhelper (Z.tail, a, ++i); } } static int countList (IntList Z) { int countL = 0; countL = countListH (Z, countL); return countL; } static int countListH (IntList Z, int countL){ if (Z == null) return countL; else { return countListH (Z.tail, ++countL); } } static void printList (IntList Z) { int i = 0; IntList M; for (M = Z; M != null; M = M.tail ) { System.out.println("Head" + "-" + i +" ---- " + M.head); i++; } } /** List of all items in P incremented by n. */ static IntList incrList (IntList P, int n) { if (P == null) return null; else return new IntList (P.head+n, incrList (P.tail, n)); } /** Iterative version */ static IntList incrListIterative (IntList P, int n) { if (P == null) return null; IntList result, last; result = last = new IntList (P.head+n, null); while (P.tail != null) { P = P.tail; last.tail = new IntList (P.head+n, null); last = last.tail; } return result; } /** List of all items in P incremented by n. May destroy original. */ static IntList dincrList (IntList P, int n) { if (P == null) return null; else { P.head += n; P.tail = dincrList (P.tail, n); return P; } } /** For version */ static IntList forDincrList (IntList L, int n) { // for is more than a loooooooooper. for (IntList p = L; p != null; p = p.tail ) p.head += n; return L; } /** The List resulting from removing all instances of X * from L non-destructively */ static IntList removeAll (IntList L, int x){ if (L == null) return null; else if (L.head == x) return removeAll (L.tail, x); else return new IntList (L.head, removeAll (L.tail, x)); } static IntList removeAllIterative (IntList L, int x) { IntList result, last; result = last = null; for ( ; L != null; L = L.tail){ /* L != null and I is true. */ if (x == L.head) continue; else if (last == null) result = last = new IntList (L.head, null); else last = last.tail = new IntList (L.head, null); } return result; /** Here, I is the Loop Invariant: * Result of all elements of L0 not equal to X up to * and not including L, and last points to the last * elements of result, if any. We use L0 here to mean * "the original value of L." * */ } }