Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!mcsun!corton!ircam!duthen
From: duthen@ircam.fr (Jacques Duthen)
Newsgroups: comp.lang.lisp
Subject: Re: lost soul needs help with trivial code.
Message-ID: <1991Feb21.125011.10971@ircam.fr>
Date: 21 Feb 91 12:50:11 GMT
References: <OWHITE.91Feb19091907@haywire.nmsu.edu>
Distribution: comp
Organization: IRCAM, Paris (France)
Lines: 12

In article <OWHITE.91Feb19091907@haywire.nmsu.edu> owhite@nmsu.edu (smouldering dog) writes:
>make-length-list gets a cons-list like ((100 200) (300 400) (455 526))
>and I just want it to return a cons-list (100 100 71).

(defun make-length-list (coord)
  (mapcar #'(lambda (elt) (abs (- (second elt) (first elt)))) coord))

(make-length-list '((100 200) (300 400) (455 526)))
;= (100 100 71)

; Welcome to Lisp world !
							[jack]