PROGRAM 4


;  FILENAME:  PROGRAM4.LSP      AUTHOR:  ANTHONY F. ORTIZ
;  THIS PROGRAM SOLVES 1A), 1B), AND 1C).

;  THIS FUNCTION CALLS THE FUNCTION (RETURN-X1).
(DEFUN FUNCTION1 ()
    (RETURN-X1))

;  SOLVES PROBLEM 1A.
(DEFUN RETURN-X1 ()
    (CAR (CDR (CDR ALIST))))

;  THIS FUNCTION CALLS THE FUNCTION (RETURN-X2).
(DEFUN FUNCTION2 ()
    (RETURN-X2))

;  SOLVES PROBLEM 2A.
(DEFUN RETURN-X2 ()
    (CAR (CAR (CDR (CAR (CDR ALIST))))))

;  THIS FUNCTION CALLS THE FUNCTION (RETURN-X3).
(DEFUN FUNCTION3 ()
    (RETURN-X3))
        
;  SOLVES PROBLEM 3A.        
(DEFUN RETURN-X3 ()
    (CAR (CAR (CDR (CAR (CDR (CAR (CAR ALIST))))))))

;  OUTFILE:  PROG4.OUT

XLISP version 2.0, Copyright (c) 1988, by David Betz
; loading "init.lsp"
> (load "program4.lsp")
; loading "program4.lsp"
T
> (setq alist '(a b c d e))
(A B C D E)
> (function1)
C
>




BACK TO CS3120 PAGE.