1 665c255d 2023-08-04 jrmu (define (scale-list items factor)
2 665c255d 2023-08-04 jrmu   (if (null? items)
3 665c255d 2023-08-04 jrmu       nil
4 665c255d 2023-08-04 jrmu       (cons (* (car items) factor)
5 665c255d 2023-08-04 jrmu 	    (scale-list (cdr items) factor))))
6 665c255d 2023-08-04 jrmu (scale-list (list 1 2 3 4 5) 10)