Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Lisp
Перезагрузить страницу Функция возводит элемент списка M в степень равную элементу из списка L
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
imported_Witcher imported_Witcher вне форума
Member
 
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.05.2009
По умолчанию Функция возводит элемент списка M в степень равную элементу из списка L - 13.05.2009, 21:26

Функционалы
Функция возводит элемент списка M в степень равную элементу из списка L, записывая каждый результат в выходной список. При этом:
Если элемент списка L не является целым числом, а элемент списка M – является, функция возвращает в результирующем списке запись «E1».
Если элемент списка M не является целым числом, а элемент списка L – является, функция возвращает в результирующем списке запись «E2».
Если оба элемента не являются целыми числами, функция возвращает в результирующем списке запись «E3».
Ответить с цитированием
  (#2 (permalink)) Старый
_sg _sg вне форума
Member
 
Аватар для _sg
 
Сообщений: 525
Сказал(а) спасибо: 5
Поблагодарили 42 раз(а) в 38 сообщениях
Регистрация: 23.01.2007
По умолчанию 13.05.2009, 23:29

Код:
(defun xp (w v)
  (mapcar #' (lambda (aw av)
               (cond ((and (zerop (mod aw 1)) (/= (mod av 1) 0)) 'e1)
                     ((and (/= (mod aw 1) 0) (zerop (mod av 1))) 'e2)
                     ((and (/= (mod aw 1) 0) (/= (mod av 1) 0)) 'e3)
                     ((expt aw av))))
             w v))
(xp '(2 2.1 2.1 2) '(2.1 2 2.1 2))
(E1 E2 E3 4)
Ответить с цитированием
  (#3 (permalink)) Старый
imported_Witcher imported_Witcher вне форума
Member
 
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.05.2009
По умолчанию 15.05.2009, 01:32

спасибо большое
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна функция, возвращающая максимальный элемент списка kvarc Lisp 8 01.06.2010 07:18
удаляющий предпоследний элемент списка denis120 Prolog 5 25.04.2010 20:23
Первый элемент списка = последнему. MashUsha Prolog 1 04.06.2008 21:40
получить i - элемент списка toshkaexe Prolog 3 08.02.2008 20:32
Дерево элемент списка akvilon Prolog 4 07.12.2007 06:35
n-й элемент списка imported_Zic Prolog 7 12.11.2006 17:44
Разбиение списка по заданному элементу irad Prolog 4 09.11.2006 20:40
добавить элемент в произвольную позицию, исключить N-ый элемент из списка fire2004 Prolog 1 11.08.2006 16:50
предпоследний элемент списка imported_kisa Prolog 5 24.08.2005 02:42
Два списка как обратиться к элементу списка List& AHDPE C++ Builder 2 26.03.2005 18:21
Как максимальный элемент списка Lizka Prolog 3 07.10.2004 13:18
Наименьший элемент списка Anonymous Prolog 1 16.01.2004 19:14



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов