home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / lang / lisp / 3172 < prev    next >
Encoding:
Text File  |  1993-01-05  |  1.3 KB  |  38 lines
  1. Newsgroups: comp.lang.lisp
  2. Path: sparky!uunet!spool.mu.edu!torn!nott!bnrgate!bcars267!news
  3. From: emcoop@bnr.ca (hume smith)
  4. Subject: Re: Re: Lucid Lisp complains about this code fragment
  5. Message-ID: <21495.1993Jan5.094839@bcars148>
  6. Sender: news@bnr.ca (usenet)
  7. Nntp-Posting-Host: bcars148
  8. Organization: Bell-Northern Research, Ottawa, Canada
  9. X-Poster: Emacs-NNTP-0.1
  10. References: <1ibjv0INN2pk@early-bird.think.com> <1iat18INNii@MINERVA.CIS.YALE.EDU>
  11. Date: Tue, 5 Jan 1993 14:48:39 GMT
  12. Lines: 24
  13.  
  14. In <1ibjv0INN2pk@early-bird.think.com>, barmar@think.com (Barry Margolin) said:
  15. > In Common
  16. > Lisp, if you don't want TWEAK to be in the global namespace, you should
  17. > write:
  18. > 
  19. > (defun add-noise-to-list-of-numbers (l)
  20. >   (flet ((tweak (x)
  21. >            (+ x
  22. >           (- (* (random 1000) .0001) .05))))
  23. >     (mapcar #'tweak l)))
  24.  
  25. you could also say
  26.  
  27. (defun add-noise-to-list-of-numbers (l)
  28.   (mapcar #'(lambda (x) (+ x (* (random 1000) .0001) -.05)) l))
  29.  
  30. but that may be less efficient - for instance, in XLisp, each time
  31. add-noise-to-list-of-numbers is called a new closure is made.  i think.
  32. --
  33. Hume Smith                      Wenn ich des Tages nicht dreimal
  34. hume.smith@acadiau.ca           mein Schaelchen Coffee trinken darf,
  35. emcoop@bnr.ca                   so werd' ich ju zu meiner Qual
  36.                                 wie ein verdorrtes Ziegenbraetchen.
  37.  
  38.