Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
4 / 4 / 0
Регистрация: 18.02.2013
Сообщений: 32

Исправить ошибку в функции!

01.12.2014, 12:48. Показов 604. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите исправить ошибку. Нужно возвести каждый элемент списка "e" в степень второго элемента списка "z" и суммировать эти элементы.
Lisp
1
2
3
4
5
6
7
8
9
(setq e'(1 2 3))
(setq z'(1 2))
(DEFUN SUMLIST (x n) (COND ((NULL x) 0)
     (T  (+   (^ (CAR x) (cdr n))(SUMLIST (CDR x) ) 
     )          )
                                        )
)
 
==>(SUMList e z)
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
01.12.2014, 12:48
Ответы с готовыми решениями:

Исправить ошибку (Табулирование функции)
procedure TForm1.Button1Click(Sender: TObject); var a,b,h,x,f: Extended; p1,p2,p3:integer; begin val(edit1.text,a,p1); ...

Как исправить ошибку в функции?
Запускаю функцию Код: Function GetDUnVNR(Sender: TObject;i:integer):Integer; / var begin if...

Исправить ошибку в функции pow
#include "StdAfx.h" #include <iostream> #include <stdio.h> #include <conio.h> #include <string> #include <sstream> #include...

2
 Аватар для _sg
4710 / 4405 / 380
Регистрация: 12.05.2012
Сообщений: 3,102
01.12.2014, 13:10
Lisp
1
2
3
4
5
6
(defun sum-expt (w v)
  (cond ((null w) 0)
        (t (+ (expt (car w) (cadr v)) (sum-expt (cdr w) v)))))
 
> (sum-expt '(1 2 3) '(1 2))
14
Lisp
1
2
3
4
5
(defun sum-expt (w v)
  (if w (+ (expt (car w) (cadr v)) (sum-expt (cdr w) v)) 0))
 
> (sum-expt '(1 2 3) '(1 2))
14
3
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38200 / 21132 / 4310
Регистрация: 12.02.2012
Сообщений: 34,738
Записей в блоге: 14
01.12.2014, 13:27
Всего две ошибки (пропущенные буквы сделаны заглавными):

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(DEFUN SUMLIST (x n) 
  (COND ((NULL x) 0)
        (T  (+  (^ (CAR x) (cAdr n))(SUMLIST (CDR x) N)))))
 
==> SUMLIST
 
(sumlist '(1 2 3 4) '(1 2))
 
==> 30
 
(sumlist '(1 2 3) '(1 2))
 
==> 14
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.12.2014, 13:27
Помогаю со студенческими работами здесь

Исправить ошибку в вычислениях функции
#include<stdio.h> #include<conio.h> #include <math.h> #include<stdlib.h> #include<iostream.h> long double factorial(int n) { ...

Исправить ошибку в ипользовании функции
Выделяет "Ln" и стрелкой показывает на "Function f(x As Double) As Double", выводя на экран сообщение Помогите пожалуйста решить...

Исправить ошибку в программе.Функции
Здравствуйте! Программа должна удалять лишние запятые и восклицательные знаки (они лишние, если подряд напечатано больше одного символа),...

Неудаёться исправить ошибку в функции
Привет всем Нписал функцию. Есть ошибки в ней перевёл сообщение компилятора на русский, но легче от этого не стало. Как исправить ошибку?...

Как исправить ошибку определения функции
Стоит Viisual Studio 2008 кликая на функцию правой кнопкой есть выбор 1)Перейти к определению 2)Перейти к объявлению иногда все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru