una pregunta sobre Common Lisp
-
27-09-2019 - |
Pregunta
Me estoy volviendo loco con un pequeño problema aquí,
Me aparece un error y me parece que no puede entender por qué,
el código se supone que cambiar el rango de una lista,
por lo que si le damos una lista con los valores (1 2 3 4)
y queremos cambiar el rango de 11 a catorce el resultado sería (11 12 13 14)
el problema es que la última función llamada scale-list
devolverá un error que dice:
Depurador entró - error Lisp: (tipo-argumento número equivocado, o marcador de p-nil)
alguien tiene una idea de por qué? Yo uso Aquamacs como editor gracias de antemano
;;finds minimum in a list
(defun minimum (list)
(car (sort list #'<)))
;;finds maximum in a list
(defun maximum (list)
(car (sort list #'>)))
;;calculates the range of a list
(defun range (list)
(- (maximum list) (minimum list)))
;;scales one value to another range
(defun scale-value (list low high n)
(+ (/ (* (- (nth (- n 1) list)
(minimum list))
(- high low))
(range list))
low))
;;is supposed to scale the whole list to another range
(defun scale-list (list low high n)
(unless (= n 0)
(cons (scale-value list low high n)
(scale-list list low high (- n 1)))))
(scale-list '(1 2 3 4) 21 24 4)
Solución
Las definiciones de máxima y mínima necesidad de ser mejorado. Sort es destructiva. También es incorrecto llamar ORDENAR con una constante literal como '(1 2 3 4) -. De nuevo, ORDENAR es destructivo
Definiciones Better:
(defun minimum (list)
(reduce #'min list))
(defun maximum (list)
(reduce #'max list))
Una definición más eficiente de la gama:
(defun range (list)
(loop for e in list
maximize e into max
minimize e into min
finally (return (- max min))))
ESCALA-LISTA DE ESCALA y valor son tampoco Lisp. Si llama NTH como esto en una función recursiva entonces algo está mal. Usted debe recursivo sobre la lista, no el índice. ESCALA-VALOR llama GAMA y mínimo de cada llamada. ¿Por qué?
Comprobar esta variante:
;;scales one value to another range
(defun scale-value (item low high min range)
(+ (/ (* (- item min)
(- high low))
range)
low))
;;is supposed to scale the whole list to another range
(defun scale-list (list low high)
(let ((min (minimum list))
(range (range list)))
(labels ((scale-list-aux (list)
(when list
(cons (scale-value (first list) low high min range)
(scale-list-aux (rest list))))))
(scale-list-aux list))))
(scale-list '(1 2 3 4) 21 24)
¿Qué se puede mejorar más? Por ejemplo, me gustaría deshacerse de la recursividad y reemplazarlo con mapcar.
Otros consejos
I re enviar el código porque algo salió mal ...
;;finds minimum in a list
(defun minimum(list)
(car (sort list #'<)))
;;finds maximum in a list
(defun maximum(list)
(car (sort list #'>)))
;;calculates the range of a list
(defun range(list)
(- (maximum list) (minimum list)))
;;scales one value to another range
(defun scale-value(list low high n)
(+ (/ (* (- (nth (- n 1) list) (minimum list)) (- high low)) (range list)) low))
;;is supposed to scale the whole list to another range
(defun scale-list(list low high n)
(unless (= n 0)
(cons (scale-value list low high n) (scale-list list low high (- n 1)))))
(scale-list '(1 2 3 4) 21 24 4)
Su seguimiento de la pila real es algo como:
-(nil 0.1)
(* (- (nth ... list) (minimum list)) (- high low))
(/ (* (- ... ...) (- high low)) (range list))
(+ (/ (* ... ...) (range list)) low)
scale-value((0.1) 20 30 3)
Creo que se determine un elemento enésimo mal y esto devuelve nil, lo que estropea la resta.