lisp - ) ( T (cons( car lis ) (cdr lis ) )) )) (defun...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Sheet1 Page 1 (defun myappend(L1 L2) (cond ((NULL L1) L2) ((NULL L2) L1) (T (CONS (CAR L1) (myappend (CDR L1) L2))) )) (defun mylast(lis) (cond ((null (cdr lis)) (car lis)) (T (mylast(cdr lis)) ) )) (defun mylist(lis) (cond ( (null (cdr lis)) (car lis)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ) ( T (cons( car lis ) (cdr lis ) )) )) (defun unnest(lis) (cond ( (atom (car lis)) (unnest (car lis)) ) ( (not(null (cdr (car lis)))) (unnest (car lis)) ) ( T ( (car lis) (unnest(cdr lis)) ) ) )) sdfle...
View Full Document

Ask a homework question - tutors are online