Re: [PATCH] use tail pointer for LOOP

[Thien-Thi Nguyen]

() address@hidden
() Thu, 17 Jun 2010 11:22:32 +0200

   Cute. You all are successfully keeping me from work. Enjoing it ;-)

   Here are the results. Attached the modified source.

     copy1: (1.058881 5 0.7366780000000048)
     copy2: (1.27958 6 0.8913360000000026)
     copy3: (1.337353 6 0.9249420000000015)

   Still the reverse version is the winner. Yours seems to be a tad slower
   (although I wouldn't know whether it's in the noise).

   But  it looks so sharp ;-)

How about this one?

(defun copy4 (lst)
  "Return a copy of LST."
  (let* ((box (list nil))
         (tp box))
    (while lst
      (setq tp (setcdr tp (list (pop lst)))))
    (cdr box)))

thi