ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите с программой на lisp
15 сообщений из 15, страница 1 из 1
Помогите с программой на lisp
    #37663905
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел. Буду благодарен если поможете)
...
Рейтинг: 0 / 0
15.02.2012, 19:53
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664031
Фотография ZyK_BotaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZyK_BotaN
Участник
spider844360Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех положительных нечетных чисел. Буду благодарен если поможете)ого сколько вас, всей групой пришли?
...
Рейтинг: 0 / 0
15.02.2012, 20:51
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664055
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
да нет вроде помогите пожалуста)
...
Рейтинг: 0 / 0
15.02.2012, 21:05
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664228
Abstraction
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abstraction
Участник
spider844360,

Функция sum-positive-odd принимает список чисел, результат её вычисления есть сумма положительных нечётных в списке
Функция positive-odd? возвращает true, если число положительное и нечётное, false в иных случаях.
Функция accumulate-if-positive-odd принимает список чисел и "текущее" значение аккумулятора, результат её вычисления есть accumulate-if-positive-odd от хвоста списка (за вычетом первого элемента) и "текущего" значения аккумулятора плюс ноль либо значение первого элемента, в зависимости от результата positive-odd? в применении к этому элементу.
Результат вычисления (sum-positive-odd list) есть результат вычисления (accumulate-if-positive-odd list 0).
Так достаточно или что-то непонятно?
...
Рейтинг: 0 / 0
15.02.2012, 23:35
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664501
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
я в lispe вообще непонимаю, так что эти операторы которые ты мне написал мне ничего не дают. Если не трудно напиши пожалуста программу. Заранее спасибо.
...
Рейтинг: 0 / 0
16.02.2012, 09:39
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664543
Фотография k0rvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k0rvin
Участник
ZyK_BotaNого сколько вас, всей групой пришли?

Хе, причем судя по всему заочники. И никто не говорит, на каком диалекте нужно.

Вариант 1:
Код: xml
1.
2.
3.
4.
5.
(defun to-positive (number)
  (if (plusp number) number 0))

(defun f (list)
  (reduce #'+ list :key #'to-positive))



Вариант 2:
Код: xml
1.
2.
3.
4.
(defun f (list)
  (loop :for elem :in list
        :when (plusp elem)
        :collect elem))
...
Рейтинг: 0 / 0
16.02.2012, 10:11
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37664554
Abstraction
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Abstraction
Участник
spider844360я в lispe вообще непонимаю , так что эти операторы которые ты мне написал мне ничего не дают. Если не трудно напиши пожалуста программу. Заранее спасибо.
Зачем мне это делать?
...
Рейтинг: 0 / 0
16.02.2012, 10:18
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37665090
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
k0rvin,

второй вариант выводит тот же список что и вводили, а первый почти рабочий, он считает сумму положительных элементов, но всех как четных так и нечетных, а мне надо только сумму нечетных. Подредактируй пожалуста, спасибо что взялся помочь.
...
Рейтинг: 0 / 0
16.02.2012, 13:37
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37666264
Mozok
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mozok
Участник
k0rvinВариант 2:
Код: xml
1.
2.
3.
4.
(defun f (list)
  (loop :for elem :in list
        :when (plusp elem)
        :collect elem))


Знаю только CL, но там вроде как sum должно быть
...
Рейтинг: 0 / 0
16.02.2012, 23:43
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37666535
Фотография k0rvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k0rvin
Участник
Mozok,

Да, по привычке написал collect, а должно быть sum
...
Рейтинг: 0 / 0
17.02.2012, 09:01
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37666745
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
k0rvin,

он поп прежнему сумму всех чисел складывает а мне нужно сумму нечетных чисел
...
Рейтинг: 0 / 0
17.02.2012, 11:20
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37666860
Фотография ZyK_BotaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZyK_BotaN
Участник
spider844360k0rvin,

он поп прежнему сумму всех чисел складывает а мне нужно сумму нечетных чиселнужно - делай
...
Рейтинг: 0 / 0
17.02.2012, 12:09
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37667289
Фотография k0rvin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
k0rvin
Участник
spider844360k0rvin,

он поп прежнему сумму всех чисел складывает а мне нужно сумму нечетных чисел

Нет, не всех, только положительных, как добавить проверку на четность попробуй сообразить сам.
...
Рейтинг: 0 / 0
17.02.2012, 14:41
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37667293
Фотография ZyK_BotaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZyK_BotaN
Участник
k0rvinspider844360k0rvin,

он поп прежнему сумму всех чисел складывает а мне нужно сумму нечетных чисел

Нет, не всех, только положительных, как добавить проверку на четность попробуй сообразить сам.первый хочть что-то сам пытался сообразить.
...
Рейтинг: 0 / 0
17.02.2012, 14:42
| Ответить | Цитировать | Написать  
Помогите с программой на lisp
    #37667325
spider844360
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
spider844360
Гость
спасибо народ хоть за эту помощь)
...
Рейтинг: 0 / 0
17.02.2012, 14:55
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Помогите с программой на lisp
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&msg=37666535&tid=1342435]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 196ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 237ms
total:  531ms
созд. / загр.: 531ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]