> 1 <

Автор Сообщение

Дуська

Members


Статус

21 сообщений

Где: Ukraine
Род занятий:
Возраст:

#6961   2013-03-22 22:05 GMT+3 часа(ов)      
В числовом списке найти максимальный элемент.

Файфель Б.Л.

Members


Статус

61 сообщений
http://homelisp.ru
Где: Russia Саратов
Род занятий: Программист
Возраст: 66

#6963   2013-03-22 23:17 GMT+3 часа(ов)      
Самое простое:
 
(defun max-l (lst) (apply 'max lst))
==> max-l
(max-l '(1 2 3 4 3 2 1))
==> 4
 

Но если надо "ручками", то вот:
 
 
(defun max-l (lst)
(cond ((null lst) nil)
((null (cdr lst)) (car lst))
(t (max (car lst) (max-l (cdr lst))))))
 
==> max-l
(max-l '(1 2 3 4 3 2 1))
==> 4
 
 
> 1 <


Онлайн :

0 пользователь(ей), 37 гость(ей) :