Re: Ex. 3.5 in ACL

Zachary Beane wrote:
 

   (defun mapcar-pos+ (list)
     (let ((i -1))
       (mapcar #'(lambda (elt) (+ elt (incf i)))

 
Truly abysmal ignorance or willful stupidity.
 
The #' is redundant.
 

 

iteration:
 
(defun pos+ (lst)
   (setf acc NIL)
   (setf i 0)
   (dolist (obj lst)
; i know, instead of append, i could do a cons and reverse afterwards...
     (progn (setf acc (append acc (list (+ obj i))))
       (setf i (+ i 1))))
   acc)

 
I'd prefer LOOP here:
 
   (defun loop-pos+ (list)
     (loop for i from 0
           for elt in list
           collect (+ elt i)))

 
Gauche Scheme: