Перестроить список в список средних арифм. элементов

@Vlad_ · Регистрация: 07.09.2012

Студворк — интернет-сервис помощи студентам

Дан список чисел а₁....a_n. Получить список чисел b₁…b_n, где b_i – среднее арифметическое всех членов последовательности a₁….a_n, кроме a_i.Сделать нужно рекурсией.
Что получилось сделать:

Lisp
1
2
3
4
5
6
7
(DEFUN SUM (L)
(DO ( (S   0) )
( (NULL L) (setq K S))
(SETQ  S  (+  S  ( CAR L)  ) L  (CDR  L)  ) ) )
(DEFUN F(L1 L2)
       (COND ((NULL L1)L2)
         (T(SUM(L1)F(CDR L1)(CONS(CAR L1)L2)))))

но вызвать функцию для того чтобы посчитать просто сумму всех элементов не получилось.
Так же непонятно следующее:
Как получать текущий элемент и отнимать его от суммы в цикле?

@Catstail · 14.10.2015, 17:00

Lisp
1
2
3
4
5
6
7
8
9
(defun task (lst &optional (l (- (length lst) 1)) (s (apply '+ lst)))
  (cond ((null lst) nil)
        (t (cons (/ (- s (car lst)) l) (task (cdr lst) l s)))))
 
==> task
 
(task '(1 2 3 4 5 6))
 
==> (4 19/5 18/5 17/5 16/5 3)

@_sg · 14.10.2015, 17:08

Lisp
1
2
3
4
5
(defun aver-sine (w &optional (s (reduce #'+ w)) (n (1- (length w))))
  (when w (cons (float (/ (- s (car w)) n)) (aver-sine (cdr w) s n))))
 
> (aver-sine '(1 2 3 4 5))
(3.5 3.25 3.0 2.75 2.5)

@vlisp · 14.10.2015, 17:17

Может я не правильно понял, но для первого элемента списка среднее арифметическое не имеет смысла, так как "кроме"... для второго элемента списка СА - это первый элемент, для третьего - СА первого и второго. Если так, то:

Lisp
1
2
3
4
5
6
7
8
9
(defun test (lst &optional acc &aux (a (butlast lst)))
 (if (null (cdr lst))
   acc
   (test a (cons (/ (apply '+ a) (length a)) acc))))
 
==> test
(test '(1 2 4 6))
 
==> (1 3/2 7/3)

@_sg · 14.10.2015, 17:28

как вариант:

Lisp
1
2
3
4
5
6
7
8
(defun aver-sine (w
                  &optional
                  (s (reduce #'+ w))
                  (n (1- (length w))))
  (mapcar #'(lambda (a) (float (/ (- s a) n))) w))
 
> (aver-sine '(1 2 3 4 5))
(3.5 3.25 3.0 2.75 2.5)

Добавлено через 28 секунд

Lisp
1
2
3
4
5
6
7
8
(defun aver-sine (w
                  &optional
                  (s (reduce #'+ w))
                  (n (1- (length w))))
  (loop for a in w collect (float (/ (- s a) n))))
 
> (aver-sine '(1 2 3 4 5))
(3.5 3.25 3.0 2.75 2.5)

@Catstail · 14.10.2015, 17:59

Сообщение от vlisp

но для первого элемента списка среднее арифметическое не имеет смысла

- чем первый элемент "хуже" остальных?

@vlisp · 14.10.2015, 18:17

Сообщение от Catstail

чем первый элемент "хуже" остальных?

В том, что если он один... то без него нельзя посчитать среднее арифметическое
У _sg хороший вариант, но он не учитывает этот момент. Следовало бы добавить проверку "от дурака":

Lisp
1
2
3
4
5
(defun aver-sine (w
                  &optional
                  (s (reduce #'+ w))
                  (n (1- (length w))))
  (when (cdr w) (mapcar #'(lambda (a)  (/ (- s a) n 1e0)) w)))

@Catstail · 14.10.2015, 18:47

Сообщение от vlisp

Следовало бы добавить проверку "от дурака":

- это нетрудно сделать:

Lisp
1
2
3
4
(defun task (lst &optional (l (- (length lst) 1)) (s (apply '+ lst)))
  (cond ((<= l 1) nil)
           ((null lst) nil)
           (t (cons (/ (- s (car lst)) l) (task (cdr lst) l s)))))

@castorsky · 14.10.2015, 19:54

Lisp
1
2
3
4
5
6
7
8
;; racket-lang.org
(define (foo lst)
  (let ((len (sub1 (length lst)))
        (sum (apply + lst)))
    (map (lambda (i) (/ (- sum i) len)) lst)))
 
(foo '(1 2 3 4 5 6))
; '(4 3 4/5 3 3/5 3 2/5 3 1/5 3) тут перед дробями целая часть

Добавлено через 2 минуты

Lisp
1
2
3
4
5
6
7
8
;; racket-lang.org
(define (foo lst)
  (let ((len (sub1 (length lst)))
        (sum (apply + lst)))
    (map (lambda (i) (exact->inexact (/ (- sum i) len))) lst)))
 
(foo '(1 2 3 4 5 6))
; '(4.0 3.8 3.6 3.4 3.2 3.0)

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .