1 665c255d 2023-08-04 jrmu (defun square-list-solo (items)
 2 665c255d 2023-08-04 jrmu   (if (null items)
 3 665c255d 2023-08-04 jrmu       nil
 4 665c255d 2023-08-04 jrmu       (cons (square (car items))
 5 665c255d 2023-08-04 jrmu 	    (square-list-solo (cdr items)))))
 6 665c255d 2023-08-04 jrmu (defun square-list-map (items)
 7 665c255d 2023-08-04 jrmu   (mapcar #'square items))
 8 665c255d 2023-08-04 jrmu 
 9 665c255d 2023-08-04 jrmu (defun square-list-iter (items)
10 665c255d 2023-08-04 jrmu   (labels (
11 665c255d 2023-08-04 jrmu 	   (iter (things answer)
12 665c255d 2023-08-04 jrmu 	     (format t "~A - ~A~%" things answer)
13 665c255d 2023-08-04 jrmu 	     (if (null things)
14 665c255d 2023-08-04 jrmu 		 answer
15 665c255d 2023-08-04 jrmu 		 (iter (cdr things)
16 665c255d 2023-08-04 jrmu 		       (cons (square (car things))
17 665c255d 2023-08-04 jrmu 			     answer)))))
18 665c255d 2023-08-04 jrmu     (iter items nil)))
19 665c255d 2023-08-04 jrmu (print (square-list-iter '(1 2 3 4)))