[comp.lang.lisp] MAKE-LENGTH-LIST

mandel@forwiss.uni-passau.de (Luis Mandel) (02/20/91)

Try with this:

(defun  make-length-list (coord)
	 (if (null coord) nil
		  (cons (- (cadr (car coord)) (caar coord))
				(make-length-list (cdr coord)) 
		  )
	 )
)

It is more or less the naive version.

--
Luis Mandel                         Bayerisches Forschungszentrum
mandel@forwiss.uni-passau.de        Fuer Wissensbasierte Systeme
Schiesstattweg 53A                  Innstrasse 33
W8390-Passau                        W8390-Passau
Germany                             Germany
Tel part:(0851)  7-2416             Tel ofic:(0851) 509-533
-- 
Luis Mandel                                mandel@forwiss.uni-passau.de