6 lines
150 B
Common Lisp
6 lines
150 B
Common Lisp
(defun maprange (a1 a2 b1 b2 s)
|
|
(+ b1 (/ (* (- s a1) (- b2 b1)) (- a2 a1))))
|
|
|
|
(dotimes (i 10)
|
|
(princ (maprange 0.0 10.0 -1.0 0.0 i))
|
|
(terpri))
|