home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / lisp / 2435 < prev    next >
Encoding:
Internet Message Format  |  1992-09-15  |  2.3 KB
  1. Path: sparky!uunet!gatech!asuvax!farallon!danny.farallon.com!user
  2. From: danny@farallon.com (Danny Brewer)
  3. Newsgroups: comp.lang.lisp
  4. Subject: Re: copy-array?
  5. Message-ID: <danny-150992090432@danny.farallon.com>
  6. Date: 15 Sep 92 14:00:36 GMT
  7. References: <9209142212.AA24213@brownie.cs.wisc.edu>
  8. Sender: news@farallon.farallon.com
  9. Followup-To: comp.lang.lisp
  10. Organization: Farallon Computing, Inc.
  11. Lines: 54
  12. Nntp-Posting-Host: danny
  13.  
  14. In article <9209142212.AA24213@brownie.cs.wisc.edu>, so@CS.WISC.EDU (Bryan
  15. S. So) wrote:
  16. > 
  17. > The only algorithm I have is to make a new array then
  18. > assign the elements one by one.  Is there an easier/
  19. > more efficient method to do this?
  20. > 
  21.  
  22. That's what I concluded myself.  I wrote the following
  23. function which makes a new array and copies the elements
  24. of the old array into it.  I use two temporary vectors
  25. displaced to the arrays so that I treat the copy like
  26. a sequence.
  27.  
  28. About a year ago this question of copying arrays came
  29. up and I posted this code.  Someone suggested that I
  30. use REPLACE instead of DOTIMES because it might be
  31. more efficient.  I tried this which resulted in more
  32. than doubling the speed.  If you pass in a copier
  33. function, then the DOTIMES method is used so that
  34. the copier function can process each element.
  35.  
  36.  
  37. (DEFUN Copy-Array (array &KEY copierFn)
  38.   "Make a new array which is a copy of the original."
  39.   (LET* (
  40.          (arrayType (ARRAY-ELEMENT-TYPE array))
  41.          (arraySize (ARRAY-TOTAL-SIZE array))
  42.          (newArray (MAKE-ARRAY (ARRAY-DIMENSIONS array)
  43.                                :ELEMENT-TYPE arrayType
  44.                                :ADJUSTABLE (ADJUSTABLE-ARRAY-P array)))
  45.          (source (MAKE-ARRAY arraySize
  46.                              :ELEMENT-TYPE arrayType
  47.                              :DISPLACED-TO array))
  48.          (dest (MAKE-ARRAY arraySize
  49.                            :ELEMENT-TYPE arrayType
  50.                            :DISPLACED-TO newArray))
  51.          )
  52.     (IF copierFn
  53.       (DOTIMES (i arraySize)
  54.         (SETF (ELT dest i) (FUNCALL copierFn (ELT source i))))
  55.  
  56.       ;; If no copierFn was supplied, then use REPLACE
  57.       ;;  because the compiler might generate much more
  58.       ;;  efficient code for it.
  59.       (REPLACE dest source))
  60.     newArray))
  61.  
  62.  
  63. Sorry I didn't use dashes in the variable names, but I
  64. wrote this a long time ago.
  65.  
  66. Danny Brewer
  67. danny@farallon.com
  68.