Программа со вспомогательными функциями

@DeeLonso · Регистрация: 02.12.2015

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

Требуется составить программу, используя вспомогательные функции.

Определите функцию (f s), которая вычисляет список (m1 m2 m3), состоящий из трех наибольших элементов числового списка s: m1>=m2>=m3. Исходный список содержит не менее трех элементов.

Заранее благодарен

@Catstail · 02.12.2015, 11:45

А зачем здесь вспомогательные функции? За один проход:

Lisp

(defun 3-max (lst &optional (m1 nil) (m2 nil) (m3 nil))
  (cond ((null lst) (list m1 m2 m3))
        ((null m1) (3-max (cdr lst) (car lst) m2 m3))
        ((> (car lst) m1) (3-max (cdr lst) (car lst) m1 m2))
        ((null m2) (3-max (cdr lst) m1 (car lst) m3))
        ((> (car lst) m2) (3-max (cdr lst) m1 (car lst) m2))
        ((null m3) (3-max (cdr lst) m1 m2 (car lst)))
        ((> (car lst) m3) (3-max (cdr lst) m1 m2 (car lst)))
        (t (3-max (cdr lst) m1 m2 m3))))   
 
==> 3-max
 
(3-max '(1 2 3 -3 2 5 2))
 
==> (5 3 2)

@DeeLonso · 02.12.2015, 11:59 **[ТС]**

Спасибо! Работает!
А вот как? Объясните пожалуйста
А именно, что, кому и куда передает?

@Catstail · 02.12.2015, 14:46

Проходим по списку, и каждый элемент сравниваем с текущими значениями m1, m2 и m3. Возможны случаи:

1) оч.эл > m1. В этом случае рекурсивно вызываем функцию, присвоив: m1=оч.эл, m2=m1 m3=m2
2) оч.эл > m2 но меньше m1. В этом случае рекурсивно вызываем функцию, присвоив: m2=оч.эл m3=m2
3) оч.эл > m3 но меньше m2. В этом случае рекурсивно вызываем функцию, присвоив: m3=оч.эл
4) оч.эл > m3 - пропускаем оч.эл.

Есть тонкость: первоначально m1=m2=m3=nil. Поэтому первые три ветви "удваиваются":

1a) Если m1=nil -> вызов с параметрами m1=оч.эл m2=m3=nil
1б) Если m1/=nil -> см. п.1

@DeeLonso 0 / 0 / 0 Регистрация: 02.12.2015 Сообщений: 8
		1
	Программа со вспомогательными функциями 02.12.2015, 10:42. Показов 589. Ответов 3 Метки нет (Все метки) Требуется составить программу, используя вспомогательные функции. Определите функцию (f s), которая вычисляет список (m1 m2 m3), состоящий из трех наибольших элементов числового списка s: m1>=m2>=m3. Исходный список содержит не менее трех элементов. Заранее благодарен 0

@DeeLonso 0 / 0 / 0 Регистрация: 02.12.2015 Сообщений: 8
	02.12.2015, 11:59 [ТС]	3
	Спасибо! Работает! А вот как? Объясните пожалуйста А именно, что, кому и куда передает? 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	02.12.2015, 14:46	4
	Проходим по списку, и каждый элемент сравниваем с текущими значениями m1, m2 и m3. Возможны случаи: 1) оч.эл > m1. В этом случае рекурсивно вызываем функцию, присвоив: m1=оч.эл, m2=m1 m3=m2 2) оч.эл > m2 но меньше m1. В этом случае рекурсивно вызываем функцию, присвоив: m2=оч.эл m3=m2 3) оч.эл > m3 но меньше m2. В этом случае рекурсивно вызываем функцию, присвоив: m3=оч.эл 4) оч.эл > m3 - пропускаем оч.эл. Есть тонкость: первоначально m1=m2=m3=nil. Поэтому первые три ветви "удваиваются": 1a) Если m1=nil -> вызов с параметрами m1=оч.эл m2=m3=nil 1б) Если m1/=nil -> см. п.1 1