(define (average ....)) in Lisp

Question

Я просто играю со схемой/lisp и думал о том, как я буду править своим собственным определением average. Я не уверен, как сделать некоторые вещи, которые, как мне кажется, необходимы.

• определить процедуру, которая принимает произвольное число аргументов
• подсчитывать эти аргументы
• проходит список аргументов в (+), чтобы подвести их вместе

ли кто-то есть пример определения average? Я, кажется, не знаю достаточно о LISP, чтобы сформировать веб-поиск, который возвращает результаты, которые я ищу.

Answer 1

определение было бы очень просто один лайнер, но не испортив его, вы должны смотреть в:

• «отдых» аргумент - это (define (foo . xs) ...xs...) определяет foo как функцию, которая принимает любое число аргументов, и они доступны в виде списка, который будет иметь значение xs.

• length возвращает длину списка.

• apply принимает функцию и список значений и применяет функцию к этим значениям.

Когда вы получите, что вы можете пойти на более:

• увидеть функцию foldl, чтобы избежать применения списка на потенциально очень большой список (это может иметь значение в некоторых реализациях, где длина списка аргументов ограничено, но это не будет иметь большого значения в Racket).

• Обратите внимание, что Racket имеет точные рациональные решения, и вы можете использовать exact->inexact, чтобы сделать более эффективную версию с плавающей запятой.

---

---

---

---

И спойлеры:

• (define (average . ns) (/ (apply + ns) (length ns)))

• Сделать это требуется на е аргумент: (define (average n . ns) (/ (apply + n ns) (add1 (length ns))))

• Использование foldl: (define (average n . ns) (/ (foldl + 0 (cons n ns)) (add1 (length ns))))

• Сделать это использовать с плавающей точкой: (define (average n . ns) (/ (foldl + 0.0 (cons n ns)) (add1 (length ns))))

Answer 2

В Common Lisp, это выглядит, как вы можете сделать:

 
(defun average (&rest args) 
    (when args 
    (/ (apply #'+ args) (length args)))) 

хотя я понятия не имею, если &rest доступен на все реализации Лиспа. Ссылка here.

Ввод этого кода в результаты GNU CLISP в:

 
[1]> (defun average (&rest args) 
     (when args 
     (/ (apply #'+ args) (length args)))) 
AVERAGE 
[2]> (average 1 2 3 4 5 6) 
7/2 

, который 3,5 (правильный).

Answer 3

В схеме, я предпочитаю использовать список вместо «остальное» аргумент, потому что аргумент остальные делает следующие процедуры осуществления, такие как следующие:

> (define (call-average . ns) 
    (average ns)) 
> (call-average 1 2 3) ;; => BANG! 

Упаковка произвольного количества аргументов в список позволяет выполнять любую операцию списка по аргументам. Вы можете делать больше с меньшим синтаксисом и путаницей. Вот моя схема версии average, которые принимают 'п' аргументы:

(define (average the-list) 
    (let loop ((count 0) (sum 0) (args the-list)) 
    (if (not (null? args)) 
     (loop (add1 count) (+ sum (car args)) (cdr args)) 
     (/ sum count)))) 

Вот та же самая процедура в Common Lisp:

(defun average (the-list) 
    (let ((count 0) (sum 0)) 
    (dolist (n the-list) 
     (incf count) 
     (incf sum n)) 
    (/ sum count))) 

Answer 4

Две версии в Common Lisp:

(defun average (items) 
    (destructuring-bind (l . s) 
     (reduce (lambda (c a) 
       (incf (car c)) 
       (incf (cdr c) a) 
       c) 
       items 
       :initial-value (cons 0 0)) 
    (/ s l))) 

(defun average (items &aux (s 0) (l 0)) 
    (dolist (i items (/ s l)) 
    (incf s i) 
    (incf l))) 

Answer 5

На схеме R5RS:

(define (average . numbers) 
    (/ (apply + numbers) (length numbers)))