Написать рекурсивную функцию возведения в степень

@иван я · Регистрация: 15.12.2012

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

написать рекурсивную функцию которая будет считать вот такую функцию $https://www.cyberforum.ru/cgi-bin/latex.cgi?F i=\sum_{i=1}^{n}{{f}_{i}}^{{c}_{i}}$ . Например

$https://www.cyberforum.ru/cgi-bin/latex.cgi?{2}^{3}+{5}^{2}+{4}^{2}=49$

@Catstail · 21.12.2014, 11:48

Lisp

(defun psum (f c)
 (cond ((or (null f) (null c)) 0)
       (t (+ (^ (car f) (car c)) (psum (cdr f) (cdr c)))))) 
 
==> psum
 
(psum '(2 5 4) '(3 2 2))
 
==> 49

@иван я · 21.12.2014, 12:15 **[ТС]**

у меня эта функция не работает почему то. И мне надо чтобы эта функция возводила в степень десятичные числа в десятичную степень, т.е $https://www.cyberforum.ru/cgi-bin/latex.cgi?F={0.8}^{0.7}$

@Catstail · 21.12.2014, 12:29

А у меня, почему-то, работает:

Lisp

1
2
3

(psum '(2 5 4) '(0.5 0.2 -0.2))
 
==> 3.55180150708951

И научись пользоваться редактором формул...

Добавлено через 8 минут
Понятно, почему не работает в muLisp... Функцию psum задай вот так:

Lisp

1
2
3

(defun psum (f c)
 (cond ((or (null f) (null c)) 0)
       (t (+ (expt (car f) (car c)) (psum (cdr f) (cdr c))))))

Загрузи muLisp и выполни две команды:

Lisp

1 2	(load "common.lsp") (load "irratnal.lsp")

Потом загружай psum и запускай. Все заработает.

@иван я · 21.12.2014, 13:08 **[ТС]**

объясните, пожалуйста, как работает эта функция и что делают эти две команды. И, если не трудно, подскажите почему функция

Lisp

1 2	(defun Max1(x y z) (max x y z))

не определяет максимальное значение десятичных чисел, у меня в программе считается три числа 1) 2.4851191 2)2.4898312 3)1.5088089

@Catstail · 21.12.2014, 13:19

Две команды загружают определения функций, которые приближают muLisp к Common Lisp.

Добавлено через 1 минуту
Если две команды выполнены, эта функция будет работать.

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
		1
	Написать рекурсивную функцию возведения в степень 21.12.2014, 09:33. Показов 2853. Ответов 5 Метки нет (Все метки) написать рекурсивную функцию которая будет считать вот такую функцию $https://www.cyberforum.ru/cgi-bin/latex.cgi?F i=\sum_{i=1}^{n}{{f}_{i}}^{{c}_{i}}$ . Например $https://www.cyberforum.ru/cgi-bin/latex.cgi?{2}^{3}+{5}^{2}+{4}^{2}=49$ 0

@иван я 17 / 17 / 16 Регистрация: 15.12.2012 Сообщений: 536
	21.12.2014, 12:15 [ТС]	3
	у меня эта функция не работает почему то. И мне надо чтобы эта функция возводила в степень десятичные числа в десятичную степень, т.е $https://www.cyberforum.ru/cgi-bin/latex.cgi?F={0.8}^{0.7}$ 0

@Catstail Модератор 35522 / 19997 / 4186 Регистрация: 12.02.2012 Сообщений: 33,176 Записей в блоге: 13
	21.12.2014, 13:19	6
	Две команды загружают определения функций, которые приближают muLisp к Common Lisp. Добавлено через 1 минуту Если две команды выполнены, эта функция будет работать. 0

Опции темы