> 1 <

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

iva-1982

Members


Статус

1 сообщений

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

#2155   2010-05-24 17:51 GMT+3 часа(ов)      
Добрый день, утро, ночь! Помоги пожалуйста с Lisp. Дана задача на нахождение наилучшего результата среди спортсменов, и разницы между наименьшим и наибольшим результатами!!!

(defstruct sportsmen fam time)

(defun sp (n f)
(cond ((= n 0) nil)
(t (cons (make-sportsmen
:fam (read f)
:time (read f))
(sp (- n 1) f)))))

(defun min1 (x y)
(if (< x y) x y))

(defun rez (x)
(cond ((eq (cdr x) nil) (car x))
(t (min1 (sportsmen-time (car x))(rez (sportsmen-time (cdr x)))))))

(setq f (open "rezult.txt" :direction :input))
Вот что получилось написть у меня! Проблема в том что при запуске функции (rez (sp 5 f)) выскакивает ошибка is not of type SPORTSMEN when accessing slot TIME
Помогите пожалуйста!!!
> 1 <


Онлайн :

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




Реклама на сайте: