Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите решить 
V
    Опции темы
rewq3478
Дата 14.1.2010, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 13.1.2010

Репутация: нет
Всего: нет
Здравствуйте люди помогите решить задачки на лисп. Очень надо.
1. Найти: y=max(a,b,c,d)*min(a,b,c,d).
2. Вычислить произведение элементов списка. 
 
1 задачку пытался сам но чета она не работает.
Код

setq x = 2
setq y = 0
setq max = 0
(do
  ((< x 2.8))
  (setq y (+ tg(x) 1))

  (cond
    ((> x max) (= max y)))
setq x (+ x 0.1)
)
PM MAIL   Вверх
AyeAye
Дата 16.1.2010, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 11.1.2010

Репутация: нет
Всего: нет
может быть так первая:
Код

(defun max(x y z q)
    (cond
        ((> x y)(max y x z q))
        ((> y z)(max x z y q))
        ((> z q)(max x y q z))
        ((> q z)q)
    )
)

(defun min(x y z q)
    (cond
        ((< x y)(min y x z q))
        ((< y z)(min x z y q))
        ((< z q)(min x y q z))
        ((< q z)q)
    )
)

(setq a 3)
(setq b 1)
(setq c 21)
(setq d 5)

(setq y (* (max a b c d)(min a b c d)))
PM MAIL   Вверх
AyeAye
Дата 16.1.2010, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 11.1.2010

Репутация: нет
Всего: нет
вторая:
Код

(defun f(L)
  (cond
    ((eq L nil)1)
    (t(* (car L) (f (CDR L))))
  )
)

(F '(5 4 2 4))
PM MAIL   Вверх
k0rvin
Дата 24.1.2010, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 442
Регистрация: 24.1.2010

Репутация: нет
Всего: 5
Код

;;; 1:
(defun y (a b c d)
  (* (min a b c d) (max a b c d)))


;;; 2:
(defun prod (xs)
  (apply #'* xs))



--------------------
“Object-oriented design is the roman numerals of computing.” — Rob Pike
All software sucks
PM MAIL   Вверх
_sg
Дата 25.4.2014, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2
2.
Код

(defun prod-elms (w) (reduce #'* w))

> (prod-elms '(2 3 4 5))
120

--------------------
vk.com/ansicommonlisp
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума LISP
Void
  • Пожалуйста, создавайте темы с содержательными названиями.
  • Lisp — это целое семейство языков. Всегда указывайте в теме используемый диалект (Common Lisp, Scheme и т.д.).
  • Уважаемые учащиеся, здесь всегда рады помочь Вам, но не делать за Вас вашу работу. У вас гораздо больше шансов получить помощь, если Вы приложите усилия и поделитесь с нами проблемами и результатами. В противном случае добро пожаловать в раздел Центр Помощи.
  • Получив ответ на интересующий Вас вопрос, не забудьте пометить его как решённый.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Void.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | LISP | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0404 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.