سؤال حول lisp المشترك
-
27-09-2019 - |
سؤال
أشعر بالجنون مع مشكلة صغيرة هنا ، وأواصل الحصول على خطأ وأبدو أنه لا يمكنني معرفة السبب ، من المفترض أن يغير الكود نطاق القائمة ، لذلك إذا قدمناها قائمة ذات قيم (1 2 3 4)
ونريد تغيير النطاق في 11 إلى أربعة عشر والنتيجة ستكون (11 12 13 14)
المشكلة هي أن الوظيفة الأخيرة تسمى scale-list
سيعيد خطأ قول:
أدخل مصحح الأخطاء-خطأ في ذلك: (رقم خاطئ من النوع أو العلامة N NIL)
أي شخص لديه أدنى فكرة لماذا؟ أستخدم Aquamacs كمحرر شكرًا مقدمًا
;;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)
المحلول
يجب تحسين تعريفات الحد الأقصى والحد الأدنى. الفرز مدمر. من الخطأ أيضًا استدعاء الفرز مع ثابت حرفي مثل "(1 2 3 4) - مرة أخرى ، النوع مدمر.
تعريفات أفضل:
(defun minimum (list)
(reduce #'min list))
(defun maximum (list)
(reduce #'max list))
تعريف أكثر كفاءة للنطاق:
(defun range (list)
(loop for e in list
maximize e into max
minimize e into min
finally (return (- max min))))
قائمة المقياس وقيمة المقياس ليست مثل lisp. إذا اتصلت بـ Nth مثل هذا في وظيفة عودية ، فسيكون هناك خطأ ما. يجب أن تتكرر على القائمة ، وليس الفهرس. نطاق مكالمات القيمة المقياس والحد الأدنى لكل مكالمة. لماذا ا؟
تحقق من هذا البديل:
;;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)
ماذا يمكنك تحسين أكثر؟ على سبيل المثال ، سوف أتخلص من العودية واستبداله بـ MAPCAR.
نصائح أخرى
أعيد نشر الكود لأن هناك خطأ ما ...
;;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)
تتبع المكدس الفعلي الخاص بك هو شيء مثل:
-(nil 0.1)
(* (- (nth ... list) (minimum list)) (- high low))
(/ (* (- ... ...) (- high low)) (range list))
(+ (/ (* ... ...) (range list)) low)
scale-value((0.1) 20 30 3)
أظن أنك تحدد عنصرًا خاطئًا nth وهذا يعود لا شيء ، والذي يفسد الطرح.