decrement-list-members
Name
decrement-list-members -- Decrement each member of a list
Synopsis
(decrement-list-members vlist #!optional (decr 1) (floor 0))
Description
Decrement all the values of a list by decr, not to fall below floor.
- vlist
- The list of values.  All the values of this list should be numeric. 
- decr
- The amount by which each element of the list should be decremented.
The default is 1. 
- floor
- The value below which each member of the list is not allowed to fall.
The default is 0. 
Source Code
(define (decrement-list-members vlist #!optional (decr 1) (floor 0))
  ;; Decrement each member of a list
  (map (lambda (a) 
	 (if (<= a (+ decr floor))
	     floor
	     (- a decr)))
       vlist))